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

Package: Controlled Substances

Routine: PSDLBL1


Information

PSDLBL1 ;BIR/JPW-CS Label Print for Vault Drugs ; 29 Aug 94

Source Information

Source file <PSDLBL1.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD LABEL VAULT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;prints labels
END ;kill variables and exit
START ;entry for compile and print labels
PRINT ;print labels
DEV ;ask device and queue info
ASKD ;ask disp location
DONE
DRUG ;ask drug
CHKD
SAVE ;save queued variables

External References

Name Field # of Occurrence
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC END+3
^%ZTLOAD DEV+6
^DIC ASKD+5, DRUG+3
Y^DIQ DEV+4
^DIR DONE+1
^PSDSET PSDLBL1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print CS dispensing labels.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDLBL1+4
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+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+5
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,$E(TEMP(PSDX1+1),1,30)
  • 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,TEST(PSDX1+1)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
    • DRUG+3
Routine Call
  • DIR
  • Line Location:
    • DONE+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] START+2
^%ZIS(2 - [#3.2] START+2
^DD(58.8 DEV+4
^PSD(58.8 - [#58.8] CHKD, DEV+4, START+4, START+5
^PSDRUG - [#50] START+6
^TMP("PSDLBL1" START+1!, START+7*, PRINT+2, END+2!
^XUSEC("PSJ PHARM TECH" PSDLBL1+3
^XUSEC("PSJ RPHARM" PSDLBL1+3

Label References

Name Line Occurrences
CHKD ASKD+2
END ASKD+5, CHKD, DRUG+5, DEV+5, DEV+6
PRINT1 PRINT+2, PRINT+3
SAVE DEV+6

Naked Globals

Name Field # of Occurrence
^("BAR" START+2
^(0 START+4, START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+5!*, END+1!
%ZIS("B" DEV+5*
ALL DRUG+6*, START+4, END+1!, SAVE+1
C DEV+4*, END+1!
DA ASKD+3!, DRUG+2!, END+1!
DA(1 DRUG+3*
DIC ASKD+3!*, ASKD+5!, DRUG+2!, DRUG+3*!, END+1!
DIC("A" ASKD+4*
DIC("B" ASKD+4*
DIC("S" ASKD+3*
DIC("W" DRUG+3*
DIC(0 ASKD+3*, DRUG+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!
DT START+4
DTOUT END+1!
DUOUT END+1!
DUZ PSDLBL1+3
IO DEV+7
IO("Q" DEV+5!, DEV+6!
IOF DONE
IOP DEV+5!
>> IOS START+2
IOST DONE, DONE+1
JJ START+2*, END+1!
JLP1 END+1!
OK PSDLBL1+3*, PSDLBL1+4!, END+1!
POP DEV+5!, END+1!
PSD START+4*, START+5*, START+6, START+7, PRINT+2*, END+1!
PSDBAR0 START+3, END+1!, PRINT1+2
PSDBAR1 START+3, END+1!, PRINT1+2
PSDCNT PRINT+1*, PRINT+2*, PRINT+3, END+1!, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+5*
PSDEV DEV+4*, DEV+5, END+1!
PSDOUT PRINT+1*, PRINT+2, DONE+1, END+1!
PSDPRT START+1!, START+3*, END+1!, PRINT1+2
PSDRG DRUG+5, END+1!, SAVE+2
PSDRG( DRUG+4*, START+4*, START+5
PSDRN START+6*, START+7, END+1!
PSDS ASKD+1*, ASKD+6*, CHKD, DRUG+3, DEV+4, START+4, START+5, END+1!
>> PSDSITE PSDLBL1+2, ASKD+1, ASKD+2, ASKD+6*
PSDSN ASKD+1*, ASKD+4, ASKD+6*, END+1!
PSDX1 END+1!, PRINT1+1*, PRINT1+2*, PRINT1+3*
PSDX2 PRINT+1*, END+1!, PRINT1+5*
TEMP END+1!
TEMP( PRINT+2*, PRINT1+1
TEST END+1!
TEST( PRINT+2*, PRINT1+2, PRINT1+3
U ASKD+1, ASKD+2, ASKD+6, START+4
X DRUG+5, DRUG+6, END+1!
Y ASKD+5, ASKD+6, DRUG+3, DRUG+4, DEV+4*, END+1!
ZTDESC DEV+6*, END+1!
ZTDTH DEV+6!
ZTIO END+1!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN DEV+6*, END+1!
ZTSAVE DEV+6!, END+1!
ZTSAVE("ALL" SAVE+1*
ZTSAVE("PSDRG(" SAVE+2*
ZTSAVE("PSDS" SAVE+3*
ZTSAVE("PSDSN" SAVE+3*
ZTSK DEV+6!, 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