STANDARD DATA DICTIONARY #470.6 -- PATIENT FUNDS REMARKS CODE FILE 9/29/25 PAGE 1
STORED IN ^PRPF(470.6, (12 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the list of symbols and expanded descriptions to be used to identify remarks on a card.
WR ACCESS: ^
DEL ACCESS: ^
LAYGO ACCESS: ^
IDENTIFIED BY: FULL REMARK (#1)[R]
CROSS
REFERENCED BY: NAME(B)
470.6,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 12, 1988
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
470.6,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1988
HELP-PROMPT: Enter the Code to be used to lookup a standard remark
DELETE TEST: 1,0)= D EN^DDIOL("Deletions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I 1
LAYGO TEST: 1,0)= D:'$G(XUMF) EN^DDIOL("Additions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I +$
G(XUMF)
CROSS-REFERENCE: 470.6^B
1)= S ^PRPF(470.6,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470.6,"B",$E(X,1,30),DA)
470.6,1 FULL REMARK 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X
LAST EDITED: JUL 13, 1988
HELP-PROMPT: Enter the full remark to be entered in the Patient Funds system when this item is selected
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):