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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^RTV(195.9

Package: Record Tracking

Global: ^RTV(195.9


Information

FileMan FileNo FileMan Filename Package
195.9 BORROWERS/FILE AREAS Record Tracking

Description

Directly Accessed By Routines, Total: 61

Package Total Routines
Record Tracking 59 INPUT DEVICES    RECORDS NEEDED BY LOCATION    RT BORROWER SET-UP    RT FILE ROOM/REMOTE    RTB    RTCH    RTCU1    RTCX
RTDEL    RTDPA3    RTDPA31    RTDPA32    RTL1    RTNQ2    RTNQ21    RTNQ4
RTP3    RTPSET1    RTQ    RTQ1    RTQ2    RTQ3    RTQ4    RTQ41
RTQ5    RTRPT1    RTRPT2    RTRPT5    RTSM    RTSM4    RTSM5    RTSM6
RTSM61    RTSM7    RTSM8    RTSYS    RTT    RTT1    RTT2    RTT3
RTT4    RTTR1    RTTR2    RTUTL    RTUTL1    RTUTL2    RTUTL3    RTUTL5
RTUTL6    RTXB1    RTXB2    RTXB3    RTXB4    RTXB6    ^RTV(195.9    RTXB5
RTXB7    RTXB8    SYNONYMS    

Accessed By FileMan Db Calls, Total: 18

Package Total Routines
Record Tracking 18 RTCU1    RTDPA    RTDPA2    RTDPA3    RTDPA32    RTP40    RTP41    RTPSET1
RTRPT1    RTRPT2    RTRPT3    RTSM    RTSM7    RTSYS    RTT    RTT2
RTTR    RTTR1    

Pointed To By FileMan Files, Total: 8

Package Total FileMan Files
Record Tracking 8 RECORD TRACKING APPLICATION(#195.1)[4244#195.12(2)#195.13(2)#195.13(5)]    RECORD TYPES(#195.2)[#195.21(.01)]    RECORDS(#190)[6105114]
REQUESTED RECORDS(#190.1)[514]    MISSING RECORDS(#190.2)[5]    RECORD MOVEMENT HISTORY(#190.3)[514]    PULL LIST(#194.2)[516]    BORROWERS/FILE AREAS(#195.9)[12]    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Record Tracking 3 RECORD TRACKING APPLICATION(#195.1)[3#195.9001(3)]    RECORD TYPES(#195.2)[#195.9001(.01)]    BORROWERS/FILE AREAS(#195.9)[12]    
Kernel 2 INSTITUTION(#4)[.01]    NEW PERSON(#200)[.01]    
Registration 2 WARD LOCATION(#42)[.01]    FACILITY TREATING SPECIALTY(#45.7)[172]    
MailMan 1 DOMAIN(#4.2)[21]    
Scheduling 1 HOSPITAL LOCATION(#44)[.012]    

Fields, Total: 25

Field # Name Loc Type Details
.01 NAME 0;1 VARIABLE POINTER
************************REQUIRED FIELD************************
NEW PERSON(#200)  WARD LOCATION(#42)  HOSPITAL LOCATION(#44)  INSTITUTION(#4)  

  • LAST EDITED:  JAN 27, 1987
  • DESCRIPTION:  
    These entries describe entities which can posses records.
  • PRE-LOOKUP:  I X?.N1"/".N,$D(^DIC(+X,0,"GL")) S X=+$P(X,"/",2)_";"_$P(^("GL"),"^",2)
  • CROSS-REFERENCE:  195.9^B
    1)= S ^RTV(195.9,"B",$E(X,1,30),DA)=""
    2)= K ^RTV(195.9,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^195.9^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X[";SC(" I X S X=DIV S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+X X ^DD(195.9,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(195.9,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= INTERNAL(NAME)[";SC("
    CREATE VALUE)= S X=+X
    DELETE VALUE)= @
    FIELD)= HOSPITAL
2 HOSPITAL LOCATION FILE POINTER 0;2 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  APR 24, 1987
  • DESCRIPTION:  
    This defines borrowers who are entries in the hospital location file.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NAME field of the BORROWERS/FILE AREAS File
  • CROSS-REFERENCE:  ^^TRIGGER^195.9^8
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(195.9,2,1,1,1.1) X ^DD(195.9,2,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,99)):^(99),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1
    ,0))>0
    2)= Q
    CREATE VALUE)= HOSPITAL LOCATION FILE POINTER:TELEPHONE
    DELETE VALUE)= NO EFFECT
    FIELD)= PHONE #
  • CROSS-REFERENCE:  ^^TRIGGER^195.9^13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(195.9,2,1,2,1.1) X ^DD(195.9,2,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(102)=$S($D(^SC(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=13 D ^DICR:$N(^DD(DIH,
    DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(195.9,2,1,2,2.4)
    2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=13 D ^DICR:$N(^DD(DIH,
    DIG,1,0))>0
    CREATE VALUE)= HOSPITAL LOCATION FILE POINTER:INTERNAL(LOCATION TYPE)
    DELETE VALUE)= @
    FIELD)= HOSPITAL LOCATION TYPE
  • CROSS-REFERENCE:  ^^TRIGGER^195.9^9
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(195.9,2,1,3,1.1) X ^DD(195.9,2,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0)
    1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=9 D ^DICR:$N(^DD(DIH,DIG,
    1,0))>0
    2)= Q
    CREATE VALUE)= HOSPITAL LOCATION FILE POINTER:PHYSICAL LOCATION
    DELETE VALUE)= NO EFFECT
    FIELD)= LOCATION/ROOM#
3 APPLICATION 0;3 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)
************************REQUIRED FIELD************************
RECORD TRACKING APPLICATION(#195.1)

  • INPUT TRANSFORM:  D DUPCHK^RTDPA32:$D(X)
  • LAST EDITED:  MAY 19, 1987
  • DESCRIPTION:  
    This defines the application associated with the entry in this file.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  195.9^ABOR^MUMPS
    1)= S ^RTV(195.9,"ABOR",$P(^RTV(195.9,DA,0),U),X,DA)=""
    2)= K ^RTV(195.9,"ABOR",$P(^RTV(195.9,DA,0),U),X,DA)
4 RECORD BARCODE PRINTER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)
  • LAST EDITED:  FEB 20, 1987
  • DESCRIPTION:  
    This allows the system to know where to print record barcodes depending on the borrower/file area.
  • EXECUTABLE HELP:  D HELP^RTDPA3
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  195.9^AC
    1)= S ^RTV(195.9,"AC",$E(X,1,30),DA)=""
    2)= K ^RTV(195.9,"AC",$E(X,1,30),DA)
5 REQUEST NOTICE PRINTER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X I $D(X),'$D(RTREMOTE) D PRT^RTDPA3
  • LAST EDITED:  FEB 24, 1991
  • DESCRIPTION:  
    This allows the system to know where to print requests for records.
  • EXECUTABLE HELP:  D HELP^RTDPA3
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 MANAGEMENT REPORT PRINTER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)
  • LAST EDITED:  JAN 30, 1987
  • DESCRIPTION:  
    This allows the system to know where to print management reports.
  • EXECUTABLE HELP:  D HELP^RTDPA3
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 PHONE/LOCATION COMBO 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-21 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This defines the phone number and location in a dynamic format for descriptions of borrowers/file areas.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PHONE # field of the BORROWERS/FILE AREAS File
    TRIGGERED by the LOCATION/ROOM# field of the BORROWERS/FILE AREAS File
8 PHONE # 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  SEP 29, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This defines the phone number of the borrower/file areas.
  • NOTES:  TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the BORROWERS/FILE AREAS File
  • CROSS-REFERENCE:  ^^TRIGGER^195.9^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,8,1,1,1.1) X ^DD(195.9,8,1,1,1.4)
    1.1)= S X=DIV X ^DD(195.9,8,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(3),X=X_Y
    1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1
    ,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,8,1,1,2.1) X ^DD(195.9,8,1,1,2.4)
    2.1)= S X=DIV S Y(2)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X="/",Y(1)=X S X=$P(Y(2),U,9),Y(3)=X S X=1,Y(4)=X S X=10,X=$E(Y(3),Y(4),X) S Y=X,X=Y(1),X=X_Y
    2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1
    ,0))>0
    49.2)= S Y(4)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=DIV,Y(1)=X S X=1,Y(2)=X S X=10,X=$E(Y(1),Y(2),X)_"/",Y(3)=X S X=$P(Y(4),U,9),Y(5)=X S X=1,Y(6)=X S X=10
    CREATE VALUE)= $E(#8,1,10)_"/"_$E(#9,1,10)
    DELETE VALUE)= "/"_$E(#9,1,10)
    FIELD)= PHONE/LOCATION COMBO
9 LOCATION/ROOM# 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  SEP 29, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This defines the location of a borrower/file areas.
  • NOTES:  TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the BORROWERS/FILE AREAS File
  • CROSS-REFERENCE:  ^^TRIGGER^195.9^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,9,1,1,1.1) X ^DD(195.9,9,1,1,1.4)
    1.1)= S X=DIV X ^DD(195.9,9,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y
    1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1
    ,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,9,1,1,2.1) X ^DD(195.9,9,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),Y(2)=X S X=1,Y(3)=X S X=10,X=$E(Y(2),Y(3),X)_"/"
    2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1
    ,0))>0
    49.2)= S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),Y(2)=X S X=1,Y(3)=X S X=10,X=$E(Y(2),Y(3),X)_"/",Y(4)=X S X=DIV,Y(5)=X S X=1,Y(6)=X S X=10
    CREATE VALUE)= $E(#8,1,10)_"/"_$E(#9,1,10)
    DELETE VALUE)= $E(#8,1,10)_"/"
    FIELD)= PHONE/LOCATION COMBO
