Routine: LA7SMP0

Package	Total	Call Graph
Kernel	4	^%ZISC $$S^%ZTLOAD $$CRC16^XLFCRC ($$DT,$$FMTE,$$HTE)^XLFDT
Automated Lab Instruments	2	$$BC128^LA7SBC $$SSCFG^LA7SUTL
VA FileMan	2	($$GET1,GETS)^DIQ ^DIR
Lab Service	1	(KVAR,PT)^LRX
Master Patient Index VistA	1	$$GETICN^MPIF001

Package	Total	Caller Graph
Automated Lab Instruments	2	LA7SMP LA7SMPXL

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

Name	Field # of Occurrence
^%ZISC	END+3
$$S^%ZTLOAD	HED+23
$$GET1^DIQ	SH+34, SH+42, SH+46, SH+50, SH+54, SH+57
GETS^DIQ	PROV+4
^DIR	TERM+4
$$BC128^LA7SBC	SBC1+12, SBC2+11, SBC2+20
$$SSCFG^LA7SUTL	INIT+6
KVAR^LRX	KILL+7
PT^LRX	PTID+2
$$GETICN^MPIF001	PTID+7
$$CRC16^XLFCRC	SH+26
$$DT^XLFDT	INIT+2
$$FMTE^XLFDT	SH+11, SH+17, SH+21, SH+56
$$HTE^XLFDT	HED+26

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-$S(IOM>131:42,1:32))," Page: ",LA7PAGE Line Location: HED+9
Function Call: WRITE	Prompt: !,?11,"to Site: ",LA7TSITE Line Location: HED+10
Function Call: WRITE	Prompt: ?(IOM-$S(IOM>131:45,1:35))," Printed: ",LA7NOW Line Location: HED+12
Function Call: WRITE	Prompt: !,?9,"from Site: ",LA7FSITE Line Location: HED+13
Function Call: WRITE	Prompt: ?(IOM-53),"Electronic Order: ",$S($P(LA7SCFG(0),"^",7):"YES",1:"NO") Line Location: HED+15
Function Call: WRITE	Prompt: ?(IOM-35)," E-Order: ",$S($P(LA7SCFG(0),"^",7):"YES",1:"NO") Line Location: HED+16
Function Call: WRITE	Prompt: !,?6,"Date Shipped: ",$P(LA7SDT,"^",2) Line Location: HED+18
Function Call: WRITE	Prompt: !,?12,"Status: ",$P(LA7SMST,"^",2) Line Location: HED+19
Function Call: WRITE	Prompt: ?(IOM-$S(IOM>131:46,1:36))," Ship via: ",LA7SVIA Line Location: HED+20
Function Call: WRITE	Prompt: !!,"* Report requested to stop by TaskMan *" Line Location: HED+25
Function Call: WRITE	Prompt: !,"* Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," *" Line Location: HED+26
Function Call: WRITE	Prompt: !,LA7LINE Line Location: HED+30
Function Call: WRITE	Prompt: !!,"Following Required Information and/or Test Codes Missing",!! Line Location: HED+31
Function Call: WRITE	Prompt: !,"Shipping Condition: ",LA7SCOND(0) Line Location: HED+33
Function Call: WRITE	Prompt: ?(IOM-$S(IOM>131:47,1:37))," Container: ",LA7SCONT(0) Line Location: HED+34
Function Call: WRITE	Prompt: !,?4,"Account Number: ",$P(LA7SCFG(0),"^",13) Line Location: HED+36
Function Call: WRITE	Prompt: !!,"Item",?11,"Patient Name",?41,"Patient ID" Line Location: HED+40
Function Call: WRITE	Prompt: ?64,"Accession",?86,"Requested By" Line Location: HED+43
Function Call: WRITE	Prompt: !,?11,"Date of Birth",?30,"Sex",?41,"Patient ICN",?64,"Specimen UID",?86,"Collect Date/Time" Line Location: HED+44
Function Call: WRITE	Prompt: ?60,"Accession" Line Location: HED+47
Function Call: WRITE	Prompt: !,?11,"Date of Birth",?41,"Patient ICN",?60,"Specimen UID" Line Location: HED+48
Function Call: WRITE	Prompt: !,?11,"Requested By",?41,"Sex",?60,"Collect Date/Time" Line Location: HED+49
Function Call: WRITE	Prompt: !,?11,"Site ID:DFN:CRC16" Line Location: HED+52
Function Call: WRITE	Prompt: !,LA7LINE Line Location: HED+54
Function Call: WRITE	Prompt: !,LA7ITMID,?11,PNM Line Location: SH+1
Function Call: WRITE	Prompt: ?41,$S(LRDPF=2:SSN,1:SSN(2)) Line Location: SH+2
Function Call: WRITE	Prompt: ?60,LA7ACC Line Location: SH+4
Function Call: WRITE	Prompt: ?64,LA7ACC,?86,$P(LA7PROV,"^",2) Line Location: SH+6
Function Call: WRITE	Prompt: ! Line Location: SH+8
Function Call: WRITE	Prompt: "Cont'd" Line Location: SH+9
Function Call: WRITE	Prompt: ?11,$$FMTE^XLFDT(DOB) Line Location: SH+11
Function Call: WRITE	Prompt: ?41,LA7ICN,?60,LA7UID Line Location: SH+14
Function Call: WRITE	Prompt: !,?11,$E($P(LA7PROV,"^",2),1,28) Line Location: SH+15
Function Call: WRITE	Prompt: ?41,$S(SEX="M":"Male",SEX="F":"Female",SEX="":"Unknown",1:SEX) Line Location: SH+16
Function Call: WRITE	Prompt: ?60,$S(LA7CDT:$$FMTE^XLFDT(LA7CDT,"1M"),1:LA7CDT) Line Location: SH+17
Function Call: WRITE	Prompt: ?30,$S(SEX="M":"Male",SEX="F":"Female",SEX="":"Unknown",1:SEX) Line Location: SH+20
Function Call: WRITE	Prompt: ?41,LA7ICN,?64,LA7UID,?86,$S(LA7CDT:$$FMTE^XLFDT(LA7CDT,"1M"),1:LA7CDT) Line Location: SH+21
Function Call: WRITE	Prompt: !,?11,LA7FSITE(99)_":"_DFN_":"_LA7X Line Location: SH+27
Function Call: WRITE	Prompt: ! Line Location: SH+29
Function Call: WRITE	Prompt: !,?11,"Specimen Container: ",X Line Location: SH+35
Function Call: WRITE	Prompt: !,?11,"Collection sample: ",$P(LA762(0),"^") Line Location: SH+38
Function Call: WRITE	Prompt: !,?11,"Patient Height: ",$P(LA7X,"^",2)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",3)_",",.01) Line Location: SH+42
Function Call: WRITE	Prompt: ?40 Line Location: SH+44
Function Call: WRITE	Prompt: !,?11 Line Location: SH+45
Function Call: WRITE	Prompt: "Patient Weight: ",$P(LA7X,"^",5)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",6)_",",.01) Line Location: SH+46
Function Call: WRITE	Prompt: !,?11,"Collection Volume: ",$P(LA7X,"^",2)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",3)_",",.01) Line Location: SH+50
Function Call: WRITE	Prompt: ?40 Line Location: SH+52
Function Call: WRITE	Prompt: !,?11 Line Location: SH+53
Function Call: WRITE	Prompt: "Collection Weight: ",$P(LA7X,"^",9)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",10)_",",.01) Line Location: SH+54
Function Call: WRITE	Prompt: !,?11,"Collection End Date/Time: ",$$FMTE^XLFDT($P(LA7X,"^",5),"1M") Line Location: SH+56
Function Call: WRITE	Prompt: " (Duration: ",$P(LA7X,"^",6)," ",$$GET1^DIQ(64.061,+$P(LA7X,"^",7)_",",.01),")" Line Location: SH+57
Function Call: WRITE	Prompt: ?$S(IOM<131:5,1:36)," * 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,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]	GETS^DIQ
^LAHM(62.91 - [#62.91]	GET1^DIQ
^LAB(64.061 - [#64.061]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LPC"	SBC1+10
^LAHM(62.9 - [#62.9]	INIT+8
^LR - [#63]	PTID+2
^LRO(68 - [#68]	SH+38
^TMP("LA7ERR"	KILL+6!
^TMP("LA7ITEM"	ITEM+2!, ITEM+8*, KILL+6!
^TMP("LA7SM"	KILL+6!
^TMP("LA7SMRI"	SH+40, SH+48, KILL+6!

Name	Line Occurrences
HED	CMT+6
PROV	SH+32
SBC1	HED+38
SBC2	SH+59
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+26, SH+27, PTID+2*, PTID+7, 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+11, SBC2+16, SBC2+18
DT	INIT+2*
DTOUT	TERM+3~, KILL+1!
DUOUT	TERM+3~, KILL+1!
I	KILL+1!
IO("Q"	KILL+1!
IOF	HED+2, TERM+1, END+2
IOM	HED+4, HED+7, HED+9, HED+12, HED+15, HED+16, HED+20, HED+34, HED+42, HED+46 , SH+4, SH+6, SH+13, SH+19, 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	KILL+4!
LA762(0	SH+38
LA762801	KILL+4!
LA762801(0	SH+33, SH+34
LA7AA	SH+38, KILL+2!
LA7ACC	SH+4, SH+6, KILL+2!
LA7AD	KILL+2!
LA7AN	KILL+2!
LA7CDT	SH+17, SH+21, SBC2+6, SBC2+9, KILL+2!
LA7CHK	KILL+2!
LA7CMT	CMT+3, KILL+2!
LA7CMT(	CMT+7
LA7DC	SH+9, SH+60*, KILL+2!
LA7END	KILL+2!
LA7ERR	KILL+2!
LA7EV	KILL+2!
LA7EXIT	HED+1, HED+24, CMT+3, CMT+4, TERM+4, END+1, KILL+2!
LA7FSITE	HED+13, KILL+2!
LA7FSITE(99	SH+26, SH+27, SBC1+7, SBC1+9, SBC2+6, SBC2+9
LA7I	CMT+2~, CMT+3*, CMT+7, KILL+2!
LA7ICN	SH+14, SH+21, PTID+5, PTID+7, PTID+8*, KILL+2!
LA7ITEM	ITEM+1~, ITEM+3, ITEM+5, ITEM+6, ITEM+7, ITEM+8
>> LA7ITMID	SH+1
LA7LINE	HED+30, HED+54, SBC2+12, KILL+2!
LA7NLT	KILL+2!
LA7NLTN	KILL+2!
LA7NOW	HED+12, 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!
LA7PC	ITEM+1~, ITEM+3, ITEM+5, ITEM+6*
LA7PREFX	ITEM+1~, ITEM+3, ITEM+5, ITEM+6*, ITEM+8
LA7PROV	SH+6, SH+15, SH+32, KILL+2!
LA7QUIT	INIT+3, INIT+7, KILL+3!
LA7ROOT	ITEM+1~, ITEM+3, ITEM+4, ITEM+5, ITEM+6, ITEM+7, ITEM+8, KILL+3!
LA7SBC	HED+38, SH+59, SBC1+6, SBC1+8, SBC2+5, SBC2+8, SBC2+15, SBC2+17, KILL+3!
LA7SC	ITEM+1~, ITEM+3, ITEM+5
LA7SCFG	INIT+6*, INIT+7, INIT+8, KILL+3!
LA7SCFG(0	HED+15, HED+16, HED+36, INIT+8*
LA7SCOND	SH+40, SH+48, KILL+3!
LA7SCOND(0	HED+33
LA7SCONT	SH+40, SH+48, KILL+3!
LA7SCONT(0	HED+34
LA7SDATA	SBC2+2~, SBC2+6, SBC2+9, SBC2+11, SBC2+16, SBC2+18, SBC2+20
LA7SDT	HED+18, 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+29, HED+31, KILL+3!
LA7SMST	HED+4, HED+7, HED+18, HED+19, SH+31, KILL+3!
LA7SPEC	KILL+3!
LA7SVIA	HED+20, KILL+3!
LA7TSITE	HED+10, KILL+3!
LA7TSITE(99	HED+52, SH+24
LA7UID	SH+14, SH+21, SH+40, SH+48, SBC2+6, SBC2+9, ITEM+1~, ITEM+3, ITEM+5, ITEM+6* , ITEM+7*, ITEM+8, KILL+3!
LA7X	SH+25~, SH+26, SH+27, SH+40, SH+41, SH+42, SH+43, SH+44, SH+46, SH+48* , SH+49, SH+50, SH+51, SH+52, SH+54, SH+55, SH+56, SH+57, SBC1+5~, SBC1+7* , SBC1+9*, SBC1+10, KILL+3!
LAST	KILL+1!
LRDFN	PTID+2, KILL+5!
LRDPF	SH+2, SH+24, PTID+2*, PTID+6, KILL+5!
LRERR	PROV+3~
LRPRAC	KILL+5!
PNM	SH+1, SBC2+16, SBC2+18, KILL+1!
SEX	SH+16, SH+20, SBC2+6, SBC2+18, KILL+1!
SSN	SH+2, KILL+1!
SSN(2	SH+2, SBC2+6, SBC2+9, SBC2+16, SBC2+18
U	PTID+2
X	SH+34, SH+35, SBC1+5~, SBC1+10, 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+23, HED+26, END+3, KILL+9
>> ZTREQ	KILL+9*
>> ZTSTOP	HED+24*

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7SMP0

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: