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

Package: Controlled Substances

Routine: PSDLBLI


Information

PSDLBLI ;BIR/JPW-CS Label Print for CS Inspectors Name ; 30 Aug 94

Source Information

Source file <PSDLBLI.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 INSP  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;prints labels
END ;kill variables and exit
DEV ;ask device and queue info
INSP ;ask inspector name
START ;entry for compile and print labels
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 INSP+3
^DIR DONE+1
^PSDSET PSDLBLI+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.",!!,"PSDMGR security key required.",!
  • Line Location: PSDLBLI+3
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single name or several names.",!
  • Line Location: INSP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INSP+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,"Ins"
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5
Routine Call
  • DIC
  • Line Location:
    • INSP+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("PSDLBLI" START+1!, START+7*, PRINT+2, END+2!
^VA(200 - [#200] START+4, START+5, START+6
^XUSEC("PSDMGR" PSDLBLI+3

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+4!*, END+1!
%ZIS("B" DEV+4*
ALL END+1!, SAVE+1
DA INSP+2!, END+1!
DIC INSP+2!, INSP+3*!, END+1!
DIC("A" INSP+3*
DIC(0 INSP+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 PSDLBLI+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+4*, START+5, START+6, PRINT+2*, END+1!
PSDBAR0 START+3, END+1!, PRINT1+2
PSDBAR1 START+3, END+1!, PRINT1+2
PSDCNT INSP+2*, INSP+4*, PRINT+1*, PRINT+2*, PRINT+3, END+1!, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+5*
PSDN START+5*, START+7, END+1!
PSDOUT PRINT+1*, PRINT+2, DONE+1, END+1!
PSDPRT START+1!, START+3*, END+1!, PRINT1+2
PSDR END+1!
>> PSDSITE PSDLBLI+2
PSDTMP INSP+5, END+1!, SAVE+2
PSDTMP( INSP+4*, START+4
PSDX1 END+1!, PRINT1+1*, PRINT1+2*, PRINT1+3*
PSDX2 PRINT+1*, END+1!, PRINT1+5*
SSN START+6*, START+7, END+1!
TEMP END+1!
TEMP( PRINT+2*, PRINT1+1
TEST END+1!
TEST( PRINT+2*, PRINT1+2
X END+1!
Y INSP+3, INSP+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