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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PRPF(470.1

Package: Integrated Patient Fund

Global: ^PRPF(470.1


Information

FileMan FileNo FileMan Filename Package
470.1 PATIENT FUNDS MASTER TRANSACTION Integrated Patient Fund

Description

Directly Accessed By Routines, Total: 26

Package Total Routines
Integrated Patient Fund 17 PATIENT TRANSACTION    PFXIP11    PFXIP12    PRPF DAILY ACTIVITY    PRPF DAILY TRANSACTION SUMMARY    PRPF DAYS BETWEEN DATES    PRPF FISCAL ACTIVITY REPORT    PRPF FISCAL TRANS SUMMARY
PRPFCD    PRPFDR1    PRPFDST    PRPFSIG1    ^PRPF(470.6    PRPFMR1    PRPFPOST    PRPFPUR1
^PRPF(470.1    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Integrated Patient Fund 4 PFXIP11    PFXIP12    PRPFPNT    PRPFPOST    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Patient Fund 1 PATIENT FUNDS(#470)[#470.01(.01)]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Integrated Patient Fund 2 PATIENT FUNDS(#470)[1]    PATIENT FUNDS FORMS(#470.2)[10]    
Kernel 1 NEW PERSON(#200)[13]    

Fields, Total: 25

Field # Name Loc Type Details
.01 TRANSACTION ID 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<2)!'(X?1N.11N1"M") X
  • LAST EDITED:  JUN 15, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-12 CHARACTERS IN LENGTH
  • 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)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  470.1^B
    1)= S ^PRPF(470.1,"B",$E(X,1,30),DA)=""
    2)= K ^PRPF(470.1,"B",$E(X,1,30),DA)
1 PATIENT NAME 0;2 POINTER TO PATIENT FUNDS FILE (#470) PATIENT FUNDS(#470)
2 PATIENT TRANSACTION # 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
3 AMOUNT 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  MAR 18, 1988
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
4 TRANSACTION DATE 0;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 18, 1988
  • CROSS-REFERENCE:  470.1^AD
    1)= S ^PRPF(470.1,"AD",$E(X,1,30),DA)=""
    2)= K ^PRPF(470.1,"AD",$E(X,1,30),DA)
5 DATE TRANSACTION ENTERED 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 01, 1987
  • HELP-PROMPT:  
  • CROSS-REFERENCE:  470.1^AC
    1)= S ^PRPF(470.1,"AC",$E(X,1,30),DA)=""
    2)= K ^PRPF(470.1,"AC",$E(X,1,30),DA)
5.5 DAYS BETWEEN DATES COMPUTED

  • MUMPS CODE:  X ^DD(470.1,5.5,9.2) S X1=Y(470.1,5.5,2) S X2=X1,X1=X D ^%DTC S Y=X
    9.2 = S Y(470.1,5.5,1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.1,5.5,1),U,5),Y(470.1,5.5,2)=X S X=$P(Y(470.1,5.5,1),U,6)
  • ALGORITHM:  DAYS BETWEEN DATES(#4,#5)
6 REFERENCE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
7 DEPOSIT/WITHDRAWAL 0;8 SET
************************REQUIRED FIELD************************
  • 'D' FOR DEPOSIT;
  • 'W' FOR WITHDRAWAL;

  • LAST EDITED:  SEP 01, 1987
8 CASH/CHECK/OTHER 0;9 SET
************************REQUIRED FIELD************************
  • '1' FOR CASH;
  • '2' FOR CHECK;
  • '3' FOR OTHER;

  • LAST EDITED:  SEP 01, 1987
9 SOURCE 0;10 SET
  • 'P' FOR PRIVATE SOURCE;
  • 'G' FOR GRATUITOUS;
  • 'B' FOR BOTH;

  • LAST EDITED:  FEB 26, 1988
  • SCREEN:  I "PG"[Y
  • EXPLANATION:  Allows user to select only Private Source or Gratuitous during normal operations.
10 FORM 0;11 POINTER TO PATIENT FUNDS FORMS FILE (#470.2)
************************REQUIRED FIELD************************
PATIENT FUNDS FORMS(#470.2)

  • LAST EDITED:  SEP 01, 1987
11 PRIVATE SOURCE AMT 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $P(^PRPF(470.1,D0,0),"^",8)["W" S Y=-Y
  • LAST EDITED:  MAR 02, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999
12 GRATUITOUS AMOUNT 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $P(^PRPF(470.1,D0,0),"^",8)["W" S Y=-Y
  • LAST EDITED:  MAR 02, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999
13 PATIENT FUNDS CLERK 0;14 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 28, 1995
  • HELP-PROMPT:  
13.5 VALIDATION CODE 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 25, 1995
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    Field contains the validation code for verification of electronic signature.
13.7 VALIDATION VERSION 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."2N.N) X
  • LAST EDITED:  APR 25, 1995
  • HELP-PROMPT:  Type a Number between 1 and 100, 1 Decimal Digit
  • DESCRIPTION:  
    This field contains the version number used to encode the Electronic Signature Code.
14 ELECTRONIC SIGNATURE 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y="/es/ "_$$DECODE^PRPFSIG1(D0)
  • LAST EDITED:  MAY 09, 1995
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
15 REMARKS 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-35 CHARACTERS IN LENGTH
16 BALANCE CARRIED FORWARD AMT 0;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  APR 02, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
17 PVT SOURCE BAL CARRIED FWD 0;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
18 GRATUITOUS BAL CARRIED FWD 0;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
19 DEFERRAL DATE 0;21 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 26, 1988
  • HELP-PROMPT:  
20 SIG CONVERSION COMPLETED 0;22 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 09, 1991
21 SIGNATURE CODE DATE/TIME 0;23 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 02, 1993

External References

Name Field # of Occurrence
^%DT 4+1, 5+1, 19+1, 21+1
^%DTC 5.5+1
EN^DDIOL .01DEL1+1, .01LAYGO1+1
$$DECODE^PRPFSIG1 14OT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(470.1 5.5+1
^PRPF(470.1 - [#470.1] .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5.5OF9.2+1, 11OT+1, 12OT+1

Naked Globals

Name Field # of Occurrence
^(0 5.5OF9.2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 4+1*, 5+1*, 19+1*, 21+1*
>> D0 5.5OF9.2+1, 11OT+1, 12OT+1, 14OT+1
>> DA .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K)
U 5.5OF9.2+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3+1*!, 4+1*!, 4(XREF 1S), 4(XREF 1K), 5+1*!, 5(XREF 1S)
5(XREF 1K), 5.5+1, 5.5OF9.2+1*, 6+1!, 11+1!, 12+1!, 13.5+1!, 13.7+1!, 14+1!, 15+1!
, 16+1*!, 17+1*!, 18+1*!, 19+1*!, 21+1*!
>> X1 5.5+1*
>> X2 5.5+1*
>> XUMF .01LAYGO1+1
>> Y 4+1, 5+1, 5.5+1*, 9SCR+1, 11OT+1*, 12OT+1*, 14OT+1*, 19+1, 21+1
>> Y( 5.5+1, 5.5OF9.2+1*
>> Y(0 11OT+1*, 12OT+1*, 14OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All