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 |  Local Variables |  All
Print Page as PDF
Routine: BLRLB400

Package: IHS Changes To Lab

Routine: BLRLB400


Information

BLRLB400 ;IHS/CIA/PLS - OE/RR Order Lab for MicroCom 400;22-Jul-2005 23:17;SM

Source Information

Source file <BLRLB400.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
Order Entry Results Reporting 2 TEXT^ORQ12  ($$DATE,$$NAME)^ORU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 BLRLBOE  

Entry Points

Name Comments DBIA/ICR reference
OUT() ; EP
TEST ;
AUTOSIZE ;
OPEN(OFX) ;EP
GETTST(Y) ;API TO RETURN TESTNAME

External References

Name Field # of Occurrence
^%ZIS AUTOSIZE+1
^%ZISC AUTOSIZE+5
TEXT^ORQ12 GETTST+2
$$DATE^ORU OUT+7
$$NAME^ORU OUT+4, OUT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "^A22^D45",$C(13)
  • Line Location: OPEN+2
Function Call: WRITE
  • Prompt: "^A49^D91",$C(13)
  • Line Location: OPEN+3
Function Call: WRITE
  • Prompt: "^AB00000000^D23",$C(13)
  • Line Location: OPEN+4
Function Call: WRITE
  • Prompt: "^AB00000000^D24",$C(13)
  • Line Location: OPEN+5
Function Call: WRITE
  • Prompt: "^AB10001011^D21",$C(13)
  • Line Location: OPEN+6
Function Call: WRITE
  • Prompt: "^AB00000000^D22",$C(13)
  • Line Location: OPEN+7
Function Call: WRITE
  • Prompt: "^A3^D97",$C(13)
  • Line Location: OPEN+8
Function Call: WRITE
  • Prompt: "^A85^D95",$C(13)
  • Line Location: OPEN+9
Function Call: WRITE
  • Prompt: "^A0^D39",$C(13)
  • Line Location: OPEN+10
Function Call: WRITE
  • Prompt: "^D57",$C(13)
  • Line Location: OPEN+11
Function Call: WRITE
  • Prompt: "15,660,203,,,30,0,10,1,"_+$G(OFX),$C(13)
  • Line Location: OPEN+12
Function Call: WRITE
  • Prompt: "1,17,165,28,1,1",$C(13)
  • Line Location: OPEN+13
Function Call: WRITE
  • Prompt: "2,300,165,14,1,1",$C(13)
  • Line Location: OPEN+14
Function Call: WRITE
  • Prompt: "3,17,137,9,1,2",$C(13)
  • Line Location: OPEN+15
Function Call: WRITE
  • Prompt: "4,185,137,10,1,2",$C(13)
  • Line Location: OPEN+16
Function Call: WRITE
  • Prompt: "5,317,137,1,1,2",$C(13)
  • Line Location: OPEN+17
Function Call: WRITE
  • Prompt: "6,17,117,25,1,1",$C(13)
  • Line Location: OPEN+18
Function Call: WRITE
  • Prompt: "7,17,95,24,1,1",$C(13)
  • Line Location: OPEN+19
Function Call: WRITE
  • Prompt: "8,285,95,15,1,1",$C(13)
  • Line Location: OPEN+20
Function Call: WRITE
  • Prompt: "9,17,70,8,1,1",$C(13)
  • Line Location: OPEN+21
Function Call: WRITE
  • Prompt: "10,130,70,24,1,1",$C(13)
  • Line Location: OPEN+22
Function Call: WRITE
  • Prompt: "11,17,46,18,1,1",$C(13)
  • Line Location: OPEN+23
Function Call: WRITE
  • Prompt: "12,210,46,19,1,1",$C(13)
  • Line Location: OPEN+24
Function Call: WRITE
  • Prompt: "13,17,25,38,1,1",$C(13)
  • Line Location: OPEN+25
Function Call: WRITE
  • Prompt: "14,250,2,14,1,2",$C(13)
  • Line Location: OPEN+26
Function Call: WRITE
  • Prompt: "15,22,2,14,40,3,,,2,20",$C(13)
  • Line Location: OPEN+27
Function Call: WRITE
  • Prompt: "^D56",$C(13)
  • Line Location: OPEN+28
