STANDARD DATA DICTIONARY #470.6 -- PATIENT FUNDS REMARKS CODE FILE 6/27/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):