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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LA7SMP0

Package: Automated Lab Instruments

Routine: LA7SMP0


Information

LA7SMP0 ;DALOI/JMC - Shipping Manifest Print (Cont'd) ;12/03/09 11:21

Source Information

Source file <LA7SMP0.m>

Call Graph

Call Graph

Call Graph Total: 10

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Lab Instruments 2 LA7SMP  LA7SMPXL  

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All