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

Package: CMOP

Routine: PSXLBLT


Information

PSXLBLT ;BIR/HTW-CMOP Label Print..Trailer Docs ;[ 03/06/98 7:00 AM ]

Source Information

Source file <PSXLBLT.m>

Entry Points

Name Comments DBIA/ICR reference
DOC1 ; Print Multi-Rx documents
DOCNEW
FINAL ;Set up Suspense Notification
TOF
PRINT
SUSP
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,PNAME," ",SSN
  • Line Location: DOCNEW+0
Function Call: WRITE
  • Prompt: !?54,PADD1
  • Line Location: DOCNEW+1
Function Call: WRITE
  • Prompt: !?54,PADD2
  • Line Location: DOCNEW+2
Function Call: WRITE
  • Prompt: !?54,$G(PADD3)
  • Line Location: DOCNEW+3
Function Call: WRITE
  • Prompt: !?54,$G(PADD4)
  • Line Location: DOCNEW+4
Function Call: WRITE
  • Prompt: !,?54,"Please check prescriptions to be refilled"
  • Line Location: DOCNEW+5
Function Call: WRITE
  • Prompt: !,?55
  • Line Location: DOCNEW+12
Function Call: WRITE
  • Prompt: @IOBARON,X2,@IOBAROFF
  • Line Location: DOCNEW+12
Function Call: WRITE
  • Prompt: !?54,"(______________________________________)"
  • Line Location: DOCNEW+13
Function Call: WRITE
  • Prompt: !?55,"PATIENT'S SIGNATURE ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700)
  • Line Location: DOCNEW+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DOCNEW+15
Function Call: WRITE
  • Prompt: ?54,PNAME," ",SSN," ",$P(RNOW,"@"),!
  • Line Location: TOF+0
Function Call: WRITE
  • Prompt: ?54,@IOBARON,X2,@IOBAROFF,*13
  • Line Location: TOF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SUSP+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+6
Info |  Source |  Entry Points |  Interaction Calls