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: 25

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

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