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

Package: Controlled Substances

Routine: PSDRPGS2


Information

PSDRPGS2 ;BIR/JPW,LTL,BJW-Reprint Green Sheet (VA FORM 10-2638) cont'd ; 3 Mar 98

Source Information

Source file <PSDRPGS2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
Controlled Substances 1 A7BAR^PSDPGS1  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDRPGS  

Entry Points

Name Comments DBIA/ICR reference
SET ;set data for printing
END
SETT ;set trans naous
START ;loop through transactions
PRINT ;print green sheet
LOOP

External References

Name Field # of Occurrence
^%ZIS START+2
^%ZISC END+2
^DIE PRINT+26
A7BAR^PSDPGS1 START+5

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: ?33,NAOUN
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: $C(13),?70,@A7BAR1,@PSD10,PSDPN,@A7BAR0,@PSD12
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: @PSDL,!?6,"CONTROLLED SUBSTANCE ADMINISTRATION RECORD",?54
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: "Pharmacy Dispensing # ",@PSD10,PSDPN,@PSD12,!?6
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: "Drug: ",@PSD10,PSDRN,@PSD12,?60,"Exp: ",EXPD,?78
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: "Qty: ",@PSD10,QTY,@PSD12,!?6
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: "Lot#",LOT,?21,"Ord by: ",$E(ORDN,1,20)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?45,"Disp by: ",$E(PSDBYN,1,20),?70,"Date: ",PSDDT,@PSDL(1),!?7
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: LN,@PSDL,!?6
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: "| DATE TIME NAME OF PATIENT DOSE BALANCE ADMINISTERED BY |"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !?6,"|_______|_____|_______________________|_____|______|___________________________|"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !?6,"Above Drug Received: Date__________ R.N. Sign_____________________________"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !?6,"Above Drug Administered: Date__________ R.N. Sign_____________________________"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !?6,"Entries Reviewed: Date__________ R.PH. Sign____________________________",!?6
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: @PSDL(1),"Drug: ",@PSD10,PSDRN,@PSD12,?60
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: "Pharmacy Dispensing # ",@PSD10,PSDPN,@PSD12,!?6
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: "Automated VA FORM 10-2638"
  • Line Location: PRINT+23
Routine Call
  • DIE
  • Line Location:
    • PRINT+26
Routine Call
  • %ZIS
  • Line Location:
    • START+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] START+6, START+7, START+8
^DD("DD" SET+10, PRINT+3
^DPT - [#2] PRINT+5
^PSD(58.8 - [#58.8] SET+6, SET+19, SETT+3
^PSD(58.81 - [#58.81] LOOP+1, SET+2, SET+4, SET+9, SET+12, SET+15, SET+18, PRINT+5, SETT+1, SETT+2
, SETT+4
^PSDRUG - [#50] SET+7
^VA(200 - [#200] SET+13, SET+14

Label References

Name Line Occurrences
LOOP START+11, LOOP+2
PRINT SET+15
SET LOOP+1
SETT SET+17, SETT+4

Naked Globals

Name Field # of Occurrence
^(0 SET+6, SET+7, SET+13, SET+14, SET+19, SETT+3
^(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+7
A7BAR1 START+4~, PRINT+7
>> A7PRT PRINT+7
ANS END!
ASK END!
C END!
CNT END!, SET+15*, SET+18, SET+19, PRINT+6, SETT+1, SETT+3, SETT+4*
D END!
DA END!, PRINT+26!*
DIC END!
DIE END!, PRINT+26!*
DIR END!
DIROUT END!
DIRUT END!
DR END!, PRINT+26!*
DTOUT END!
DUOUT END!
EXP END!, SET+10*
EXPD END!, SET+10*, PRINT+10
IO START+2
IOF PRINT+4
ION START+2
>> IOP START+2*
IOST(0 START+6, START+7, START+8
LINE END!, PRINT+16*
>> LN PRINT+14*
LOT END!, SET+10*, PRINT+12
NAOU END!, SET+18*, SET+19, SETT+2*, SETT+3
NAOUN END!, SET+6*, PRINT+5
NODE END!, SET+2*, SET+3, 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 END+1!, SET+11*, SET+13*, PRINT+1*, PRINT+12
POP END+1!
PRT END+1!
PSD START+10*, END+1!, SET+5*, SET+6
PSD1 START+11*, END+1!, LOOP
PSD1( START+11, LOOP
PSD10 START+4~, START+6*, START+9, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+21, PRINT+22
PSD12 START+4~, START+6*, START+9, PRINT+4, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+21, PRINT+22
PSDA END+1!, LOOP+1*, SET+2, SET+4, SET+9, SET+12, SET+15, PRINT+5, PRINT+26
PSDBY END+1!, SET+11*, SET+12*, SET+14
PSDBYN END+1!, SET+11*, SET+14*, PRINT+2*, PRINT+13
PSDCNT START+10*, END+1!, LOOP*
PSDCPI END+1!
PSDDT END+1!, PRINT+3*, PRINT+13
PSDEV END+1!
PSDL START+4~, START+7*, START+9, PRINT+8, PRINT+14
PSDL(1 START+8*, START+9, PRINT+13, PRINT+21
PSDOUT END+1!, SET+1*, SET+15, SET+17, SETT+2*
PSDPN END+1!, LOOP*, LOOP+1, PRINT+7, PRINT+9, PRINT+22
PSDR END+1!, SET+7*
PSDRN END+1!, SET+7*, PRINT+10, PRINT+21
PSDS START+10, END+1!, SET+3
PSDSN END+1!
PSDT END+1!, SET+8*, PRINT+3
PSDTR END+1!, SET+1!
PSDTR( SET+15*, SET+18, SET+19*, PRINT+6, SETT+1, SETT+3*, SETT+4*
PSDTRN END+1!, SETT+1*, SETT+2, SETT+4
PSDYR END+1!, PRINT+3*
QTY END+1!, SET+9*, PRINT+11
REPRINT END+1!, SET+4*, PRINT+5
SITE END+1!
STAT END+1!
TRANS END+1!, SET+1!, SET+16*, PRINT+5, PRINT+6
U START+6, START+7, START+8, SET+3, PRINT+5
Y END+1!, SET+10*, PRINT+3*
ZTDESC END+1!
ZTDTH END+1!
>> ZTQUEUED START+2, END+2
>> ZTREQ END+2*
ZTRTN END+1!
ZTSAVE END+1!
ZTSK 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