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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSDLBLP

Package: Controlled Substances

Routine: PSDLBLP


Information

PSDLBLP ;B'ham ISC/JPW - CS Print for Patient ID List ; 2 Mar 94

Source Information

Source file <PSDLBLP.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ;ask naou or ward
WARD ;ask ward name
DEV
START ;entry for compile and print labels
PRINT ;print labels
DONE
END ;kill variables and exit
HDR ;prints header information
SAVE ;save queued variables
ASKN ;ask nursing location
WARD2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator. You do not have the Supervisor",!,"access required to print labels.",!!
  • Line Location: PSDLBLP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: !!,"This report is designed to print bar codes on a printer.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,?15,"**** NO PATIENT WARD INFO ****",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @PSDBAR1,$P(NODE,"^"),@PSDBAR0,!!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Patient ID List for "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: PSD(1)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $S($G(PSD2)]"":PSD2,$G(PSDN)]"":PSDN,$G(NAOUN)]"":NAOUN,$O(PSDW(""))]"":$O(PSDW("")),1:"")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: " Printed: ",$$HTE^XLFDT($H,"P"),?70,"Page: ",PG,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "PATIENT",?45,"ROOM-BED",!,LN,!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+2
Function Call: WRITE
  • Prompt: !!,"Compiling Ward data for ",NAOUN,"..."
  • Line Location: WARD2+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call