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

Package: Controlled Substances

Routine: PSDGSRV1


Information

PSDGSRV1 ;BIR/BJW/PWC-Complete GS for Ret Stk/Destroy ; 7 Apr 98

Source Information

Source file <PSDGSRV1.m>

Entry Points

Name Comments DBIA/ICR reference
QTY ;
ASKN
REAS
OK
UPDATE ;update 58.81
ORDER ;update order info in 58.8
END
MSG ;
SUB ;add balance,Line 4,6,9 added 7/9/97 to update naou bal.
DESTA ;update naou balance added 8/19/96
DEST ;set up file 58.86
FIND
PRINT ;print 2321

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !!,"Accessing Green Sheet information...",!
  • Line Location: UPDATE+1
Function Call: WRITE
  • Prompt: !!,"Updating your records..."
  • Line Location: UPDATE+7
Function Call: WRITE
  • Prompt: "nursing records now..."
  • Line Location: ORDER+2
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: ORDER+8
Function Call: WRITE
  • Prompt: ?2,"*** The status of your Green Sheet #"_PSDPN_" *** ",!
  • Line Location: ORDER+9
Function Call: WRITE
  • Prompt: ?6,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" "_$P($G(^PSD(58.83,CSTAT,0)),"^")
  • Line Location: ORDER+10
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS GREEN SHEET HAS NOT BEEN COMPLETED ***",!,"The status remains "_STATN,!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!!,"Old Balance: ",BAL,?25,"New Balance: ",BAL+RQTY,!!
  • Line Location: SUB+9
Function Call: WRITE
  • Prompt: !!,"(NAOU) Old Balance: ",WARDBAL,?32,"(NAOU) New Balance: ",WARDBAL-RQTY,!!
  • Line Location: SUB+10
Function Call: WRITE
  • Prompt: !!!,"(NAOU) Old Balance: ",WARDBAL,?32,"(NAOU) New Balance: ",WARDBAL-RQTY,!
  • Line Location: DESTA+6
Function Call: WRITE
  • Prompt: !!,"Accessing your transaction history...",!!
  • Line Location: DEST+2
Function Call: WRITE
  • Prompt: !!,"Creating an entry in the Destruction file..."
  • Line Location: DEST+7
Function Call: WRITE
  • Prompt: !!,"Your Destruction Holding number is ",PSDHLD
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: !!,"Incomplete information. You must use the Reprint Disp/Receiving Report",!,"for VA FORM 10-2321 to be printed.",!
  • Line Location: FIND+6
Function Call: READ
  • Variable: NUM
  • Timeout: DTIME
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"No copies printed!!",!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 9",!
  • Line Location: PRINT+2
Info |  Source |  Entry Points |  Interaction Calls