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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDLBL3

Package: Controlled Substances

Routine: PSDLBL3


Information

PSDLBL3 ;BIR/JPW-CS Label Print for CS Pharmacists Name ; 6 July 94

Source Information

Source file <PSDLBL3.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^DIC  ^DIR  
Controlled Substances 1 ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD LABEL PHARM  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
END ;kill variables and exit
DEV ;ask device and queue info
START ;entry for compile and print labels
PHARM ;ask pharmacist name
DONE
PRINT ;print labels
SAVE ;save queued variables

External References

Name Field # of Occurrence
^%ZIS DEV+4
HOME^%ZIS DEV+5
^%ZISC END+3
^%ZTLOAD DEV+5
^DIC PHARM+3
^DIR DONE+1
^PSDSET PSDLBL3+2

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: PSDLBL3+3
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single name, several names,",!,?5,"or enter ^ALL to select all names to be printed.",!!
  • Line Location: PHARM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PHARM+2
Function Call: WRITE
  • Prompt: $C(7),!!,?3,"WARNING: The printing of these labels requires the use of a sheet fed",!,?12,"laser printer setup to create Controlled Substances",!,?12,"barcodes.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,?12,"*** Check printer for LABEL paper before printing! ***",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 3 column label format.",!,"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: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: ?PSDX1*33+1,TEMP(PSDX1+1)
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: @PSDBAR1,TEST(PSDX1),@PSDBAR0
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?PSDX1*32+3,"RPh"
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5
Routine Call
  • DIC
  • Line Location:
    • PHARM+3
Routine Call
  • DIR
  • Line Location:
    • DONE+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] START+2
^%ZIS(2 - [#3.2] START+2
^TMP("PSDLBL3" START+1!, START+9*, PRINT+2, END+2!
^VA(200 - [#200] START+4, START+5, START+6, START+7, START+8
^XUSEC("PSDMGR" PSDLBL3+3, START+5
^XUSEC("PSJ RPHARM" START+4

Label References

Name Line Occurrences
END PHARM+5, DEV+4, DEV+5
PRINT1 PRINT+2, PRINT+3
SAVE DEV+5

Naked Globals

Name Field # of Occurrence
^("BAR" START+2
^(0 START+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+4!*, END+1!
%ZIS("B" DEV+4*
ALL PHARM+6*, START+4, START+5, END+1!, SAVE+1
DA PHARM+2!, END+1!
DIC PHARM+2!, PHARM+3*!, END+1!
DIC("A" PHARM+3*
DIC("S" PHARM+3*
DIC(0 PHARM+3*
DIR DONE+1!, END+1!
DIR("A" DONE+1*
DIR(0 DONE+1*
DIROUT END+1!
DIRUT DONE+1!, END+1!
DRUG END+1!
DTOUT END+1!
DUOUT END+1!
DUZ PSDLBL3+3
IO DEV+6
IO("Q" DEV+4!, DEV+5!
IOF DONE
IOP DEV+4!
>> IOS START+2
IOST DONE, DONE+1
JJ START+2*, END+1!
JLP1 END+1!
POP DEV+4!, END+1!
PSD START+6*, START+7, START+8, PRINT+2*, END+1!
PSDBAR0 START+3, END+1!, PRINT1+2
PSDBAR1 START+3, END+1!, PRINT1+2
PSDCNT PHARM+2*, PHARM+4*, START+4*, START+5*, PRINT+1*, PRINT+2*, PRINT+3, END+1!, PRINT1+1, PRINT1+2
, PRINT1+3, PRINT1+5*
PSDN START+7*, START+9, END+1!
PSDOUT PRINT+1*, PRINT+2, DONE+1, END+1!
PSDPRT START+1!, START+3*, END+1!, PRINT1+2
PSDR START+4*, START+5*, END+1!
>> PSDSITE PSDLBL3+2
PSDTMP PHARM+5, END+1!, SAVE+2
PSDTMP( PHARM+4*, START+4*, START+5*, START+6
PSDX1 END+1!, PRINT1+1*, PRINT1+2*, PRINT1+3*
PSDX2 PRINT+1*, END+1!, PRINT1+5*
SSN START+8*, START+9, END+1!
TEMP END+1!
TEMP( PRINT+2*, PRINT1+1
TEST END+1!
TEST( PRINT+2*, PRINT1+2
X PHARM+5, PHARM+6, END+1!
Y PHARM+3, PHARM+4, END+1!
ZTDESC DEV+5*, END+1!
ZTDTH DEV+5!
ZTIO END+1!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN DEV+5*, END+1!
ZTSAVE DEV+5!, END+1!
ZTSAVE("ALL" SAVE+1*
ZTSAVE("PSDCNT" SAVE+1*
ZTSAVE("PSDTMP(" SAVE+2*
ZTSK DEV+5!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All