Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 470.01

Package: Integrated Patient Fund

PATIENT FUNDS(#470)-->470.01

Sub-Field: 470.01


Information

Parent File Name Number Package
PATIENT FUNDS(#470) PATIENT TRANSACTION 470.01 Integrated Patient Fund

Details

Field # Name Loc Type Details
.01 PATIENT TRANSACTION 0;1 POINTER TO PATIENT FUNDS MASTER TRANSACTION FILE (#470.1)
************************REQUIRED FIELD************************
PATIENT FUNDS MASTER TRANSACTION(#470.1)

  • LAST EDITED:  SEP 01, 1987
  • HELP-PROMPT:  
  • CROSS-REFERENCE:  470.01^B
    1)= S ^PRPF(470,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,DA(1),3,"B",$E(X,1,30),DA)
1 TRANSACTION DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 01, 1987
  • CROSS-REFERENCE:  470.01^AC
    1)= S ^PRPF(470,DA(1),3,"AC",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,DA(1),3,"AC",$E(X,1,30),DA)
2 TRANSACTION AMOUNT 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  MAR 09, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
3 PRIVATE SOURCE AMOUNT 0;4 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
4 GRATUITOUS AMOUNT 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  MAR 09, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
5 BALANCE 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  MAR 09, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
7 VERIFY AMOUNT COMPUTED

  • MUMPS CODE:  X ^DD(470.01,7,9.2) S D0=$P(Y(470.01,7,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,7,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,7,101),U,4) S D0=Y(470.01,7,80) S D1=Y(470.01,7,81)
    9.2 = S Y(470.01,7,81)=$S($D(D1):D1,1:""),Y(470.01,7,80)=$S($D(D0):D0,1:""),Y(470.01,7,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
  • ALGORITHM:  PATIENT TRANSACTION:AMOUNT
8 TRANSACTION DATE COMPUTED DATE

  • MUMPS CODE:  X ^DD(470.01,8,9.2) S D0=$P(Y(470.01,8,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,8,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,8,101),U,5) S D0=Y(470.01,8,80) S D1=Y(470.01,8,81)
    9.2 = S Y(470.01,8,81)=$S($D(D1):D1,1:""),Y(470.01,8,80)=$S($D(D0):D0,1:""),Y(470.01,8,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
  • ALGORITHM:  PATIENT TRANSACTION:TRANSACTION DATE
9 DATE ENTERED COMPUTED

  • MUMPS CODE:  X ^DD(470.01,9,9.3) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_(1700+$E(X,1,3)) S X=X S D0=Y(470.01,9,80) S D1=Y(470.01,9,81)
    9.2 = S Y(470.01,9,81)=$S($D(D1):D1,1:""),Y(470.01,9,80)=$S($D(D0):D0,1:""),Y(470.01,9,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
    9.3 = X ^DD(470.01,9,9.2) S D0=$P(Y(470.01,9,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,9,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,9,101),U,6)
  • ALGORITHM:  NUMDATE4(PATIENT TRANSACTION:DATE TRANSACTION ENTERED)
  • LAST EDITED:  FEB 25, 1998
10 REFERENCE COMPUTED

  • MUMPS CODE:  X ^DD(470.01,10,9.2) S D0=$P(Y(470.01,10,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,10,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,10,101),U,7) S D0=Y(470.01,10,80) S D1=Y(470.01,10,81)
    9.2 = S Y(470.01,10,81)=$S($D(D1):D1,1:""),Y(470.01,10,80)=$S($D(D0):D0,1:""),Y(470.01,10,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
  • ALGORITHM:  PATIENT TRANSACTION:REFERENCE
11 DEP/WIT COMPUTED

  • MUMPS CODE:  X ^DD(470.01,11,9.3) S X=X S X=X S D0=Y(470.01,11,80) S D1=Y(470.01,11,81)
    9.2 = S Y(470.01,11,81)=$S($D(D1):D1,1:""),Y(470.01,11,80)=$S($D(D0):D0,1:""),Y(470.01,11,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
    9.3 = X ^DD(470.01,11,9.2) S D0=$P(Y(470.01,11,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,11,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,11,101),U,8)
  • ALGORITHM:  INTERNAL(PATIENT TRANSACTION:DEPOSIT/WITHDRAWAL)
  • LAST EDITED:  JUL 06, 1987
12 CA/CK/OTH COMPUTED

  • MUMPS CODE:  X ^DD(470.01,12,9.3) S Y(470.01,12,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P($P(Y(470.01,12,102),$C(59)_$P(Y(470.01,12,101),U,9)_":",2),$C(59),1) S D0=Y(470.01,12,80) S D1=Y(470.01,12,81)
    9.2 = S Y(470.01,12,81)=$S($D(D1):D1,1:""),Y(470.01,12,80)=$S($D(D0):D0,1:""),Y(470.01,12,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
    9.3 = X ^DD(470.01,12,9.2) S D0=$P(Y(470.01,12,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,12,102)=$C(59)_$S($D(^DD(470.1,8,0)):$P(^(0),U,3),1:"")
  • ALGORITHM:  PATIENT TRANSACTION:CASH/CHECK/OTHER
13 P/G COMPUTED

  • MUMPS CODE:  X ^DD(470.01,13,9.3) S X=X S X=X S D0=Y(470.01,13,80) S D1=Y(470.01,13,81)
    9.2 = S Y(470.01,13,81)=$S($D(D1):D1,1:""),Y(470.01,13,80)=$S($D(D0):D0,1:""),Y(470.01,13,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
    9.3 = X ^DD(470.01,13,9.2) S D0=$P(Y(470.01,13,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,13,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,13,101),U,10)
  • ALGORITHM:  INTERNAL(PATIENT TRANSACTION:SOURCE)
  • LAST EDITED:  JUL 06, 1987
14 FORM COMPUTED

  • MUMPS CODE:  X ^DD(470.01,14,9.3) S X=$S('$D(^PRPF(470.2,+$P(Y(470.01,14,101),U,11),0)):"",1:$P(^(0),U,1)) S D0=Y(470.01,14,80) S D1=Y(470.01,14,81)
    9.2 = S Y(470.01,14,81)=$S($D(D1):D1,1:""),Y(470.01,14,80)=$S($D(D0):D0,1:""),Y(470.01,14,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
    9.3 = X ^DD(470.01,14,9.2) S D0=$P(Y(470.01,14,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,14,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"")
  • ALGORITHM:  PATIENT TRANSACTION:FORM
15 CLERK COMPUTED

  • MUMPS CODE:  X ^DD(470.01,15,9.3) S X=$S('$D(^VA(200,+$P(Y(470.01,15,101),U,14),0)):"",1:$P(^(0),U,1)) S D0=Y(470.01,15,80) S D1=Y(470.01,15,81)
    9.2 = S Y(470.01,15,81)=$S($D(D1):D1,1:""),Y(470.01,15,80)=$S($D(D0):D0,1:""),Y(470.01,15,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
    9.3 = X ^DD(470.01,15,9.2) S D0=$P(Y(470.01,15,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,15,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"")
  • ALGORITHM:  PATIENT TRANSACTION:PATIENT FUNDS CLERK
  • LAST EDITED:  FEB 13, 1997
16 REMARKS COMPUTED

  • MUMPS CODE:  X ^DD(470.01,16,9.2) S D0=$P(Y(470.01,16,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,16,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,16,101),U,16) S D0=Y(470.01,16,80) S D1=Y(470.01,16,81)
    9.2 = S Y(470.01,16,81)=$S($D(D1):D1,1:""),Y(470.01,16,80)=$S($D(D0):D0,1:""),Y(470.01,16,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"")
  • ALGORITHM:  PATIENT TRANSACTION:REMARKS
Info |  Details