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

Entry Points

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

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