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

Package: Lab Service

Routine: LRKDIFF1


Information

LRKDIFF1 ;SLC/RWF,LL/RES- KEYBOARD DIFF PART 2 ; 7/14/87 08:02 ; [ 10/14/90 8:56 PM ]

Source Information

Source file <LRKDIFF1.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
COUNT
HD4
HD3
HELP
HD1
COM2
STOP
TWO
MINUS
DONE
EVAL
MI2
COM
CHECK
STORE
HD2

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: A+4
Function Call: WRITE
  • Prompt: !,"WBC: "
  • Line Location: A+4
Function Call: WRITE
  • Prompt: $J(TOTAL,3)
  • Line Location: COUNT+0
Function Call: WRITE
  • Prompt: *7
  • 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: *7
  • Condition for execution: TOTAL<100
  • Line Location: STOP+0
Function Call: WRITE
  • Prompt: !!!,"* YOU HAVE COUNTED ",TOTAL," CELLS *"
  • Line Location: STOP+0
Function Call: READ
  • Prompt: "ARE YOU FINISHED WITH THE WBC CELL COUNT: (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: *7
  • Line Location: EVAL+0
Function Call: WRITE
  • Prompt: *7,!,"NOTE: ONLY ",TOTAL," CELLS COUNTED",!!
  • Line Location: EVAL+1
Function Call: WRITE
  • Prompt: !,"TEST",?12,"Count Value"
  • Line Location: EVAL+2
Function Call: WRITE
  • Prompt: !?2,^UTILITY("LA",$J,I,.1),": ",?12
  • Line Location: EVAL+2
Function Call: WRITE
  • Prompt: !?2,^UTILITY("LA",$J,I,.1),": ",?12
  • Line Location: EVAL+2
Function Call: WRITE
  • Prompt: !?2,^UTILITY("LA",$J,I,.1),": ",?12
  • Line Location: EVAL+2
Function Call: WRITE
  • Prompt: !,"TOTAL: ",TOTAL,!
  • Line Location: EVAL+3
Function Call: READ
  • Timeout: 1
  • Variable: X#1
  • Line Location: TWO+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: TWO+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: TWO+1
Function Call: WRITE
  • Prompt: *7,!!!,"100 CELLS COUNTED, CONTINUE COUNTING TO 200 OR STOP (C/S) S//"
  • Line Location: TWO+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: TWO+1
Function Call: READ
  • Prompt: "SUBTRACT WHICH CELL TYPE: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: TYPE#1
  • Line Location: MINUS+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: MINUS+2
Function Call: WRITE
  • Prompt: @IOF,!!,"Patient name: ",PNM,?45,"HRCN: ",HRCN
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: !,?3,"WBC MORPHOLOGY ('?' = DISPLAY, '!' = COMMENTS, '-' = MINUS, <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: !,?18,"TOTAL:",$J(TOTAL,3)," "
  • Line Location: HD3+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)
^LAB(60 - [#60] HD4+1
^LR - [#63] HD4+1
^UTILITY("LA" A+1, EVAL+2, STORE
^UTILITY($J A, A+1*, A+2, HELP+1, EVAL+2, STORE

Label References

Name Line Occurrences
@( CHECK+1
CHECK A+4
COM2 COM
DONE DONE+1
EVAL COUNT+1, STOP
HD1 A+3, DONE+2, EVAL, COM2
HD2 A+3, DONE+2, COM2
HD3 MI2
HD4 A+3, COM2
MI2 MINUS+1
MINUS MINUS+2
STORE A+5
TWO EVAL+3, TWO+1

Naked Globals

Name Field # of Occurrence
^( A, A+1, HELP+1, EVAL+2, STORE, HD4+1
^(4 A+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A A+3*, A+6!
>> C HD4+1*
CHK A+6!
CONT A+6!
DTIME A+4, DONE, TWO+1, MINUS, COM
>> DX A+4*, COUNT*, HELP+1*, MINUS*, HD2*, HD3*
>> DY A+4*, COUNT*, HELP+1*, MINUS*, HD2*, HD3*
>> FLAG A+3*, A+4, CHECK*, DONE*, DONE+2*, TWO+1*, MINUS*, MINUS+1*
>> HRCN HD1
>> I A*, A+1*, A+2*, HELP+1*, EVAL+2*, TWO*, STORE*, HD2*, HD4+1*
>> I1 HELP+1*
IOF HD1
J A+4*, A+6!
>> K A*, HELP+1*, EVAL+2*, STORE*
KEY A!*, A+6!, CHECK+1, MINUS+2
KEY( A*
L A+6!
>> LINE CHECK+1*
>> LRDAT HD4+1
>> LRDFN HD4+1
>> LRDY HELP+1, HD2*
NC A!, A+6!
NC( A*, COUNT, MINUS+3
>> PNM HD1
>> RMK COM*, COM+1*
STORE A+3*, A+4, A+5, A+6!, DONE+2*, EVAL+3, TWO+2*
T1 A!, A+2*, A+6!, HD2
T1( A+2*, HD2
T1(1 A+2*
T2 A!, A+1*, A+2, A+6!, HELP+1
T2( A+2*, HD2
T2(1 A+2*
TEMP A+6!
TOTAL A+3*, A+4, A+5, A+6!, COUNT*, COUNT+1, STOP, DONE+2, EVAL+1, EVAL+3
, MINUS+3*, HD3
TY A!
TY( A*, COUNT+1*, HELP+1, EVAL+2, STORE, MINUS+3*
>> TYPE A+4*, CHECK, CHECK+1, COUNT, COUNT+1, HELP, MINUS*, MINUS+1, MINUS+2, MINUS+3
U A+2, CHECK, DONE+2, MINUS+1, HD4+1
>> V EVAL+2*, STORE*, HD4+1*
>> X A+1*, A+2*, HELP+1*, DONE*, DONE+1*, DONE+2*, TWO*, TWO+1*, TWO+2, HD4+1*
, COM+1
>> XY A+4, COUNT, HELP+1, MINUS, HD2, HD3
>> Y A+1*, 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