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 |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^PRPFT(470.5

Package: Integrated Patient Fund

Global: ^PRPFT(470.5


Information

FileMan FileNo FileMan Filename Package
470.5 PATIENT FUNDS TEMPORARY TRANSACTION Integrated Patient Fund

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Integrated Patient Fund 3 PRPFED    PRPFMUL    PRPFPOST    

Pointer To FileMan Files, Total: 2

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

Fields, Total: 19

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

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUN 22, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-15 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)
  • CROSS-REFERENCE:  470.5^B
    1)= S ^PRPFT(470.5,"B",$E(X,1,30),DA)=""
    2)= K ^PRPFT(470.5,"B",$E(X,1,30),DA)
1 PATIENT NAME 0;2 POINTER TO PATIENT FUNDS FILE (#470) PATIENT FUNDS(#470)
3 AMOUNT 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^PRPFTRCK
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 TRANSACTION DATE 0;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
6 REFERENCE 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 10, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
7 DEPOSIT/WITHDRAWAL 0;8 SET
************************REQUIRED FIELD************************
  • 'D' FOR DEPOSIT;
  • 'W' FOR WITHDRAWAL;
8 CASH/CHECK/OTHER 0;9 SET
************************REQUIRED FIELD************************
  • '1' FOR CASH;
  • '2' FOR CHECK;
  • '3' FOR OTHER;
9 SOURCE 0;10 SET
************************REQUIRED FIELD************************
  • '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 as a source during normal operations.
10 FORM 0;11 POINTER TO PATIENT FUNDS FORMS FILE (#470.2)
************************REQUIRED FIELD************************
PATIENT FUNDS FORMS(#470.2)

  • LAST EDITED:  DEC 14, 1987
11 PRIVATE SOURCE AMT 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
  • 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
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999
13 PATIENT FUNDS CLERK NAME 0;14 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  MAY 15, 1987
  • HELP-PROMPT:  ANSWER MUST BE 3-35 CHARACTERS IN LENGTH
14 CODE 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
15 REMARKS 0;16 FREE TEXT

  • INPUT TRANSFORM:  D REM^PRPFED1
  • LAST EDITED:  JUL 13, 1988
  • HELP-PROMPT:  Enter Remarks Code, Free Text Remarks, or Code followed by a Comma followed by Free Text. Total Number of Characters may not exceed 50.
  • EXECUTABLE HELP:  S ZD=D,X="?",DIC="^PRPF(470.6,",DIC(0)="EMQN" D ^DIC S DIC="^PRPF(470.5,",D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
16 BALANCE CARRIED FORWARD AMT 0;18 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  JAN 10, 1989
  • HELP-PROMPT:  Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17 PVT SOURCE BAL CARRIED FWD 0;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  JAN 10, 1989
  • HELP-PROMPT:  Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
18 GRATUITOUS BAL CARRIED FWD 0;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
  • LAST EDITED:  JAN 10, 1989
  • HELP-PROMPT:  Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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 COUNT IN RESTRICTION BALANCE 0;22 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 15, 1987
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields