Routine: LA7SMP0

Package	Total	Call Graph
Automated Lab Instruments	3	$$BC128^LA7SBC $$SSCFG^LA7SUTL $$GETORDA^LA7VORM1
Kernel	3	^%ZISC $$S^%ZTLOAD ($$DT,$$FMTE,$$HTE)^XLFDT
VA Fileman	2	($$GET1,GETS)^DIQ ^DIR
IHS Patient	1	$$HRN^AUPNPAT
Lab Service	1	(KVAR,PT)^LRX
Uncategorized	1	$$GETICN^MPIF001

Package	Total	Caller Graph
Automated Lab Instruments	2	LA7SMP LA7SMPXL
IHS Changes To Lab	2	BLRAG09D BLRAG09F

Name	Comments	DBIA/ICR reference
SBC2	; Patient bar codes
WARN	; Write warning for work copy.
TERM	;
SBC1	; Site bar codes
END	;
PROV(LA7OP)	; Print ordering provider contact on working copy ; Call with LA7OP = provider's file #200 ien
PTID	; Get/setup patient identifier information
HED	; Header
OCMT(UID)	;now check here for order comment
INIT	; Initialize variables
SH	; Subheader
KILL	; Cleanup variables
CMT	; Print comments on manifest

Name	Field # of Occurrence
^%ZISC	END+3
$$S^%ZTLOAD	HED+19
$$HRN^AUPNPAT	SH+6
$$GET1^DIQ	HED+29, HED+30, SH+15, SH+21, SH+29, SH+33, SH+37, SH+41, SH+44
GETS^DIQ	PROV+4
^DIR	TERM+4
$$BC128^LA7SBC	SBC1+12, SBC2+11, SBC2+20
$$SSCFG^LA7SUTL	INIT+6
$$GETORDA^LA7VORM1	SH+9, OCMT+3
KVAR^LRX	KILL+8
PT^LRX	PTID+2
$$GETICN^MPIF001	PTID+8
$$DT^XLFDT	INIT+2
$$FMTE^XLFDT	SH+13, SH+15, SH+16, SH+43
$$HTE^XLFDT	HED+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HED+2
Function Call: WRITE	Prompt: !,?1,"Shipping Manifest: ",$P(LA7SM,"^",2) Line Location: HED+6
Function Call: WRITE	Prompt: ?IOM-37," Page: ",LA7PAGE Line Location: HED+9
Function Call: WRITE	Prompt: !,?11,"to Site: ",LA7TSITE Line Location: HED+10
Function Call: WRITE	Prompt: ?IOM-40," Printed: ",LA7NOW Line Location: HED+11
Function Call: WRITE	Prompt: !,?9,"from Site: ",LA7FSITE Line Location: HED+12
Function Call: WRITE	Prompt: !,?6,"Date Shipped: ",$P(LA7SDT,"^",2) Line Location: HED+14
Function Call: WRITE	Prompt: !,?12,"Status: ",$P(LA7SMST,"^",2) Line Location: HED+15
Function Call: WRITE	Prompt: ?IOM-41," Ship via: ",LA7SVIA Line Location: HED+16
Function Call: WRITE	Prompt: !!,"* Report requested to stop by TaskMan *" Line Location: HED+21
Function Call: WRITE	Prompt: !,"* Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," *" Line Location: HED+22
Function Call: WRITE	Prompt: !,LA7LINE Line Location: HED+26
Function Call: WRITE	Prompt: !!,"Following Required Information and/or Test Codes Missing",!! Line Location: HED+27
Function Call: WRITE	Prompt: !,"Shipping Condition: ",$S(LA7SCOND:$$GET1^DIQ(62.93,LA7SCOND_",",.01),1:"None Specified") Line Location: HED+29
Function Call: WRITE	Prompt: ?(IOM-42)," Container: ",$S(LA7SCONT:$$GET1^DIQ(62.91,LA7SCONT_",",.01),1:"None Specified") Line Location: HED+30
Function Call: WRITE	Prompt: !,?4,"Account Number: ",$P(LA7SCFG(0),"^",13) Line Location: HED+32
Function Call: WRITE	Prompt: !!,?11,"Patient Name",?41,"Patient ID",?64,"Lab Reference #" Line Location: HED+36
Function Call: WRITE	Prompt: ?86,"Requested By" Line Location: HED+37
Function Call: WRITE	Prompt: !,?11,"Date of Birth",?41,"Sex",?64,"Specimen UID" Line Location: HED+38
Function Call: WRITE	Prompt: ?86,"Collect Date/Time" Line Location: HED+39
Function Call: WRITE	Prompt: !,?11,"Requested By",?41,"Collect Date/Time" Line Location: HED+40
Function Call: WRITE	Prompt: !,LA7LINE Line Location: HED+41
Function Call: WRITE	Prompt: !,"Item: ",LA7ITEM Line Location: SH+1
Function Call: WRITE	Prompt: ?11,PNM Line Location: SH+2
Function Call: WRITE	Prompt: ?41,LA7ICN Line Location: SH+3
Function Call: WRITE	Prompt: ?41,$S(LRDPF=2:SSN,1:SSN(2)) Line Location: SH+4
Function Call: WRITE	Prompt: ?41,$S(LRDPF=2:$$HRN^AUPNPAT(DFN,DUZ(2)),1:"") Line Location: SH+6
Function Call: WRITE	Prompt: ?64,$$GETORDA^LA7VORM1(LA7UID) Line Location: SH+9
Function Call: WRITE	Prompt: ?86,$P(LA7PROV,"^",2) Line Location: SH+10
Function Call: WRITE	Prompt: ! Line Location: SH+11
Function Call: WRITE	Prompt: "Cont'd" Line Location: SH+12
Function Call: WRITE	Prompt: ?11,$$FMTE^XLFDT(DOB),?41,$S(SEX="M":"Male",SEX="F":"Female",SEX="":"Unknown",1:SEX),?64,LA7UID Line Location: SH+13
Function Call: WRITE	Prompt: !,?11,$E($P(LA7PROV,"^",2),1,28),?41,$S(LA7CDT:$$FMTE^XLFDT(LA7CDT,"1M"),1:LA7CDT) Line Location: SH+14
Function Call: WRITE	Prompt: !,?11,$$GET1^DIQ(200,$P(LA7PROV,"^"),41.99)_"-"_$E($P(LA7PROV,"^",2),1,19),?41,$S(LA7CDT:$$FMTE^XLFDT(LA7CDT,"1M"),1:LA7CDT) Line Location: SH+15
Function Call: WRITE	Prompt: ?86,$S(LA7CDT:$$FMTE^XLFDT(LA7CDT,"1M"),1:LA7CDT) Line Location: SH+16
Function Call: WRITE	Prompt: ! Line Location: SH+17
Function Call: WRITE	Prompt: !,?11,"Specimen Container: ",X Line Location: SH+22
Function Call: WRITE	Prompt: !,?11,"Collection sample: ",$P(LA762(0),"^") Line Location: SH+25
Function Call: WRITE	Prompt: !,?11,"Patient Height: ",$P(LA7X,"^",2)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",3)_",",.01) Line Location: SH+29
Function Call: WRITE	Prompt: ?40 Line Location: SH+31
Function Call: WRITE	Prompt: !,?11 Line Location: SH+32
Function Call: WRITE	Prompt: "Patient Weight: ",$P(LA7X,"^",5)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",6)_",",.01) Line Location: SH+33
Function Call: WRITE	Prompt: !,?11,"Collection Volume: ",$P(LA7X,"^",2)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",3)_",",.01) Line Location: SH+37
Function Call: WRITE	Prompt: ?40 Line Location: SH+39
Function Call: WRITE	Prompt: !,?11 Line Location: SH+40
Function Call: WRITE	Prompt: "Collection Weight: ",$P(LA7X,"^",9)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",10)_",",.01) Line Location: SH+41
Function Call: WRITE	Prompt: !,?11,"Collection End Date/Time: ",$$FMTE^XLFDT($P(LA7X,"^",5),"1M") Line Location: SH+43
Function Call: WRITE	Prompt: " (Duration: ",$P(LA7X,"^",6)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",7)_",",.01),")" Line Location: SH+44
Function Call: WRITE	Prompt: ?$S(IOM<131:5,1:40),"* DO NOT USE FOR SHIPPING DOCUMENT - WORK COPY ONLY *" Line Location: WARN+1
Function Call: WRITE	Prompt: !,?18,"SM: ",$$BC128^LA7SBC(LA7SM("BARCODE"),1,60,"","",2),! Line Location: SBC1+12
Function Call: WRITE	Prompt: !!,?18,"PD: ",$$BC128^LA7SBC(LA7SDATA,1,60,"","",2),! Line Location: SBC2+11
Function Call: WRITE	Prompt: !,?11,$E(LA7LINE,1,69) Line Location: SBC2+12
Function Call: WRITE	Prompt: !,?$S(IOM<131:18,1:50),"PD1: ",$$BC128^LA7SBC(LA7SDATA,1,60,"","",2),! Line Location: SBC2+20
Function Call: WRITE	Prompt: ! Line Location: CMT+5
Function Call: WRITE	Prompt: !,?11,LA7CMT(LA7I,0) Line Location: CMT+7
Function Call: WRITE	Prompt: !,?11,$G(^LRO(69,ORDD,1,ORDI,2,ORDA,1,ORDB,0)) Line Location: OCMT+11
Function Call: WRITE	Prompt: !,?11,X,"Phone: ",LA7OP(LA7OP,200,LA7OP_",",.132,"E") Line Location: PROV+8
Function Call: WRITE	Prompt: !,?11 Line Location: PROV+13
Function Call: WRITE	Prompt: X,"Voice Pager: ",LA7OP(LA7OP,200,LA7OP_",",.137,"E") Line Location: PROV+15
Function Call: WRITE	Prompt: !,?11 Line Location: PROV+20
Function Call: WRITE	Prompt: X,"Digital Pager: ",LA7OP(LA7OP,200,LA7OP_",",.138,"E") Line Location: PROV+22
Function Call: WRITE	Prompt: ! Line Location: PROV+25
Function Call: WRITE	Prompt: @IOF Line Location: TERM+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIR Line Location: TERM+4

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ, GETS^DIQ
^LAHM(62.91 - [#62.91]	GET1^DIQ
^LAHM(62.93 - [#62.93]	GET1^DIQ
^LAB(64.061 - [#64.061]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LPC"	SBC1+10
^%ZOSF("TEST"	PTID+6
^LAHM(62.9 - [#62.9]	INIT+8
^LR - [#63]	PTID+2
^LRO(68 - [#68]	SH+25
^LRO(69 - [#69]	OCMT+5, OCMT+7, OCMT+8, OCMT+9, OCMT+10, OCMT+11
^TMP("LA7ERR"	KILL+6!
^TMP("LA7SM"	KILL+6!
^TMP("LA7SMRI"	SH+27, SH+35, KILL+6!
^TMP($J	KILL+7!

Name	Line Occurrences
HED	CMT+6
PROV	SH+19
SBC1	HED+34
SBC2	SH+46
TERM	HED+1, END+1
WARN	HED+4, HED+7, CMT+5

Name	Field # of Occurrence
^(0	PTID+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KILL+1!
%DT	KILL+1!
%ZIS	KILL+1!
A	KILL+1!
AGE	KILL+1!
DA	KILL+1!
DFN	SH+6, PTID+2*, PTID+8, KILL+1!
DIB	KILL+1!
DIC	KILL+1!
DIR	TERM+3~, KILL+1!
DIR(0	TERM+4*
DIRUT	TERM+3~, TERM+4, KILL+1!
>> DOB	SH+13, SBC2+16, SBC2+18
DT	INIT+2*
DTOUT	TERM+3~, KILL+1!
DUOUT	TERM+3~, KILL+1!
DUZ(2	SH+6
I	KILL+1!
IO("Q"	KILL+1!
IOF	HED+2, TERM+1, END+2
IOM	HED+4, HED+7, HED+9, HED+11, HED+16, HED+30, HED+37, HED+39, HED+40, SH+10 , SH+15, SH+16, WARN+1, SBC2+20, PROV+13, PROV+20
>> IONOFF	END+2*
IOSL	CMT+4
IOST	HED+1, END+1, END+2
J	KILL+1!
K	KILL+1!
LA760	KILL+4!
>> LA762(0	SH+25
LA762801	KILL+4!
LA762801(0	SH+20, SH+21
LA7AA	SH+25, KILL+2!
LA7ACC	KILL+2!
LA7AD	KILL+2!
LA7AN	KILL+2!
LA7CDT	SH+15, SH+16, SBC2+6, SBC2+9, KILL+2!
LA7CHK	KILL+2!
LA7CMT	CMT+3, KILL+2!
LA7CMT(	CMT+7
LA7DC	SH+12, SH+47*, KILL+2!
LA7END	KILL+2!
LA7ERR	KILL+2!
LA7EV	KILL+2!
LA7EXIT	HED+1, HED+20, CMT+3, CMT+4, TERM+4, END+1, KILL+2!
LA7FSITE	HED+12, KILL+2!
LA7FSITE(99	SBC1+7, SBC1+9, SBC2+6, SBC2+9
LA7I	CMT+2~, CMT+3*, CMT+7, KILL+2!
LA7ICN	PTID+5, PTID+8, PTID+9*, KILL+2!
LA7ITEM	SH+1, KILL+2!
LA7LINE	HED+26, HED+41, SBC2+12, KILL+2!
LA7NLT	KILL+2!
LA7NLTN	KILL+2!
LA7NOW	HED+11, KILL+2!
LA7OP	PROV~, PROV+4, PROV+5, PROV+7, PROV+8, PROV+10, PROV+12, PROV+15, PROV+17, PROV+19 , PROV+22
LA7OP(	PROV+5, PROV+7, PROV+8, PROV+10, PROV+12, PROV+15, PROV+17, PROV+19, PROV+22
LA7PAGE	HED+2, HED+3*, HED+9, CMT+5, TERM+1, KILL+2!
LA7PROV	SH+10, SH+15, SH+19, KILL+2!
LA7QUIT	INIT+3, INIT+7, KILL+3!
LA7ROOT	KILL+3!
LA7SBC	HED+34, SH+46, SBC1+6, SBC1+8, SBC2+5, SBC2+8, SBC2+15, SBC2+17, KILL+3!
LA7SCFG	INIT+6*, INIT+7, INIT+8, KILL+3!
LA7SCFG(0	INIT+8*
LA7SCOND	HED+29, SH+27, SH+35, KILL+3!
LA7SCONT	HED+30, SH+27, SH+35, KILL+3!
LA7SDATA	SBC2+2~, SBC2+6, SBC2+9, SBC2+11, SBC2+16, SBC2+18, SBC2+20
LA7SDT	HED+14, SBC1+7, SBC1+9, KILL+3!
LA7SKIP	KILL+3!
LA7SM	HED+6, SBC1+7, SBC1+9, KILL+3!
LA7SM("BARCODE"	SBC1+4, SBC1+10*, SBC1+12
LA7SM("LPC"	SBC1+10*, SBC2+6, SBC2+9, SBC2+16, SBC2+18
LA7SMR	HED+25, HED+27, KILL+3!
LA7SMST	HED+4, HED+7, HED+14, HED+15, SH+18, KILL+3!
LA7SPEC	KILL+3!
LA7SVIA	HED+16, KILL+3!
LA7TSITE	HED+10, KILL+3!
LA7UID	SH+9, SH+13, SH+27, SH+35, SBC2+6, SBC2+9, KILL+3!
LA7X	SH+27, SH+28, SH+29, SH+30, SH+31, SH+33, SH+35, SH+36, SH+37, SH+38 , SH+39, SH+41, SH+42, SH+43, SH+44, SBC1+5~, SBC1+7, SBC1+9, SBC1+10, KILL+3!
LAST	KILL+1!
LRDFN	PTID+2, KILL+5!
LRDPF	SH+6, PTID+2*, PTID+7, KILL+5!
LRERR	PROV+3~
LRPRAC	KILL+5!
ORD	OCMT+2~, OCMT+3*, OCMT+4, OCMT+5
ORDA	OCMT+2~, OCMT+8*, OCMT+9, OCMT+10, OCMT+11
ORDB	OCMT+2~, OCMT+10*, OCMT+11
ORDD	OCMT+2~, OCMT+5*, OCMT+6, OCMT+7, OCMT+8, OCMT+9, OCMT+10, OCMT+11
ORDI	OCMT+2~, OCMT+7*, OCMT+8, OCMT+9, OCMT+10, OCMT+11
PNM	SH+2, SBC2+16, SBC2+18, KILL+1!
SEX	SH+13, SBC2+6, SBC2+18, KILL+1!
SSN	KILL+1!
SSN(2	SBC2+6, SBC2+9, SBC2+16, SBC2+18
U	PTID+2
UID	OCMT~, OCMT+3, OCMT+9
X	SH+21, SH+22, SBC1+5~, SBC1+10, PTID+6, PROV+3~, PROV+6, PROV+8, PROV+9, PROV+12 , PROV+13, PROV+14, PROV+15, PROV+16, PROV+19, PROV+20, PROV+21, PROV+22, PROV+23*, PROV+25 , TERM+3~, KILL+1!
Y	SBC1+5~, SBC1+10, PROV+3~, PROV+11, PROV+12, PROV+13, PROV+18, PROV+19, PROV+20, TERM+3~ , KILL+1!
Z	KILL+1!
>> ZTQUEUED	HED+19, HED+22, END+3, KILL+10
>> ZTREQ	KILL+10*
>> ZTSTOP	HED+20*

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7SMP0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: