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  | All
Print Page as PDF
Global: ^PRPF(470

Package: Integrated Patient Fund

Global: ^PRPF(470


Information

FileMan FileNo FileMan Filename Package
470 PATIENT FUNDS Integrated Patient Fund

Description

Directly Accessed By Routines, Total: 71

Package Total Routines
Integrated Patient Fund 48 PRPF BY PATIENT    PRPF CARD PRINT    PRPF CLERK STAT HDR    PRPF CURRENT BAL    PRPF DORMANT ACCOUNT LIST    PRPF INACTIVE ACCOUNTS    PRPF INDIGENT LIST    PRPF LONG REGISTRATION
PRPF MULTIPLE AMT    PRPF PATIENT SUMMARY    PRPF RANGE OF CARDS    PRPF SELECTED DATA EDIT    PRPF SHORT REGISTRATION    PRPF SUSPENSE DISPLAY    PRPF SUSPENSE ENTER EDIT    PRPF SUSPENSE LIST
PRPF TEMP BCF AMTS    PRPF UNASSIGNED STATION LIST    PRPFARC    PRPFBAL    PRPFCD    PRPFCD1    PRPFDAY    PRPFDEF
PRPFDR1    PRPFDR2    PRPFDR4    PRPFDR5    PRPFDSI    PRPFDSI1    PRPFDST    PRPFED
PRPFED1    PRPFIPST    PRPFMIN    PRPFMR1    PRPFMUL    PRPFNQ    PRPFOBR    PRPFPOST
PRPFPUR1    PRPFPURG    PRPFRES    PRPFRPT    ^PRPF(470.9    PRPFS    PRPFTAT    PRPFTRCK

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Integrated Patient Fund 8 PRPFMIN    PRPFNQ    PRPFOBR    PRPFPNT    PRPFRES    PRPFRPT    PRPFS    PRPFTAT

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Integrated Patient Fund 2 PATIENT FUNDS MASTER TRANSACTION(#470.1)[1]    PATIENT FUNDS TEMPORARY TRANSACTION(#470.5)[1]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[8, 73]    NEW PERSON(#200)[10.7, 69]    
Integrated Patient Fund 1 PATIENT FUNDS MASTER TRANSACTION(#470.1)[#470.01(.01)]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 64

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  JUN 12, 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)
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  470^B
    1)= S ^PRPF(470,"B",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^470^10.9
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X="YES" X ^DD(470,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^PRPF(470,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=470,DIG=10.9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X="YES" X ^DD(470,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^PRPF(470,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=470,DIG=10.9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "YES"
    DELETE VALUE)= "YES"
    FIELD)= #10.9
    This trigger will assure that if a provider conversion is accidentally run, that the provider field will not be changed.
1 ACCOUNT STATUS 0;2 SET
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;

  • INPUT TRANSFORM:  D CKINACT^PRPFED
  • LAST EDITED:  JUL 13, 1987
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  470^AC
    1)= S ^PRPF(470,"AC",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AC",$E(X,1,30),DA)
2 PATIENT TYPE 0;3 SET
  • 'L' FOR LIMITED UNRESTRICTED;
  • 'R' FOR RESTRICTED;
  • 'U' FOR UNRESTRICTED;
  • 'X' FOR UNKNOWN;

  • LAST EDITED:  MAR 09, 1987
3 PATIENT STATUS 0;4 SET
  • 'A' FOR ADJUDGED INCOMPETENT;
  • 'R' FOR RATED INCOMPETENT;
  • 'C' FOR COMPETENT;
  • 'N' FOR NOT RATED;
  • 'X' FOR UNKNOWN;

  • LAST EDITED:  MAR 09, 1987
4 INDIGENT 0;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAR 09, 1987
5 APPORTIONEE $ 0;6 NUMBER

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

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
7 INSTITUTIONAL AWARD 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
8 REGIONAL OFFICE 0;9 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 09, 1987
9 OTHER ASSETS 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 09, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
10 DATE OF LAST TRANSACTION 0;11 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 09, 1987
10.5 DATE OF CURRENT RESTRICTION 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 09, 1987
10.7 PROVIDER AUTH RESTRICT 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 28, 1995
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1)))"
  • EXPLANATION:  Allows user only to select active providers.
10.9 PROVIDER CONVERTED 0;14 SET
  • '1' FOR YES;

  • LAST EDITED:  JUN 12, 1997
  • DESCRIPTION:  
    This field contains a flag indicating that the Provider Authorizing Restriction field has been converted from pointing to file 6 to pointing to file 200.
  • NOTES:  TRIGGERED by the NAME field of the PATIENT FUNDS File
11 BALANCE CARRIED FORWARD 1;1 NUMBER

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

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

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 9999999
14 STORED BALANCE 1;4 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
14.5 COMPUTED BALANCE COMPUTED

  • MUMPS CODE:  X ^DD(470,14.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0 S Y(470,14.5,102)=Y(470,14.5,102)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""")" S D(1)=D1 S X=Y(470,14.5,102) S D0=Y(470,14.5,80) S D1=Y(470,14.5,81)
    9.2 = S Y(470,14.5,80)=$S($D(D0):D0,1:""),Y(470,14.5,81)=$S($D(D1):D1,1:""),Y(470,14.5,102)=""
  • ALGORITHM:  TOTAL(PATIENT TRANSACTION:TRANSACTION AMOUNT)
  • LAST EDITED:  FEB 24, 1997
15 STORED PRIVATE SOURCE 1;5 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
15.5 COMPUTED PRIVATE SOURCE COMPUTED

  • MUMPS CODE:  X ^DD(470,15.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0 S Y(470,15.5,102)=Y(470,15.5,102)+$S($D(^(D1,0)):$P(^(0),U,4),1:"""")" S D(1)=D1 S X=Y(470,15.5,102) S D0=Y(470,15.5,80) S D1=Y(470,15.5,81)
    9.2 = S Y(470,15.5,80)=$S($D(D0):D0,1:""),Y(470,15.5,81)=$S($D(D1):D1,1:""),Y(470,15.5,102)=""
  • ALGORITHM:  TOTAL(PATIENT TRANSACTION:PRIVATE SOURCE AMOUNT)
  • LAST EDITED:  FEB 24, 1997
16 STORED GRATUITOUS 1;6 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
16.5 COMPUTED GRATUITOUS COMPUTED

  • MUMPS CODE:  X ^DD(470,16.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0 S Y(470,16.5,102)=Y(470,16.5,102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""")" S D(1)=D1 S X=Y(470,16.5,102) S D0=Y(470,16.5,80) S D1=Y(470,16.5,81)
    9.2 = S Y(470,16.5,80)=$S($D(D0):D0,1:""),Y(470,16.5,81)=$S($D(D1):D1,1:""),Y(470,16.5,102)=""
  • ALGORITHM:  TOTAL(PATIENT TRANSACTION:GRATUITOUS AMOUNT)
  • LAST EDITED:  FEB 24, 1997
17 AMOUNT RESTRICTED PER MONTH 1;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X
  • LAST EDITED:  MAR 09, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999
18 AMOUNT RESTRICTED PER WEEK 1;8 NUMBER

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 09, 1987
20 RESTRICTION WEEK # 1;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 09, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
21 MONTHLY RESTRICTION BALANCE 1;11 NUMBER

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

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>99999)!(X<-99999) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -99999 AND 99999
23 MINIMUM BALANCE #1 2;1 NUMBER

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

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
25 MINIMUM BALANCE #2 2;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
26 MAXIMUM BALANCE #2 2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
30 PATIENT TRANSACTION 3;0 POINTER Multiple #470.01 470.01

  • DESCRIPTION:  This field stores the current master transactions affecting a patient account. As archiving becomes available, the data contained in this field will only be a subset of all the master transactions affecting a specific
    veteran.
30.5 DEFERRED BALANCE COMPUTED

  • MUMPS CODE:  X ^DD(470,30.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,4,D1)) Q:D1'>0 S Y(470,30.5,102)=Y(470,30.5,102)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""")" S D(1)=D1 S X=Y(470,30.5,102) S D0=Y(470,30.5,80) S D1=Y(470,30.5,81)
    9.2 = S Y(470,30.5,80)=$S($D(D0):D0,1:""),Y(470,30.5,81)=$S($D(D1):D1,1:""),Y(470,30.5,102)=""
  • ALGORITHM:  TOTAL(#31:#2)
  • LAST EDITED:  FEB 24, 1997
31 DEFERRED CREDIT REF # 4;0 Multiple #470.02 470.02
32 SUSPENSE DATE 5;0 DATE Multiple #470.03 470.03
33 INCOME SOURCE 6;0 Multiple #470.05 470.05
34 GENERAL INFORMATION/REMARKS 7;0 WORD-PROCESSING #470.06

  • LAST EDITED:  NOV 09, 1987
35 SPECIAL REMARKS 8;0 WORD-PROCESSING #470.035

  • DESCRIPTION:  
    This field is designed to store those remarks which are to be viewed by Patient Funds Personnel ONLY.
  • LAST EDITED:  OCT 13, 1987
50 SSN COMPUTED

  • MUMPS CODE:  X ^DD(470,50,9.2) S X=$P(Y(470,50,101),U,9) S D0=Y(470,50,80)
    9.2 = S Y(470,50,80)=$S($D(D0):D0,1:""),Y(470,50,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,50,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,50,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  NAME:SSN
51 DOB COMPUTED DATE

  • MUMPS CODE:  X ^DD(470,51,9.2) S X=$P(Y(470,51,101),U,3) S D0=Y(470,51,80)
    9.2 = S Y(470,51,80)=$S($D(D0):D0,1:""),Y(470,51,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,51,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,51,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  NAME:DOB
52 WARD COMPUTED

  • MUMPS CODE:  S X="",DFN=$S($D(DA):DA,$D(D0):D0,1:"") I DFN["" D DGINPW^PRPFU1 S X=DFN(.1) K DFN(.1)
    9.2 = S Y(470,52,80)=$S($D(D0):D0,1:""),Y(470,52,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,52,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,52,101)=$S($D(^DPT(D0,.1)):^(.1),1:"")
  • ALGORITHM:  S X="",DFN=$S($D(DA):DA,$D(D0):D0,1:"") I DFN["" D DGINPW^PRPFU1 S X=DFN(.1) K DFN(.1)
  • LAST EDITED:  FEB 19, 1992
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53 CLAIM NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(470,53,9.2) S X=$P(Y(470,53,101),U,3) S D0=Y(470,53,80)
    9.2 = S Y(470,53,80)=$S($D(D0):D0,1:""),Y(470,53,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,53,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,53,101)=$S($D(^DPT(D0,.31)):^(.31),1:"")
  • ALGORITHM:  NAME:CLAIM NUMBER
54 STREET ADDRESS COMPUTED

  • MUMPS CODE:  X ^DD(470,54,9.2) S X=$P(Y(470,54,101),U,1) S D0=Y(470,54,80)
    9.2 = S Y(470,54,80)=$S($D(D0):D0,1:""),Y(470,54,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,54,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,54,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
  • ALGORITHM:  NAME:STREET ADDRESS
55 STREET ADDRESS 2 COMPUTED

  • MUMPS CODE:  X ^DD(470,55,9.2) S X=$P(Y(470,55,101),U,2) S D0=Y(470,55,80)
    9.2 = S Y(470,55,80)=$S($D(D0):D0,1:""),Y(470,55,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,55,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,55,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
  • ALGORITHM:  NAME:STREET ADDRESS 2
56 STREET ADDRESS 3 COMPUTED

  • MUMPS CODE:  X ^DD(470,56,9.2) S X=$P(Y(470,56,101),U,3) S D0=Y(470,56,80)
    9.2 = S Y(470,56,80)=$S($D(D0):D0,1:""),Y(470,56,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,56,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,56,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
  • ALGORITHM:  NAME:STREET ADDRESS 3
57 CITY COMPUTED

  • MUMPS CODE:  X ^DD(470,57,9.2) S X=$P(Y(470,57,101),U,4) S D0=Y(470,57,80)
    9.2 = S Y(470,57,80)=$S($D(D0):D0,1:""),Y(470,57,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,57,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,57,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
  • ALGORITHM:  NAME:CITY
58 STATE COMPUTED

  • MUMPS CODE:  X ^DD(470,58,9.2) S X=$S('$D(^DIC(5,+$P(Y(470,58,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(470,58,80)
    9.2 = S Y(470,58,80)=$S($D(D0):D0,1:""),Y(470,58,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,58,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,58,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
  • ALGORITHM:  NAME:STATE
  • LAST EDITED:  MAR 11, 1987
59 ZIP CODE COMPUTED

  • MUMPS CODE:  X ^DD(470,59,9.2) S X=$P(Y(470,59,101),U,6) S D0=Y(470,59,80)
    9.2 = S Y(470,59,80)=$S($D(D0):D0,1:""),Y(470,59,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,59,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,59,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
  • ALGORITHM:  NAME:ZIP CODE
60 CARD TO BE PRINTED? 1;13 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
    UNEDITABLE
  • CROSS-REFERENCE:  470^AD
    1)= S ^PRPF(470,"AD",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AD",$E(X,1,30),DA)
61 ON DORMANT ACCOUNT LIST 1;14 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
    UNEDITABLE
  • CROSS-REFERENCE:  470^AE
    1)= S ^PRPF(470,"AE",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AE",$E(X,1,30),DA)
62 ON MIN/MAX1 LIST 1;15 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
    UNEDITABLE
  • CROSS-REFERENCE:  470^AF
    1)= S ^PRPF(470,"AF",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AF",$E(X,1,30),DA)
63 ON MIN/MAX2 LIST 1;16 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
    UNEDITABLE
  • CROSS-REFERENCE:  470^AG
    1)= S ^PRPF(470,"AG",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AG",$E(X,1,30),DA)
64 ACCOUNT OUT OF BALANCE 1;17 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
    UNEDITABLE
  • CROSS-REFERENCE:  470^AH
    1)= S ^PRPF(470,"AH",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AH",$E(X,1,30),DA)
65 ON SUSPENSE DISPLAY LIST 1;18 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
  • HELP-PROMPT:  
    UNEDITABLE
  • CROSS-REFERENCE:  470^AI
    1)= S ^PRPF(470,"AI",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AI",$E(X,1,30),DA)
66 ON ACTIVE ACCOUNT LIST 1;19 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
  • HELP-PROMPT:  
    UNEDITABLE
  • CROSS-REFERENCE:  470^AJ
    1)= S ^PRPF(470,"AJ",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AJ",$E(X,1,30),DA)
67 PRINT ON OVERDUE LIST? 1;20 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 27, 1989
  • HELP-PROMPT:  
    UNEDITABLE
  • CROSS-REFERENCE:  470^AK
    1)= S ^PRPF(470,"AK",$E(X,1,30),DA)=""
    2)= K ^PRPF(470,"AK",$E(X,1,30),DA)
68 RECORD LOCKED 9;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 02, 1988
69 RECORD LOCKED BY 9;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 19, 1995
70 RECORD LOCKED TERMINAL 9;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  MAR 01, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
71 FUTURE MONTH 10;0 DATE Multiple #470.071 470.071
72 FUTURE WEEK 11;0 Multiple #470.072 470.072
73 STATION NAME 12;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUN 06, 2002
  • HELP-PROMPT:  Answer must be 3-5 characters in length
  • DESCRIPTION:  
    This field will be used to store the primary Station Name that a patient is officially assigned to.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All