Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 #

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
Info |  Source |  Entry Points |  Interaction Calls