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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLRSHPM1

Package: IHS Changes To Lab

Routine: BLRSHPM1


Information

BLRSHPM1 ;cmi/anch/maw - BLR Reference Lab Shipping Manifest (con't) ; 11-Apr-2016 10:30 ; MAW

Source Information

Source file <BLRSHPM1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 2 PRAC^LR7OMERG  (DASH,DD,PT)^LRX  
VA Fileman 2 Y^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
LEDI ; print LEDI information
CHKPAGE ;
TSTCOM ;
LST1 ;from LRWRKLST

External References

Name Field # of Occurrence
Y^DIQ LEDI+2, LEDI+3
^DIR CHKPAGE+5
PRAC^LR7OMERG LST1+36
DASH^LRX LST1+12
DD^LRX LST1+9, LST1+10
PT^LRX LST1+6
$$FMTE^XLFDT LST1+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LST1+11
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",LRACC,?25,$S(LRCE]"":"ORDER #: "_LRCE,1:"")
  • Line Location: LST1+16
Function Call: WRITE
  • Prompt: ?40,"PATIENT: ",PNM," ",HRCN,!
  • Line Location: LST1+22
Function Call: WRITE
  • Prompt: !," LOCATION:",$P(LRDX,"^",7)
  • Line Location: LST1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: LST1+29
Function Call: WRITE
  • Prompt: " PRACTITIONER: ",$S($D(^VA(200,LRPRAC,0)):$P(^(0),"^"),1:LRPRAC)
  • Line Location: LST1+34
Function Call: WRITE
  • Prompt: !?16,$P(^(0),"^")
  • Line Location: LST1+36
Function Call: WRITE
  • Prompt: !," Order Comment:"
  • Line Location: LST1+39
Function Call: WRITE
  • Prompt: !
  • Line Location: LST1+41
Function Call: WRITE
  • Prompt: ?11,^(I,0)
  • Line Location: LST1+41
Function Call: WRITE
  • Prompt: !,"Test [ ",$P(^(0),U)_" ] Comment "
  • Line Location: TSTCOM+4
Function Call: WRITE
  • Prompt: !,?5,^(0)
  • Line Location: TSTCOM+5
Function Call: WRITE
  • Prompt: !," Accession Comment: ",LRACO
  • Line Location: TSTCOM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKPAGE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LEDI+2
Function Call: WRITE
  • Prompt: ?40,"ORDERING SITE UID: "_$P(LRUIDX,"^",5)
  • Condition for execution: Y'="" " ORDERING SITE: "_$E(Y,1,20) W:$P(LRUIDX,"^",5)'=""
  • Line Location: LEDI+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LEDI+3
Function Call: WRITE
  • Prompt: ?40,"HOST UID: "_$P(LRUIDX,"^",4)
  • Condition for execution: Y'="" " COLLECTING SITE: "_$E(Y,1,20) W:$P(LRUIDX,"^",4)'=""
  • Line Location: LEDI+3
Routine Call
  • DIR
  • Line Location:
    • CHKPAGE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(68.02 LEDI+2, LEDI+3
^LAB(60 - [#60] TSTCOM+4
^LR - [#63] LST1+4, LST1+5
^LRO(68 - [#68] LST1+3, LST1+8, LST1+23, LEDI+1
^LRO(69 - [#69] LST1+38, LST1+41, TSTCOM+2, TSTCOM+3, TSTCOM+5
^VA(200 - [#200] LST1+34, LST1+36

Label References

Name Line Occurrences
CHKPAGE LST1+1, LST1+14, LST1+31, LST1+41, TSTCOM+5
LEDI LST1+35

Naked Globals

Name Field # of Occurrence
^( LST1+3, LST1+41, TSTCOM+2, TSTCOM+5
^(0 LST1+5, LST1+34, LST1+36, TSTCOM+4, TSTCOM+5
^(3 LST1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C LEDI+2*, LEDI+3*
>> DFN LST1+5*
DIR CHKPAGE+3!
DIR(0 CHKPAGE+4*
>> DIRUT CHKPAGE+6
>> DOB LST1+23
>> DUOUT CHKPAGE+6
>> HRCN LST1+22
>> I LST1+40*, LST1+41*
IOSL CHKPAGE+2
IOST CHKPAGE+1
>> LN LST1+13*, LST1+30*, LST1+34*, LST1+39*, LST1+41*, TSTCOM+5*, TSTCOM+7*, CHKPAGE+2, CHKPAGE+8*, LEDI+2*
, LEDI+3*
>> LRAA LST1+3, LST1+8, LST1+23, LST1+36, LEDI+1
>> LRACC LST1+3*, LST1+16
>> LRACO LST1+7*, LST1+8*, TSTCOM+7
>> LRAD LST1+3, LST1+8, LST1+23, LST1+36, LEDI+1
>> LRAN LST1+3, LST1+8, LST1+23, LST1+36, LEDI+1
>> LRCE LST1+3*, LST1+16
>> LRDLA LST1+7*, LST1+8*, LST1+9*, LST1+35
>> LRDLC LST1+7*, LST1+9*, LST1+28
>> LRDPF LST1+5*
>> LRDTO LST1+10*, LST1+27
>> LRDX LST1+3*, LST1+4, LST1+5, LST1+10, LST1+25, LST1+26, LST1+33, LST1+37, TSTCOM+8
>> LREND CHKPAGE+7*
>> LRPRAC LST1+33*, LST1+34
>> LRSTOP LST1+2, LST1+15, LST1+32, LST1+41, TSTCOM+1, TSTCOM+5, TSTCOM+6, CHKPAGE+1, CHKPAGE+6*, CHKPAGE+7
>> LRTS TSTCOM+2*, TSTCOM+3, TSTCOM+5
>> LRTST TSTCOM+2*, TSTCOM+4
LRUIDX LEDI+1~*, LEDI+2, LEDI+3
>> PNM LST1+22
PR LST1+36~*
PRAC LST1+36~
PRAC( LST1+36
PRAC(0 LST1+36
>> SEX LST1+23
U LST1+5, LST1+8, LST1+10, LST1+25, LST1+37, TSTCOM+4, TSTCOM+8
>> X LST1+23*
>> X1 LST1+37*, LST1+38, LST1+41, TSTCOM+2, TSTCOM+3, TSTCOM+5
>> X2 LST1+37*, LST1+38, LST1+41, TSTCOM+2, TSTCOM+3, TSTCOM+5
>> X3 TSTCOM+5*
>> Y LST1+8*, LST1+9*, LST1+10*, LEDI+2*, LEDI+3*
>> ZTQUEUED CHKPAGE+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All