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

Package: Integrated Patient Fund

Global: ^PRPF(470.9


Information

FileMan FileNo FileMan Filename Package
470.9 PATIENT FUNDS ARCHIVE HISTORY Integrated Patient Fund

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Integrated Patient Fund 1 PRPFPURG    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Patient Fund 1 PRPFARC    

Fields, Total: 3

Field # Name Loc Type Details
.01 ARCHIVE DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 25, 1997
  • HELP-PROMPT:  
  • 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.9^B
    1)= S ^PRPF(470.9,"B",$E(X,1,30),DA)=""
    2)= K ^PRPF(470.9,"B",$E(X,1,30),DA)
1 TYPE 0;2 SET
  • '0' FOR ARCHIVE;
  • '1' FOR PURGE;

  • LAST EDITED:  FEB 25, 1997
  • CROSS-REFERENCE:  470.9^AC^MUMPS
    1)= I X=0 S ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)=""
    2)= K ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)
    This cross reference is used to create a reverse index for date of last archive.
2 THRU DATE OF PURGE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 09, 1992
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields