Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRUMD1

Package: Lab Service

Routine: LRUMD1


Information

LRUMD1 ; IHS/DIR/FJE - MD SELECTED TESTS/PATIENTS 6/16/93 13:24 ;

Source Information

Source file <LRUMD1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 ^LRDPA  YN^LRU  (,EN)^LRUMD2  
VA Fileman 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRUMD  LRUMDP  

Entry Points

Name Comments DBIA/ICR reference
A ;S LRA="" F LR=0:0 D ^LRDPA Q:LRDFN<1 S X=^LRO(69.2,LRAA,7,DUZ,1,0),^(0)=$P(X,U,1,2)_U_LRDFN_U_($P(X,U,4)+1),^(LRDFN,0)=LRDFN_U_$P(Y(0),U,1,3)_"^^^^^^"_$P(Y(0),U,9),^LRO(69.2,LRAA,7,DUZ,1,"C",$P(Y(0),U,1),LRDFN)="" D G
C
B
W
G
H
K
M
L
P
R
T
EN ;from LRUMD, LRUMDP
ASK
SEL

External References

Name Field # of Occurrence
^DIC T+1, M+1
^DIE G
^LRDPA A+1
YN^LRU K
^LRUMD2 R
EN^LRUMD2 C

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You have no patient list. To enter patients answer the following prompt:"
  • Line Location: LRUMD1+4
Function Call: WRITE
  • Prompt: !!,"(R)emove a patient",?19,"(A)dd/edit patients",?45,"(T)ransfer list to another user",!,"(D)elete list",?19,"(P)atient group deletion",?45,"(M)erge list with another user",!,"(S)end list to printer",!
  • Line Location: ASK+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Your patient list has been deleted"
  • Line Location: K+1
Function Call: WRITE
  • Prompt: !!?3,"Transfer patient list to another user (current user list is saved)"
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !,"Transferring"
  • Line Location: T+4
Function Call: WRITE
  • Prompt: !,"Transfer completed."
  • Line Location: T+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!?3,"Merge patient list with another user's list"
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(7),!,"No patient list for ",$P(Y,U,2)
  • Line Location: M+2
Function Call: WRITE
  • Prompt: !,"Merging"
  • Line Location: M+3
Function Call: WRITE
  • Prompt: !,"Merge completed."
  • Line Location: M+6
Function Call: READ
  • Timeout: DTIME
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(13),$J("",80),$C(13)
  • Line Location: P+0
Routine Call
  • DIE
  • Line Location:
    • G
Routine Call
  • DIC
  • Line Location:
    • T+1
    • M+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(69.2 - [#69.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] EN+1, EN+2, SEL
^LRO(69.2 - [#69.2] A+1*, B, K+1!*, T+2, T+3, T+4, T+5*, T+6, T+7, H*
, M+2, M+4*, M+5, EN+1, EN+2, SEL, L, W
^TMP($J EN+1*, EN+2*, SEL*

Label References

Name Line Occurrences
A LRUMD1+4, ASK+3
B K
C ASK+3
G A+1
H T+5, M+4
K ASK+3
L LRUMD1+4
LRUMD1 ASK+3, B, R, C, T+7, M+1, M+2, M+6
M ASK+3
P W
R ASK+3
SEL EN+1
T ASK+3
W L

Naked Globals

Name Field # of Occurrence
^( A+1*, T+5, M+4, EN+1, EN+2, SEL
^(0 A+1*, T+2*, T+3*, T+5*, T+6*, M+4*, M+5*
^(1 T+5, M+4, W

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % K*
>> A T+5*, H, M+4*, EN+1*, EN+2*, SEL*
>> A(1 LRUMD1+4*, W, P*
>> B T+4*, T+5*, T+6, M+3*, M+4*, M+5, EN+1*, EN+2*, SEL*
>> B(1 T+5*, T+6, M+4*, M+5
>> C EN+1*, EN+2*, SEL*
DA G*!
DA(1 G*
DA(2 G*
DIC T+1*!, M+1*!, G!
DIC(0 T+1*, M+1*
DIE G*!
DR G*!
DT T+2
DTIME ASK+1, P
DUZ A+1, B, K+1, T+5, M+4, M+5, EN+1, SEL, L, W
, G
>> HRCN A+1
IOF LRUMD1+4
>> L LRUMD1+4, L*, W
>> L( W*
>> LR A+1*
>> LR( SEL
>> LR(0 EN+1
>> LRA A+1*
>> LRAA A+1, B, K+1, T+2, T+3, T+4, T+5, T+6, T+7, H
, M+2, M+4, M+5, EN+1, EN+2, SEL, L, W, G
>> LRDFN A+1, G
>> LRJ LRUMD1+4*, L, P*
>> LRV ASK+1*, ASK+2*
>> N T+1*, T+2, T+3, T+4, T+5, T+6, T+7, M+1*, M+2, M+4
>> P L*, W
>> P(1 W*
>> R L*, W
U ASK+1, A+1, T+1, M+1, M+2, EN+2
>> X ASK+1*, ASK+2*, ASK+3, A+1*, T+1, T+2*, T+5*, T+6*, H, M+1
, M+4*, M+5*, W*
>> Y T+1, M+1, M+2
>> Y(0 A+1
>> Z T+5*, H, M+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All