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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  
VA FileMan 4 NOW^%DTC  ^DIC  GETS^DIQ  ^DIR  
Controlled Substances 2 ^PSDLBLB  ^PSDSET  
Registration 1 (DEM,INP,KVAR)^VADPT  

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

Package Total Caller Graph
Controlled Substances 1 PSD PAT ID LIST  

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

External References

Name Field # of Occurrence
NOW^%DTC START+1
^%ZIS DEV+4
HOME^%ZIS DEV+5
^%ZISC END+5
^%ZTLOAD DEV+5
^DIC WARD+2, ASKN+2
GETS^DIQ ASKN+4
^DIR ASK+4, DEV+1, DONE+1, HDR+1
^PSDLBLB START+4
^PSDSET PSDLBLP+2
DEM^VADPT START+6
INP^VADPT START+7
KVAR^VADPT END+1
$$HTE^XLFDT HDR+5

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
Routine Call
  • DIC
  • Line Location:
    • WARD+2
    • ASKN+2
Routine Call
  • DIR
  • Line Location:
    • ASK+4
    • DEV+1
    • DONE+1
    • HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] START+2
^%ZIS(2 - [#3.2] START+2
^DIC(42 - [#42] WARD2+2, WARD2+3
^DPT - [#2] START+5
^DPT("ACN" START+5
^PSD(58.8 - [#58.8] WARD2+1
^SC - [#44] ASKN+3
^TMP("PSDLBLP" START+1!, START+9*, PRINT+2, PRINT+3, PRINT+4, END+4!

Label References

Name Line Occurrences
ASKN ASK+5
DEV ASK+5
DONE PRINT+2
END ASK+4, ASK+5, WARD+2, DEV+1, DEV+4, DEV+5
HDR PRINT+2, PRINT+3, PRINT+4, PRINT+5
SAVE DEV+5

Naked Globals

Name Field # of Occurrence
^( PRINT+4
^("BAR" START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1, END+2!
%H END+2!
%ZIS DEV+4!*, END+2!
%ZIS("B" DEV+4*
ANS ASK+4*, END+2!
ANS(1 DEV+1*, START+4
DA ASK+2!, WARD+1!, END+2!, HDR+1!, ASKN+1!
DFN START+6*, START+8!, END+2!
DIC WARD+1!, WARD+2*, WARD+4!, END+2!, ASKN+1!*, ASKN+2!
DIC("A" WARD+2*, ASKN+1*
DIC(0 WARD+2*, ASKN+1*
DIR ASK+2!, ASK+4!, DEV+1!, DONE+1!, END+2!, HDR+1!
DIR("?" ASK+3*
DIR("A" ASK+2*, ASK+4*, DEV*, DONE+1*
DIR(0 ASK+2*, DEV*, DONE+1*, HDR+1*
DIROUT END+2!
DIRUT ASK+2!, ASK+4, DEV+1, DONE+1!, END+2!
DTOUT WARD+2, END+2!
DUOUT WARD+2, END+2!
IO DEV+6
IO("Q" DEV+4!, DEV+5!
IOF DONE, HDR+2
IOP DEV+4!
>> IOS START+2
IOSL PRINT+4, PRINT+5
IOST DONE, DONE+1, HDR+1
JJ START+2*, END+2!, WARD2+1*
JJ1 END+2!, WARD2+1*, WARD2+2, WARD2+3
JJ2 END+2!, WARD2+1*
LN PRINT+1*, END+2!, HDR+6
>> NAOU WARD2+1
>> NAOUN HDR+4, SAVE+2, WARD2
NODE PRINT+4*, PRINT+6, PRINT+7, END+2!
PATN START+6*, START+9, END+2!
PG PRINT+1*, END+2!, HDR+1, HDR+2*, HDR+5
POP DEV+4!, END+2!
PSD PRINT+4*, PRINT+6, END+2!, ASKN+3~
PSD( ASKN+5, ASKN+6
PSD(1 HDR+2*, ASKN+4*, ASKN+5*, ASKN+6
PSD1 START+5*, START+6, PRINT+4*, END+2!
PSD2 ASK+1~, HDR+4, ASKN+3*
PSDBAR0 START+3, PRINT+7, END+2!
PSDBAR1 START+3, PRINT+7, END+2!
PSDCNT START+1*, START+9*, PRINT+1*, END+2!
PSDN PRINT+3*, PRINT+4, PRINT+6, END+2!, HDR+4
PSDOUT ASK+1*, ASK+5, PRINT+1*, PRINT+3, PRINT+4, PRINT+5, DONE+1, END+2!, HDR+1*, ASKN+2*
PSDPRT START+1!, START+3*, PRINT+7, END+3!
PSDR END+3!
PSDRM START+7*, START+9, END+3!
>> PSDSITE PSDLBLP+2
PSDT START+1*, START+7, END+3!
PSDW WARD+2, END+3!
PSDW( WARD+3*, START+5, ASKN+6*, WARD2+3*
PSDW("" HDR+4
PSDWN WARD+3*, START+5*, START+9, END+3!
PSDX1 PRINT+1*, END+3!
PSDX2 END+3!
SSN START+6*, START+9, END+3!
U ASKN+3
VA END+1!
VA("BID" START+6
VADM START+8!, END+3!
VADM(1 START+6
VADM(2 START+6
VAERR START+6, END+3!
VAIN START+8!, END+3!
VAIN(5 START+7
VAINDT START+7*, START+8!, END+3!
X WARD+2, END+3!
Y ASK+4, ASK+5, WARD+3, DEV+1, END+3!, HDR+1, ASKN+2, ASKN+3, ASKN+4
ZTDESC DEV+5*, END+3!
ZTDTH DEV+5!
ZTIO END+3!
>> ZTQUEUED END+5
>> ZTREQ END+5*
ZTRTN DEV+5*, END+3!
ZTSAVE DEV+5!, END+3!
ZTSAVE("ANS(1)" SAVE+1*
ZTSAVE("NAOUN" SAVE+2*
ZTSAVE("PSD2" SAVE+1*
ZTSAVE("PSDW(" SAVE+1*
ZTSK DEV+5!, END+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All