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

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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All