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

Package: Lab Service

Routine: LRHYLS1


Information

LRHYLS1 ;DALOI/HOAK - DISPLAY ORDERS 9/27/2005 ;10/15/10 11:25am

Source Information

Source file <LRHYLS1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"UID: ",?11,$G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3))
  • Line Location: LST1+16
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",$E(^LRO(68,LRAA,0),1,4)," ",$E(LRAD,4,7)," ",LRAN
  • Line Location: LST1+17
Function Call: WRITE
  • Prompt: !,"ORDER #: ",?11,LRCE
  • Line Location: LST1+18
Function Call: WRITE
  • Prompt: "Patient: ",$E(PNM,1,12)
  • Line Location: LST1+22
Function Call: WRITE
  • Prompt: ?22,"SSN: ",$P(SSN,"-",3)
  • Line Location: LST1+23
Function Call: WRITE
  • Prompt: ?33,"DOB: ",$$DTF^LRAFUNC1(DOB)
  • Line Location: LST1+24
Function Call: WRITE
  • Prompt: ?50,"PROVIDER: ",$S($D(^VA(200,LRPRAC,0)):$P(^(0),"^"),1:LRPRAC)
  • Line Location: LST1+26
Function Call: WRITE
  • Prompt: !?16,$P(^(0),"^")
  • Line Location: LST1+32
Function Call: WRITE
  • Prompt: !," Order Comment:"
  • Line Location: LST1+35
Function Call: WRITE
  • Prompt: !?11,^(LRHYI,0)
  • Line Location: LST1+38
Function Call: WRITE
  • Prompt: !," CANCELLED TEST: ",$S($D(^LAB(60,+X,0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: TSTCOM+4
Function Call: WRITE
  • Prompt: " "_$E($S($D(^LAB(62.05,LRURG,0)):$P(^(0),U),1:"ROUTINE"),1,15)
  • Line Location: TSTCOM+8
Function Call: WRITE
  • Prompt: " by: "_$P(^VA(200,$P(X,"^",11),0),"^")
  • Line Location: TSTCOM+9
Function Call: WRITE
  • Prompt: !?3,": "_^(0)
  • Line Location: TSTCOM+10
Function Call: WRITE
  • Prompt: !," Accession Comment: ",LRACO
  • Line Location: TSTCOM+11
Function Call: WRITE
  • Prompt: IOBON
  • Line Location: FLASH+1
Function Call: WRITE
  • Prompt: ?20,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," "
  • Line Location: FLASH+3
Function Call: WRITE
  • Prompt: IOBOFF
  • Line Location: FLASH+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKPAGE+9
Info |  Source |  Entry Points |  Interaction Calls