Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Fields
Print Page as PDF
Global: ^PRPF(470.6

Package: Integrated Patient Fund

Global: ^PRPF(470.6


Information

FileMan FileNo FileMan Filename Package
470.6 PATIENT FUNDS REMARKS CODE Integrated Patient Fund

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Patient Fund 1 PRPFED1    

Fields, Total: 3

Field # Name Loc Type Details
.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
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
1 FULL REMARK 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • 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
Info |  Desc |  Accessed By FileMan Db Calls |  Fields