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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSDLBL2

Package: Controlled Substances

Routine: PSDLBL2


Information

PSDLBL2 ;B'ham ISC/JPW - CS Label Print for CS Nurses Name ; 27 Dec 93

Source Information

Source file <PSDLBL2.m>

Call Graph

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  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"the pending Controlled Substances error log.",!
  • Line Location: PSDLBL2+4
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: NUR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NUR+2
Function Call: WRITE
  • Prompt: $C(7),!!,?3,"WARNING: The printing of these labels require 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,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,TEST(PSDX1+1)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • DIC
  • Line Location:
    • NUR+3
Routine Call
  • DIR
  • Line Location:
    • DONE+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
END NUR+5, DEV+5, DEV+6
PRINT1 PRINT+2, PRINT+3
SAVE DEV+6

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+5!*, END+1!
%ZIS("B" DEV+5*
ALL NUR+6*, START+4, START+5, END+1!, SAVE+1
DA NUR+2!, END+1!
DIC NUR+2!, NUR+3*!, END+1!
DIC("A" NUR+3*
DIC("S" NUR+3*
DIC(0 NUR+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 PSDLBL2+3
IO DEV+7
IO("Q" DEV+5!, DEV+6!
IOF DONE
IOP DEV+5!
IOST DONEDONE+1
>> IOST(0 START+2
JJ START+2*, END+1!
JLP1 END+1!
OK PSDLBL2+3*, PSDLBL2+4!, END+1!
POP DEV+5!, 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 NUR+2*, NUR+4*, START+4*, START+5*, PRINT+1*, PRINT+2*, PRINT+3, END+1!, PRINT1+1, PRINT1+2
PRINT1+3, PRINT1+5*
PSDCPI DEV+4*, END+1!
PSDEV END+1!
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+2!
>> PSDSITE PSDLBL2+2
PSDTMP NUR+5, END+2!, SAVE+2
PSDTMP( NUR+4*, START+4*, START+5*, START+6
PSDX1 END+2!, PRINT1+1*, PRINT1+2*, PRINT1+3*
PSDX2 PRINT+1*, END+2!, PRINT1+5*
SSN START+8*, START+9, END+2!
TEMP END+2!
TEMP( PRINT+2*, PRINT1+1
TEST END+2!
TEST( PRINT+2*, PRINT1+2, PRINT1+3
X NUR+5, NUR+6, END+2!
Y NUR+3, NUR+4, END+2!
ZTDESC DEV+6*, END+2!
ZTDTH DEV+6!
ZTIO END+2!
>> ZTQUEUED END+4
>> ZTREQ END+4*
ZTRTN DEV+6*, END+2!
ZTSAVE DEV+6!, END+2!
ZTSAVE("ALL" SAVE+1*
ZTSAVE("PSDCNT" SAVE+1*
ZTSAVE("PSDCPI" SAVE+1*
ZTSAVE("PSDTMP(" SAVE+2*
ZTSK DEV+6!, END+2!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All