Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call