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

Package: Controlled Substances

Routine: PSDLBL0


Information

PSDLBL0 ;BIR/JPW-CS Label Prt for CS Disp Drug (cont'd) ; 17 May 94

Source Information

Source file <PSDLBL0.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 NOW^%DTC  ^DIE  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDLBL  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;prints labels
SET ;sets ^tmp
END ;kill variables and exit
DIE ;update label printed
START ;entry for compile and print labels
DONE
SET1 ;sets disp info
PRINT ;print labels
LOOP

External References

Name Field # of Occurrence
NOW^%DTC START+1
^%ZISC END+5
^DIE DIE+2
^DIR DONE+1

Interaction Calls

Name Line Occurrences
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,$P(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
  • DIE
  • Line Location:
    • DIE+2
Routine Call
  • DIR
  • Line Location:
    • DONE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] START+2
^%ZIS(2 - [#3.2] START+2
^PSD(58.8 - [#58.8] START+7, START+8, SET1+4
^PSD(58.81 - [#58.81] START+10, LOOP+1, SET1+1
^PSDRUG - [#50] SET1+7
^PSI(58.2 - [#58.2] START+7
^TMP("PSDLBL" START+1!, PRINT+2, END+4!, SET+1*

Label References

Name Line Occurrences
LOOP START+5, LOOP+2
PRINT START+6
PRINT1 PRINT+2, PRINT+3
SET1 START+10, LOOP+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1, END+1!
%DT END+1!
%H END+1!
%I END+1!
%ZIS END+1!
ALL START+8, END+1!
ANS START+5, START+6, START+7, START+8, END+1!, SET1+2, SET1+3
CNT START+7*, END+1!
DA END+1!, DIE+2!*
DIC END+1!
DIE END+1!, DIE+2!*
DIR DONE+1!, END+1!
DIR("A" DONE+1*
DIR(0 DONE+1*
DIROUT END+1!
DIRUT DONE+1!, END+1!
DR END+1!, DIE+2!*
DRUG END+1!
DTOUT END+1!
DUOUT END+1!
IOF DONE
>> IOS START+2
IOST DONE, DONE+1
JJ START+2*, END+1!
JLP1 END+1!
LIQ END+1!
NAOU END+1!, SET1+4*
NAOU( START+7*, START+8*, SET1+2
NAOUN END+1!, SET1+4*, SET1+8
NODE END+1!, SET1+1*, SET1+2, SET1+3, SET1+4, SET1+5, SET1+6
OK END+1!
POP END+2!
PSD START+7*, START+8*, START+10*, PRINT+2*, END+2!, SET1+2
PSD1 START+5*, END+2!, LOOP
PSD1( START+5, LOOP
PSD2 END+2!
PSDA END+2!, SET1+6*
PSDBAR0 START+3, END+2!, PRINT1+2
PSDBAR1 START+3, END+2!, PRINT1+2
PSDCNT START+4*, PRINT+1*, PRINT+2*, PRINT+3, END+2!, LOOP*, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+5*
PSDEV END+2!
PSDG START+7, END+2!
PSDG( START+7
PSDJ START+10*, END+2!, LOOP+1*, SET1+1, DIE+1, DIE+2
PSDN START+7*, END+2!, SET1+7*, SET1+8
PSDOUT PRINT+1*, PRINT+2, DONE+1, END+2!
PSDPN END+2!, LOOP*, LOOP+1, SET1+2*, SET+1
PSDPRT START+1!, START+3*, END+2!, PRINT1+2
PSDR END+2!, SET1+5*, SET1+7, SET1+8, SET+1
PSDRG END+2!
PSDRN END+2!
PSDS END+2!, SET1+1
>> PSDSITE START+7, START+8
PSDSN END+2!
PSDT START+1*, END+2!, DIE+2
PSDX1 END+2!, PRINT1+1*, PRINT1+2*, PRINT1+3*
PSDX2 PRINT+1*, END+2!, PRINT1+5*
SEL END+3!
STAT START+9*, START+10, END+3!, SET1+3*
TEMP END+3!
TEMP( PRINT+2*, PRINT1+1
TEST END+3!
TEST( PRINT+2*, PRINT1+2, PRINT1+3
TEXT END+3!
TEXT( SET1+8*, SET+1
X END+3!
Y END+3!
ZTDESC END+3!
ZTIO END+3!
>> ZTQUEUED END+5
>> ZTREQ END+5*
ZTRTN END+3!
ZTSAVE END+3!
ZTSK END+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All