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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls