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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRKDIFF2

Package: Lab Service

Routine: LRKDIFF2


Information

LRKDIFF2 ;SLC/RWF,LL/RES- RBC MORPHOLOGY ; 7/14/87 08:01 ; [ 10/14/90 8:57 PM ]

Source Information

Source file <LRKDIFF2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 RW^LRDIED  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRKDIFF  

Entry Points

Name Comments DBIA/ICR reference
A
SET
HD3
HELP
HD1
STOP
COM2
HUH
L
HD2
HELP2
RESULT
EVAL
HD4
WBC
DONE
COM
CHECK
STORE
DELETE

External References

Name Field # of Occurrence
RW^LRDIED COM+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: TYPE#1
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,?40,*13,"RBC: "
  • Line Location: L+0
Function Call: READ
  • Prompt: " "
  • Timeout: DTIME
  • Variable: X
  • Line Location: RESULT+0
Function Call: READ
  • Timeout: 2
  • Variable: X
  • Line Location: HELP2+0
Function Call: WRITE
  • Prompt: !,"You can enter '",$P($P(LRSET,";",K),":",1),"' which stands for ",$P($P(LRSET,";",K),":",2)
  • Line Location: HELP2+1
Function Call: READ
  • Prompt: "Press return to continue "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: HELP2+2
Function Call: READ
  • Timeout: 2
  • Variable: X
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: *13,*7," INVALID RBC CELL KEY"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!!!,?7
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: $J(K,8)
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: " ",%
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: $E(LRSUBS,Y,255)
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: HUH+1
Function Call: WRITE
  • Prompt: !,"YOU CAN ENTER ",$P($P(CODE,";",K),":")," WHICH STANDS FOR ",$P($P(CODE,";",K),":",2)
  • Line Location: HUH+1
Function Call: WRITE
  • Prompt: !,?3,^(.1),": ",@X
  • Line Location: WBC+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: WBC+1
Function Call: READ
  • Prompt: "ARE YOU FINISHED WITH THIS PATIENT (Y/N) Y//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !?2,^UTILITY("LA",$J,I,.1),": ",?12
  • Line Location: EVAL+1
Function Call: WRITE
  • Prompt: $J(V,3)
  • Line Location: EVAL+1
Function Call: WRITE
  • Prompt: @IOF,!!,"Patient name: ",PNM,?45,"HRCN: ",HRCN
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: !,?3,"RBC MORPHOLOGY ('?' = DISPLAY, '!' = COMMENTS, '\' = WBC, <RETURN> = EXIT)"
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !,"KEY",?7,T1(I),!,"TEST",?7,T2(I),!!
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !!,?34,"> CBC PROFILE <",!
  • Line Location: HD4+0
Function Call: WRITE
  • Prompt: $P(^LAB(60,X,0),U,1),": ",$P(V,U,1)_" "_$P(V,U,2),?(I*25)
  • Line Location: HD4+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD4+1
Function Call: READ
  • Timeout: DTIME
  • Variable: RMK
  • Line Location: COM+0
Function Call: WRITE
  • Prompt: !,"Comment: ",RMK,!
  • Line Location: COM+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.04 HELP2
^LAB(60 - [#60] RESULT, HD4+1
^LR - [#63] HD4+1
^UTILITY("LA" A+1, RESULT, DELETE+1, WBC, EVAL+1, STORE
^UTILITY($J A, HELP+1, WBC, EVAL+1, STORE

Label References

Name Line Occurrences
@( CHECK+1
CHECK L
COM2 COM
DONE DONE+1
EVAL STOP
HD1 A+2, HELP2+2, WBC, WBC+1, DONE+2, EVAL, COM2
HD2 A+2, HELP2+2, WBC+1, DONE+2, COM2
HD4 COM2
HELP HD3
HUH SET+1
SET DELETE+1
STORE L+1

Naked Globals

Name Field # of Occurrence
^( A, A+1, HELP+1, WBC, EVAL+1, STORE, HD4+1
^("DD" DELETE+1
^(3 HELP2
^(4 A+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SET*
A L+2!
>> C HD4+1*
CODE L+2!, HUH+1
CONT L+2!
>> DA DELETE+1*, HELP2
DATYP L+2!
DD L+2!, DELETE+1*, HELP2, SET
DONE A+2*, L, L+1, L+2!, DONE+2*
DTIME L, RESULT, HELP2+2, WBC+1, DONE, COM
>> DX L*, HELP2*, HELP+1*
>> DY L*, HELP2*, HELP+1*
>> FLAG A+2*, L, CHECK*, RESULT*, DONE*, DONE+2*
>> HRCN HD1
>> I A*, A+1*, HELP+1*, SET+1*, EVAL+1*, STORE*, HD2*, HD4+1*
>> I1 HELP+1*
IOF HD1
J L*, L+2!
K L+2!, HELP2+1*, HELP+1*, HUH+1*, WBC*
KEY A!*, CHECK+1
KEY( A*, RESULT
>> LINE CHECK+1*
>> LRDAT HD4+1
>> LRDFN HD4+1
>> LRDY HELP+1, HD2*
>> LRSET HELP2+1, SET*, SET+1
>> LRSUBS SET+1*
NC A!
>> PNM HD1
>> RMK COM*, COM+1*
T1 A!, A+1*, HD2
T1( A+1*, HD2
T2 A!, A+1*, HELP+1
T2( A+1*, HD2
TY A!
TY( RESULT, DELETE!, DELETE+1*, HELP+1, EVAL+1, STORE
TYPE L*, L+2!, CHECK, CHECK+1, RESULT, DELETE, DELETE+1, HELP, HD3*
U CHECK, RESULT, DELETE+1, HELP2, SET, DONE+2, HD4+1
>> V EVAL+1*, STORE*, HD4+1*
X A*, A+1*, L+2!, RESULT*, RESULT+1, DELETE, DELETE+1, HELP2*, HELP2+2*, HELP*
, HELP+1*, SET, SET+1*, HUH!, HUH+1!, WBC*, WBC+1*, DONE*, DONE+1*, DONE+2
, EVAL+1*, STORE*, HD4+1*, COM+1
>> XY L, HELP+1
>> Y A+1*, RESULT*, DELETE+1, SET+1*, EVAL+1*, STORE*, COM+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All