10 BORROWING PRIVILEGES 0;10 SET
  • 'n' FOR NORMAL;
  • 'i' FOR INACTIVATED;
  • 'r' FOR REVOKED;

  • LAST EDITED:  FEB 17, 1987
  • DESCRIPTION:  
    NORMAL means records may be charged to the borrower/file area.  INACTIVATED means records will not normally be charged.  REVOKED means records may not be charged to this borrower/file area.
11 RECORD SORT 0;11 SET
  • 'a' FOR ALPHA;
  • 't' FOR TERMINAL DIGITS;

  • LAST EDITED:  SEP 29, 1986
  • DESCRIPTION:  
    ALPHA means record lists are sorted alphabetically.  TERMINAL DIGIT means record lists are sorted by social security number in right to left order.
12 REQUESTS FOR WHICH BORROWER? 0;12 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  D BOR^RTDPA31 S DIC("S")="I $D(D0),$P(^RTV(195.9,D0,0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 18, 1987
  • DESCRIPTION:  
    This allows the system to query for a associated borrower/file area when a borrower is selected.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^RTV(195.9,D0,0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"
  • EXPLANATION:  Allows borrowers associated with same application.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13 HOSPITAL LOCATION TYPE 0;13 SET
  • 'C' FOR CLINIC;
  • 'F' FOR FILE AREA;
  • 'I' FOR IMAGING;
  • 'M' FOR MODULE;
  • 'N' FOR NON-CLINIC STOP;
  • 'W' FOR WARD;
  • 'Z' FOR OTHER;

  • LAST EDITED:  MAR 14, 1987
  • DESCRIPTION:  
    This defines the hospital location type when a borrower is an entry in the hospital location file.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the BORROWERS/FILE AREAS File
14 ARE RECORDS REQUIRED? 0;14 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  APR 07, 1987
  • DESCRIPTION:  
    YES means request a record when a patient visit is scheduled.  NO means records are not required.
15 ACTION IF HOME IS DIFFERENT 0;15 SET
  • 'n' FOR NO ACTION;
  • 'a' FOR AUTOMATICALLY CHANGE;
  • 'q' FOR QUESTION USER ABOUT CHANGE;
  • 'd' FOR DISPLAY WARNING ONLY;

  • LAST EDITED:  MAY 08, 1987
  • DESCRIPTION:  
    These actions take place when the device of the user is not associated with the file room where the user is logged in.
21 DOMAIN FILE POINTER 1;1 POINTER TO DOMAIN FILE (#4.2) DOMAIN(#4.2)

  • LAST EDITED:  SEP 18, 1991
  • CROSS-REFERENCE:  195.9^AE
    1)= S ^RTV(195.9,"AE",$E(X,1,30),DA)=""
    2)= K ^RTV(195.9,"AE",$E(X,1,30),DA)
    Used for remote site profile
22 REMOTE MAIL GROUP 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 23, 1991
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
23 MAIL ROUTING SYMBOL 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 23, 1991
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
50 RECORDS NEEDED BY LOCATION RECS;0 POINTER Multiple #195.9001 195.9001

  • DESCRIPTION:  
    This defines the record types, volumes and application for records which are normally needed when a particular borrower requests records.
  • SCREEN:  S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""),1:0)"
  • EXPLANATION:  Allows only active record types.
75 WHICH SECURITY KEY IS NEEDED? KEY;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X I $D(X) S DIC(0)="EM",DIC="^DIC(19.1,",DIC("S")="I $E(^(0),1,2)=""RT""" D ^DIC K DIC S DIC=DIE,X=$P(Y,U,2) K:Y<0 X
  • LAST EDITED:  MAY 19, 1987
  • DESCRIPTION:  
    This defines a security key to be associated with a file area to limit system actions normally associated only with file areas.
  • EXECUTABLE HELP:  S DIC("S")="I $E(^(0),1,2)=""RT""",DIC="^DIC(19.1,",DIC(0)="E" D ^DIC K DIC S DIC=DIE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
100 INPUT DEVICES DEV;0 Multiple #195.9002 195.9002

  • DESCRIPTION:  
    This allows the system to know the borrower/file area associated with the user logged on the system.
