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

Package: Lab Service

Routine: LRMIPSZ4


Information

LRMIPSZ4 ; IHS/DIR/FJE - MICRO PATIENT REPORT - AFB, FUNGUS 6/22/87 16:17 ;

Source Information

Source file <LRMIPSZ4.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 PRE^LRMIPSU  D^LRU  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRMIPSZ1  LROR4  

Entry Points

Name Comments DBIA/ICR reference
SHOW
LIST1
LIST
FUNG ;from LRMIPSZ1
SEN
TB ;from LRMIPSZ1
AFS

External References

Name Field # of Occurrence
PRE^LRMIPSU TB+4, FUNG+4
D^LRU TB+2, FUNG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: TB+3
Function Call: WRITE
  • Prompt: !,"* MYCOBACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ
  • Line Location: TB+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: TB+7
Function Call: WRITE
  • Prompt: !,"Mycobacteriology Remark(s):"
  • Line Location: TB+7
Function Call: WRITE
  • Prompt: !,?3,^(B,0)
  • Line Location: TB+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: AFS+0
Function Call: WRITE
  • Prompt: !,$S(LRAFS["D":"Direct",LRAFS["C":"Concentrate",1:"")," Acid Fast Stain: ",$S(LRAFS["P":"Positive",LRAFS["N":"Negative",1:LRAFS)," "
  • Line Location: AFS+0
Function Call: WRITE
  • Prompt: !,?3,"Quantity: ",LRAMT
  • Condition for execution: $L(LRAMT)
  • Line Location: AFS+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,"Mycobacterium: ",LRTBC
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,?3,"Quantity: ",LRQU
  • Condition for execution: $L(LRQU)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !," Comment: "
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: ?13,^(B,0),!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !,?3,LRTBA,?20,LRTBS
  • Line Location: SEN+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: FUNG+3
Function Call: WRITE
  • Prompt: !,"* MYCOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => ",Y," TECH CODE: ",DZ
  • Line Location: FUNG+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: FUNG+5
Function Call: WRITE
  • Prompt: !,"MYCOLOGY SMEAR/PREP:"
  • Line Location: FUNG+5
Function Call: WRITE
  • Prompt: !?5,^(LRMYC,0)
  • Line Location: FUNG+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: FUNG+6
Function Call: WRITE
  • Prompt: !,"Fungus/Yeast: "
  • Line Location: FUNG+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: FUNG+7
Function Call: WRITE
  • Prompt: !,"Mycology Remark(s):"
  • Line Location: FUNG+7
Function Call: WRITE
  • Prompt: !,?3,^(LRMYC,0)
  • Line Location: FUNG+7
Function Call: WRITE
  • Prompt: !,LRTBC
  • Line Location: LIST1+0
Function Call: WRITE
  • Prompt: !,?3,"Quantity: ",LRQU
  • Condition for execution: $L(LRQU)
  • Line Location: LIST1+0
Function Call: WRITE
  • Prompt: !,?3,"Comment:"
  • Line Location: LIST1+0
Function Call: WRITE
  • Prompt: !,?3,"Comment:"
  • Line Location: LIST1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.39 SEN
^LAB(61.2 - [#61.2] AFS+1, SHOW
^LR - [#63] TB+1, TB+2, TB+5, TB+7, AFS+1, LIST, LIST+1, SEN, FUNG+1, FUNG+2
, FUNG+5, FUNG+6, FUNG+7, SHOW, LIST1
^TMP("LR" AFS+1!

Label References

Name Line Occurrences
AFS TB+6
LIST AFS+1
LIST1 SHOW
SHOW FUNG+6

Naked Globals

Name Field # of Occurrence
^( TB+7, AFS+1, LIST+1, FUNG+5, FUNG+7, SHOW, LIST1
^(0 TB+5, TB+7, AFS+1, FUNG+6, FUNG+7, SHOW
^(11 TB+2
^(8 FUNG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A AFS+1*
>> B TB+7*, LIST+1*, LIST1*
>> DZ TB+2*, TB+3, FUNG+2*, FUNG+3
>> I TB+7*, LIST+1*, SEN*, FUNG+5*, FUNG+7*, SHOW*, LIST1*
>> LRAFS TB+2*, TB+6, AFS
>> LRAMT TB+2*, AFS
>> LRBUG( AFS+1*, SHOW*
>> LRDFN TB+1, TB+2, TB+5, TB+7, AFS+1, LIST, LIST+1, SEN, FUNG+1, FUNG+2
, FUNG+5, FUNG+6, FUNG+7, SHOW, LIST1
>> LRHC TB+3, TB+7, AFS, LIST, FUNG+3, FUNG+5, FUNG+6, FUNG+7
>> LRIDT TB+1, TB+2, TB+5, TB+7, AFS+1, LIST, LIST+1, SEN, FUNG+1, FUNG+2
, FUNG+5, FUNG+6, FUNG+7, SHOW, LIST1
>> LRMYC FUNG+5*, FUNG+7*
>> LRPRE TB+4*, FUNG+4*
>> LRQU AFS+1*, LIST, SHOW*, LIST1
>> LRSB TB+1, FUNG+1
LRTA TB+5!*, TB+6, AFS+1*, LIST, LIST+1, SEN, SHOW*, LIST1
LRTB SEN*, SEN+1!
LRTBA SEN*, SEN+1!
>> LRTBC AFS+1*, LIST, SHOW*, LIST1
LRTBS SEN*, SEN+1!
LRTSTS AFS+1!*, LIST*
>> LRTUS TB+2*, TB+3, FUNG+2*, FUNG+3
>> LRWRDVEW TB+1, FUNG+1
U TB+1, TB+2, TB+5, TB+7, AFS+1, SEN, FUNG+1, FUNG+2, FUNG+6, FUNG+7
, SHOW
>> Y TB+2*, TB+3, FUNG+2*, FUNG+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All