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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LROW2P

Package: Lab Service

Routine: LROW2P


Information

LROW2P ;SLC/TGA - PRINTS WARD COLLECT ORDER IN LAB ; 6/29/05 11:01am

Source Information

Source file <LROW2P.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZISC  ^%ZTLOAD  
Lab Service 2 SSN^LRU  (DD,DUZ)^LRX  

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: 6

Package Total Caller Graph
Lab Service 6 LR7OF0  LR7OFA1  LRCENDE1  LRORDST  LROW2A  LROW2RP  

Entry Points

Name Comments DBIA/ICR reference
ENT ;
ENT2 ;from LRORDST, LROW2
TEST

External References

Name Field # of Occurrence
^%ZISC ENT2+18
^%ZTLOAD LROW2P+2
SSN^LRU ENT2+8
DD^LRX ENT2+9, ENT2+11, ENT2+13
DUZ^LRX ENT2+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?23,$S(LRLWC="SP":"Send Patient",LRLWC="WC":"Ward Collect",LRLWC="I":"Immed Lab Collect ",1:"Lab Collect")," ORDER FOR "
  • Line Location: ENT2+9
Function Call: WRITE
  • Prompt: Y
  • Line Location: ENT2+9
Function Call: WRITE
  • Prompt: !,?23,"ORDER: ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):^(.1),1:""),?40,"LOCATION: ",LRLLOC
  • Line Location: ENT2+10
Function Call: WRITE
  • Prompt: " BED: ",LRBED
  • Condition for execution: $L(LRBED)
  • Line Location: ENT2+10
Function Call: WRITE
  • Prompt: !,PNM,?40,SSN,!,"ENTERED BY: "
  • Line Location: ENT2+11
Function Call: WRITE
  • Prompt: LRUSNM,?40
  • Line Location: ENT2+11
Function Call: WRITE
  • Prompt: LRUSNM,?40
  • Line Location: ENT2+11
Function Call: WRITE
  • Prompt: !,"PROVIDER: "
  • Line Location: ENT2+12
Function Call: WRITE
  • Prompt: $S($D(^VA(200,LRPR,0)):$E($P(^(0),"^"),1,25),1:"UNKNOWN")
  • Line Location: ENT2+12
Function Call: WRITE
  • Prompt: ?38,$S(LRLWC="I":"REQUESTED",1:" Est.")_" Collect Time: ",Y
  • Line Location: ENT2+13
Function Call: WRITE
  • Prompt: !!!,"TIME OF COLLECTION:__________"
  • Line Location: ENT2+16
Function Call: WRITE
  • Prompt: !!,"Order comment: "
  • Line Location: ENT2+17
Function Call: WRITE
  • Prompt: !?2,^(I,0)
  • Line Location: ENT2+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ENT2+18
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="P"
  • Line Location: ENT2+18
Function Call: WRITE
  • Prompt: !,"TEST/PROCEDURE: ",$P(^LAB(60,+LRTP,0),U)
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: ?48,$P(^LAB(62.05,LRUR,0),U)
  • Condition for execution: LRUR
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: !,"Ward Instructions:"
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: !?2,^(I,0)
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !,"Ward Comments:"
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !?2,^(I,0)
  • Line Location: TEST+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] ENT2+7
^LAB(60 - [#60] TEST, TEST+1, TEST+3
^LAB(61 - [#61] ENT2+6
^LAB(62 - [#62] ENT2+6
^LAB(62.05 - [#62.05] TEST
^LR - [#63] ENT2+7
^LRO(69 - [#69] ENT2+1, ENT2+3, ENT2+5, ENT2+10, ENT2+15, ENT2+17, TEST+4, TEST+5
^VA(200 - [#200] ENT2+12

Label References

Name Line Occurrences
TEST ENT2+15

Naked Globals

Name Field # of Occurrence
^( ENT2+3, ENT2+7, ENT2+10, ENT2+15, ENT2+17, TEST+1, TEST+3, TEST+5
^(0 ENT2+3, ENT2+6, ENT2+7, ENT2+12
^(1 ENT2+5
^(4 ENT2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN ENT2+7*
GOT ENT2+2~*, ENT2+3*, ENT2+4
I ENT2+2~, ENT2+3*, ENT2+17*, TEST+1~*, TEST+3*, TEST+5*
IOF ENT2+18
ION LROW2P+2
IOST ENT2+18
>> LRBED ENT2+7*, ENT2+10
>> LRCS ENT2+5*, ENT2+6*, ENT2+14
>> LRCSS ENT2+5*, ENT2+6*, ENT2+14
>> LRDFN ENT2+5*, ENT2+7
>> LRDPF ENT2+7*
>> LRDTO ENT2+5*, ENT2+11
LRDUZ ENT2+5*, ENT2+11!
>> LRLLOC ENT2+5*, ENT2+10
>> LRLWC ENT2+5*, ENT2+9, ENT2+13
>> LRODT ENT2+1, ENT2+3, ENT2+5, ENT2+9, ENT2+10, ENT2+13, ENT2+15, ENT2+17, TEST+4, TEST+5
>> LRORDTIM ENT2+5*, ENT2+13
>> LRPR ENT2+5*, ENT2+12
LRSAMP ENT2+2~, ENT2+5*, TEST+1
>> LRSN ENT2+1, ENT2+3, ENT2+5, ENT2+10, ENT2+15, ENT2+17, TEST+4, TEST+5
>> LRTP ENT2+15*, TEST, TEST+1, TEST+3
>> LRUR TEST*
>> LRUSNM ENT2+11
>> PNM ENT2+7*, ENT2+11
>> SSN ENT2+7*, ENT2+8, ENT2+11
>> T ENT2+15*, TEST+4, TEST+5
U ENT+1*, ENT2+5, ENT2+6, ENT2+7, ENT2+14, TEST
>> X ENT2+5*, ENT2+7*, ENT2+11*, TEST+1*, TEST+3
>> Y ENT2+9*, ENT2+11*, ENT2+13*
ZTDESC LROW2P+2*, LROW2P+3!
ZTDTH LROW2P+2*, LROW2P+3!
ZTIO LROW2P+2*, LROW2P+3!
>> ZTQUEUED ENT+1
>> ZTREQ ENT+1*
ZTRTN LROW2P+2*, LROW2P+3!
ZTSAVE LROW2P+3!
ZTSAVE("LRODT" LROW2P+2*
ZTSAVE("LRSN" LROW2P+2*
ZTSK LROW2P+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All