125 NO. OF RECORDS CHARGED COMPUTED

  • MUMPS CODE:  S X=$S('$D(D0):"",D0<0:"",1:D0) D COUNT^RTDPA3 S X=$J(X,0,0)
  • ALGORITHM:  RT RECORDS CHARGED(NUMBER) (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  MAR 06, 1987
  • DESCRIPTION:  
    This defines the number of records currently charged to this borrower.
150 SYNONYMS S;0 Multiple #195.9003 195.9003

  • DESCRIPTION:  
    This allows a particular borrower to be selected by short notation.
171 SCHEDULED ADMISSION BORROWER ADM;1 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  DEC 18, 1990
  • CROSS-REFERENCE:  195.9^AD
    1)= S ^RTV(195.9,"AD",$E(X,1,30),DA)=""
    2)= K ^RTV(195.9,"AD",$E(X,1,30),DA)
172 TREATING SPECIALTY ADM;2 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  DEC 18, 1990

Found Entries, Total: 1

NAME: 195.4^2^MISSING RECORD    

External References

Name Field # of Occurrence
^DIC 12+1, 75+1, 75(HELP )
^DICR .01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
COUNT^RTDPA3 125+1
HELP^RTDPA3 4(HELP ), 5(HELP ), 6(HELP )
PRT^RTDPA3 4+1, 5+1, 6+1
BOR^RTDPA31 12+1
DUPCHK^RTDPA32 3+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
^DD(195.9 .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1K), 9(XREF 1S)
9(XREF 1n1.1), 9(XREF 1K)
^DIC - [#1] .01TPL+1
^DIC(195.1 - [#195.1] IDWRITE+1
^DIC(4 - [#4] IDWRITE+1
^RTV(195.9 - [#195.9] IDWRITE+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S)
2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.4), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K), 8(XREF 1S)
8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4)
9(XREF 1n49.2), 21(XREF 1S), 21(XREF 1K), 171(XREF 1S), 171(XREF 1K)
^SC - [#44] IDWRITE+1, 2(XREF 1n1.1), 2(XREF 2n1.1), 2(XREF 3n1.1)

Naked Globals

Name Field # of Occurrence
^("GL" .01TPL+1
^(0 IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2n1.4)
2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4)
8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2)
^(99 2(XREF 1n1.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % .01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
>> D0 .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2K), 2(XREF 3S), 2(XREF 3n1.1), 8(XREF 1S)
8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n49.2), 125+1
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 3(XREF 1S), 3(XREF 1K)
4(XREF 1S), 4(XREF 1K), 8(XREF 1S), 8(XREF 1K), 9(XREF 1S), 9(XREF 1K), 21(XREF 1S), 21(XREF 1K), 171(XREF 1S), 171(XREF 1K)
DIC IDWRITE+1, 12+1!*, 75+1*!, 75(HELP )
DIC("S" .01VPSCR2+1*, .01VPSCR3+1*, 12+1*, 12SCR+1*, 75+1*, 75(HELP )
DIC(0 75+1*, 75(HELP )
>> DIE 12+1, 75+1, 75(HELP )
>> DIG .01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
>> DIU .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4)
2(XREF 3S), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.4)
DIV .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2n1.4)
2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1)
8(XREF 1n2.4), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.1), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4)
2(XREF 3S), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.4)
>> I(0 2(XREF 1n1.1), 2(XREF 2n1.1), 2(XREF 3n1.1)
>> RTREMOTE 5+1
U IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.1)
2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1n1.4)
8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2)
, 75+1
X .01TPL+1*, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4)
2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 3+1, 3(XREF 1S)
3(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1!, 6+1!, 7+1!, 8+1!, 8(XREF 1S), 8(XREF 1n1.1)
8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4), 8(XREF 1n49.2), 9+1!, 9(XREF 1S), 9(XREF 1n1.1), 9(XREF 1n1.4), 9(XREF 1K)
9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2), 12+1*!, 21(XREF 1S), 21(XREF 1K), 22+1!, 23+1!, 75+1!*, 125+1*
171(XREF 1S), 171(XREF 1K)
Y IDWRITE+1, .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1K)
8(XREF 1n2.1), 9(XREF 1S), 9(XREF 1n1.1), 9(XREF 1K), 12+1, 75+1
Y(0 .01(XREF 2S)
Y(1 .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 8(XREF 1S), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n49.2)
9(XREF 1S), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n49.2)
Y(101 2(XREF 1n1.1), 2(XREF 2n1.1), 2(XREF 3n1.1)
Y(102 2(XREF 2n1.1)
Y(2 8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1n2.1), 9(XREF 1n49.2)
Y(3 8(XREF 1n1.1), 8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1n2.1), 9(XREF 1n49.2)
Y(4 8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1n1.1), 9(XREF 1n49.2)
Y(5 8(XREF 1n1.1), 8(XREF 1n49.2), 9(XREF 1n1.1), 9(XREF 1n49.2)
Y(6 8(XREF 1n1.1), 8(XREF 1n49.2), 9(XREF 1n1.1), 9(XREF 1n49.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All