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

Package: Controlled Substances

Routine: PSDPGS1


Information

PSDPGS1 ;BIR/JPW-Print Green Sheet (VA FORM 10-2638 ) (cont'd) ; 3 Mar 98

Source Information

Source file <PSDPGS1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Controlled Substances 3 PSDPGS  PSDRPGS1  PSDRPGS2  

Entry Points

Name Comments DBIA/ICR reference
SET ;set data for printing
END
A7BAR ;DALISC/JRR set up vars to print barcode on green sheet
START ;loop through transactions
PRINT ;print green sheet
LOOP

External References

Name Field # of Occurrence
^%ZIS START+2
^%ZISC END+4
^DIE SET+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The device you selected is not set up for green sheets, please contact IRM.",!!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"*** SORRY NO GREEN SHEETS TO PRINT ***",!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?33,NAOUN," ",$P($G(^DPT(+$P(NODE,U,9),0)),U)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: $C(13),?70,@A7BAR1,@PSD10,PSDPN,@A7BAR0,@PSD12
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: LN,@PSDL,!?6
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !?6,"|________|_____|_______________________|_____|______|___________________________|"
  • Line Location: PRINT+17
Routine Call
  • DIE
  • Line Location:
    • SET+16
Routine Call
  • %ZIS
  • Line Location:
    • START+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] A7BAR+3
^%ZIS(2 - [#3.2] START+6, START+7, START+8, A7BAR+3
^DD("DD" PRINT+6, SET+10
^DPT - [#2] PRINT+7
^PSD(58.8 - [#58.8] START+14, START+15, SET+2, SET+6
^PSD(58.81 - [#58.81] START+17, LOOP+1, SET+1, SET+2, SET+3, SET+5, SET+9, SET+12, SET+15
^PSDRUG - [#50] SET+7
^PSI(58.2 - [#58.2] START+14
^TMP("PSDPGS" START+10!, PRINT+1, PRINT+2, PRINT+3, END+3!, SET+15*
^VA(200 - [#200] SET+13, SET+14

Label References

Name Line Occurrences
A7BAR START+5
END PRINT+1
LOOP START+12, LOOP+2
PRINT START+13
SET START+17, LOOP+1

Naked Globals

Name Field # of Occurrence
^("BAR" A7BAR+3
^(0 START+14, START+15, SET+6, SET+7, SET+13, SET+14
^(1 SET+12
^(4 SET+9
^(5 START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS END!
A7BAR0 START+4~, PRINT+8, A7BAR+4
A7BAR1 START+4~, PRINT+8, A7BAR+4
A7PRT PRINT+8, A7BAR+2!, A7BAR+4*
ALL START+15, END!
ANS START+12, START+13, START+14, START+15, END!, SET+4
ASK END!
C END!
CNT START+14*, END!
D END!
DA END!, SET+16!*
DIC END!
DIE END!, SET+16!*
DIR END!
DIROUT END!
DIRUT END!
DR END!, SET+16!*
DTOUT END!
DUOUT END!
EXP END!, SET+10*
EXPD END!, SET+10*, SET+15
IO START+2
IOF PRINT+7
ION START+2
IOP START+2*, END!
>> IOS A7BAR+3
IOST(0 START+6, START+7, START+8
JJ END!, A7BAR+3*
LINE PRINT+17*, END!
>> LN PRINT+15*
LOOP START+16*, START+17, END!
LOT END!, SET+10*, SET+15
NAOU END!
NAOU( START+14*, START+15*, SET+4
NAOUN PRINT+3*, PRINT+7, END!, SET+6*, SET+15
NODE PRINT+3*, PRINT+7, PRINT+11, PRINT+12, PRINT+13, PRINT+21, END!, SET+5*, SET+7, SET+8
, SET+9, SET+10
NODE1 END!, SET+12*
OK END+1!
ORD END+1!, SET+11*, SET+12*, SET+13
ORDN PRINT+3*, PRINT+4*, PRINT+13, END+1!, SET+11*, SET+13*, SET+15
POP END+1!
PRT START+16, END+1!
PSD START+14*, START+15*, START+17*, END+1!, LOOP+1*, SET+2, SET+4, SET+6
PSD1 START+12*, END+1!, LOOP
PSD1( START+12, LOOP
PSD10 START+4~, START+6*, START+9, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+21, PRINT+22
PSD12 START+4~, START+6*, START+9, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+21, PRINT+22
PSDA START+17*, END+1!, LOOP+1*, SET+1, SET+2, SET+3, SET+5, SET+9, SET+12, SET+15
, SET+16
PSDBY END+1!, SET+11*, SET+12*, SET+14
PSDBYN PRINT+3*, PRINT+5*, PRINT+14, END+1!, SET+11*, SET+14*, SET+15
PSDCNT START+11*, END+1!, LOOP*
PSDCPI END+1!
PSDDT PRINT+6*, PRINT+14, END+1!
PSDEV END+1!
PSDG START+14, END+1!
PSDG( START+14
PSDL START+4~, START+7*, START+9, PRINT+9, PRINT+15
PSDL(1 START+8*, START+9, PRINT+14, PRINT+21
PSDN START+14*, END+1!
PSDOUT END+1!
PSDPN PRINT+2*, PRINT+3, PRINT+8, PRINT+10, PRINT+22, END+1!, LOOP*, LOOP+1, SET+8*, SET+15
PSDR END+1!, SET+7*
PSDRN END+1!, SET+7*, SET+15
PSDS END+1!, SET+1, SET+2
>> PSDSITE START+14, START+15
PSDSN END+1!
PSDT PRINT+3*, PRINT+6, END+1!, SET+8*, SET+15
PSDYR PRINT+6*, END+1!
QTY END+2!, SET+9*, SET+15
SEL END+2!
SITE END+2!
STAT START+17*, END+2!
U START+6, START+7, START+8, PRINT+7, PRINT+11, PRINT+12, PRINT+13, PRINT+21, SET+2, SET+15
X END+2!
Y PRINT+6*, END+2!, SET+10*
ZTDESC END+2!
ZTDTH END+2!
>> ZTQUEUED START+2, END+4
>> ZTREQ END+4*
ZTRTN END+2!
ZTSAVE END+2!
ZTSK END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All