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

Package: Controlled Substances

Routine: PSDRPT


Information

PSDRPT ;BIR/BJW-Reprint Misc (VA FORM 10-2321) ; 3 Mar 98

Source Information

Source file <PSDRPT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Controlled Substances 2 ^PSDGSRV2  ^PSDSET  
VA FileMan 2 (,IX)^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSD NURSE REPRINT 2321  PSDRDR  

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask transfer from naou
TYPE ;select type return to stock or turn in for destruction
CHK ;check for type of destructions
GS ;select green sheet #
PRINT ;print 2321
END
MSG ;check and write msg if not ok
MSG1
LOOK ;lookup destructions #

External References

Name Field # of Occurrence
^DIC ASKN+3, LOOK+3
IX^DIC GS+5
^DIR TYPE+5, CHK+3
^PSDGSRV2 PRINT+10
^PSDSET PSDRPT+8
$$FMTE^XLFDT PRINT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to reprint",!,?12,"this transfer copy of VA FORM 10-2321.",!!,"PSJ RNURSE, PSD NURSE, PSJ RPHARM or PSD TECH ADV security key required.",!
  • Line Location: PSDRPT+10
Function Call: WRITE
  • Prompt: !!,"Reprint Transfer Between NAOUs VA FORM 10-2321",!
  • Line Location: PSDRPT+11
Function Call: WRITE
  • Prompt: $C(7),!,"Please note that you may reprint only the copy of the VA FORM 10-2321 for",!,"Green Sheets transferred from your NAOU that have NOT BEEN RECEIVED on",!,"the transfer to NAOU.",!
  • Line Location: PSDRPT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+1
Function Call: READ
  • Variable: NUM
  • Timeout: DTIME
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"No copies printed!!",!!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 9",!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,"Green Sheet #",PSDPN," has not been ",$S(TYPE=1:"returned to stock",TYPE=2:"turned in for destruction",1:"transferred between NAOUs"),".",!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"No Reprint of VA FORM 10-2321",!!
  • Line Location: MSG1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+2
Routine Call
  • DIC
  • Line Location:
    • ASKN+3
    • LOOK+3
Routine Call
  • DIC
  • Line Location:
    • GS+5
Routine Call
  • DIR
  • Line Location:
    • TYPE+5
    • CHK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+7
^PSD(58.8 - [#58.8] GS+11
^PSD(58.81 - [#58.81] GS+8, GS+9, GS+10, GS+11
^PSD(58.86 - [#58.86] PRINT+3, LOOK+4
^PSDRUG - [#50] GS+6, LOOK+4
^XUSEC("PSD NURSE" PSDRPT+9
^XUSEC("PSD TECH ADV" PSDRPT+9
^XUSEC("PSJ RNURSE" PSDRPT+9
^XUSEC("PSJ RPHARM" PSDRPT+9

Label References

Name Line Occurrences
END ASKN+3, TYPE+5, CHK+3, CHK+4, GS+5, GS+8, GS+9
GS ASKN+4, TYPE+6
LOOK CHK+4
MSG GS+8, GS+9
MSG1 CHK+3, LOOK+3
PRINT CHK+4, PRINT+6

Naked Globals

Name Field # of Occurrence
^(2 PRINT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
AOU ASKN+3*, END!
AOUN ASKN+3*, END!
COMP PRINT+5*, END!
D GS+1*, END!
DA ASKN+1!, TYPE+1!, CHK+1!, GS+1!, END!, LOOK+2!
DIC ASKN+1!*, ASKN+3!, GS+1!*, GS+5!, END!, LOOK+2!*, LOOK+3!
DIC("A" ASKN+1*, GS+1*, LOOK+2*
DIC("S" ASKN+2*, GS+2*, GS+3*, GS+4*, LOOK+3*
DIC(0 ASKN+1*, GS+1*, LOOK+2*
DIE END!
DIR TYPE+1!, TYPE+5!, CHK+1!, CHK+3!, END!
DIR("?" TYPE+3*, TYPE+4*, CHK+2*
DIR("A" TYPE+2*, CHK+1*
DIR("B" CHK+1*
DIR(0 TYPE+1*, CHK+1*
DIROUT END!
DIRUT TYPE+1!, TYPE+5, CHK+1!, CHK+3, END!
DR END!
DTIME PRINT+4
DTOUT END!
DUOUT END!
DUZ PSDRPT+9
EXP GS+7*, PRINT+9*, END!, LOOK+5*
EXP1 PRINT+9*, END!
EXPD PRINT+9*, END!
LOT GS+7*, END!, LOOK+5*
MFG GS+7*, END!, LOOK+5*
NAOUT GS+11*, END+1!
NAOUTN GS+11*, END+1!
NODE GS+10*, GS+11*, END+1!
NUM PRINT+4*, PRINT+6, END+1!
OK PSDRPT+9*, PSDRPT+10!, END+1!
ORD END+1!
PG PRINT+8*, END+1!
PSDA GS+5*, GS+8, GS+9, GS+10, GS+11, END+1!
PSDCOMS PRINT+3*, END+1!
PSDHLD GS+10*, PRINT+3, END+1!, LOOK+4*
PSDOK END+1!, LOOK+4*
PSDOUT CHK+4, GS+8, GS+9, PRINT+8*, END+1!, MSG1+1*, LOOK+1*
PSDPN GS+6*, END+1!, MSG+1
PSDR GS+6*, END+1!, LOOK+4*
PSDRN GS+6*, END+1!, LOOK+4*, LOOK+5*
PSDS GS+7*, END+1!
>> PSDSITE PSDRPT+8
PSDSN END+1!
PSDTYP END+1!
PSDUZ END+1!
PSDYR PRINT+7*, PRINT+8, END+1!
REAS GS+10*, PRINT+2*, END+1!
RECD GS+10*, GS+11*, PRINT+7, PRINT+8, END+1!, LOOK+4*
RECDT PRINT+8*, END+1!
REPRINT PRINT+2*, END+1!
RQTY GS+10*, GS+11*, END+1!, LOOK+4*
STAT END+1!
STATN END+1!
SUM END+1!
TYPE ASKN+4*, TYPE+5*, TYPE+6, GS+2, GS+3, GS+4, GS+8, GS+9, GS+10, GS+11
, PRINT+5, END+1!, MSG+1
X END+1!
Y ASKN+3, TYPE+5, CHK+4, GS+5, PRINT+7*, END+1!, LOOK+3, LOOK+4
Y(0 GS+6, GS+7, LOOK+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All