Function Call: WRITE
  • Prompt: "^D2",$C(13)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: $$NAME^ORU($G(ORPNAME),""),$C(13)
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: "LB#:"_$G(ORPLB),$C(13)
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: $G(HRCN),$C(13)
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: $$DATE^ORU($G(ORPDOB),"MM/DD/CCYY HR:MIN"),$C(13)
  • Line Location: OUT+7
Function Call: WRITE
  • Prompt: $G(ORPSEX),$C(13)
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: "PHY:"_$$NAME^ORU($G(ORPRPHY),""),$C(13)
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: "LOC:"_$G(ORPLOC),$C(13)
  • Line Location: OUT+10
Function Call: WRITE
  • Prompt: $G(ORPRMBED),$C(13)
  • Line Location: OUT+11
Function Call: WRITE
  • Prompt: $G(ORPURG),$C(13)
  • Line Location: OUT+12
Function Call: WRITE
  • Prompt: "Drawn By:_______________",$C(13)
  • Line Location: OUT+13
Function Call: WRITE
  • Prompt: "CDT:______________",$C(13)
  • Line Location: OUT+14
Function Call: WRITE
  • Prompt: $G(ORPCOT),$C(13)
  • Line Location: OUT+15
Function Call: WRITE
  • Prompt: $G(TST),$C(13)
  • Line Location: OUT+19
Function Call: WRITE
  • Prompt: "LB#:"_$G(ORPLB),$C(13)
  • Line Location: OUT+20
Function Call: WRITE
  • Prompt: $S($G(ORPLB):ORPLB,1:""),$C(13)
  • Line Location: OUT+21
Function Call: WRITE
  • Prompt: "^D3",$C(13)
  • Line Location: OUT+22
Function Call: WRITE
  • Prompt: "^D2",$C(13)
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: "TEST,PATIENT WITH LONG NAME",$C(13)
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: "LB#:3392829",$C(13)
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: 449302,$C(13)
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: "01/12/2005",$C(13)
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: "M",$C(13)
  • Line Location: TEST+7
Function Call: WRITE
  • Prompt: "Phy:SMITH,PHYSICIAN NAMED",$C(13)
  • Line Location: TEST+8
Function Call: WRITE
  • Prompt: "Loc:EMERGENCY ROOM 2ND FLOOR ROOM 103",$C(13)
  • Line Location: TEST+9
Function Call: WRITE
  • Prompt: "R/B: A201-1",$C(13)
  • Line Location: TEST+10
Function Call: WRITE
  • Prompt: "ROUTINE",$C(13)
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: "Drawn By:_______________",$C(13)
  • Line Location: TEST+12
Function Call: WRITE
  • Prompt: "CDT:______________",$C(13)
  • Line Location: TEST+13
Function Call: WRITE
  • Prompt: "TUBE TOP IS MARBLE",$C(13)
  • Line Location: TEST+14
Function Call: WRITE
  • Prompt: "HEPATITIS B SURFACE ANTIGEN",$C(13)
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: "LB#:3392829",$C(13)
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: "3392829",$C(13)
  • Line Location: TEST+17
Function Call: WRITE
  • Prompt: "^D3",$C(13)
  • Line Location: TEST+18
Function Call: WRITE
  • Prompt: "^A1^D39",$C(13)
  • Line Location: AUTOSIZE+4
Routine Call
  • %ZIS
  • Line Location:
    • AUTOSIZE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] GETTST+2
^TMP("ORP:" GETTST+2*

Label References

Name Line Occurrences
GETTST OUT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> HRCN OUT+6
IO OPEN+1, OUT+2, TEST+1, AUTOSIZE+3
>> OACTION GETTST+2
OFX OPEN~, OPEN+12
>> ORIFN GETTST+2
>> OROOT2 GETTST+2*
>> ORPCOT OUT+15
ORPDAD GETTST+1~, GETTST+2*
>> ORPDOB OUT+7
>> ORPLB OUT+5, OUT+20, OUT+21
>> ORPLOC OUT+10
>> ORPNAME OUT+4
>> ORPRMBED OUT+11
>> ORPRPHY OUT+9
>> ORPSEX OUT+8
>> ORPURG OUT+12
ORZTST OUT+1~, OUT+16
ORZTST(1 OUT+17
>> POP AUTOSIZE+2
SCNT OUT+1~
TST OUT+1~, OUT+17*, OUT+18*, OUT+19
Y GETTST~, GETTST+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All