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

Package: Controlled Substances

Routine: PSDPGS1


Information

PSDPGS1 ;BIR/JPW-Print Green Sheet (VA FORM 10-2638 ) (cont'd) ; 3 Mar 98

Source Information

Source file <PSDPGS1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;loop through transactions
PRINT ;print green sheet
END
LOOP
SET ;set data for printing
A7BAR ;DALISC/JRR set up vars to print barcode on green sheet

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: !,"*** SORRY NO GREEN SHEETS TO PRINT ***",!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?33,NAOUN," ",$P($G(^DPT(+$P(NODE,U,9),0)),U)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: $C(13),?70,@A7BAR1,@PSD10,PSDPN,@A7BAR0,@PSD12
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: LN,@PSDL,!?6
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !?6,"|________|_____|_______________________|_____|______|___________________________|"
  • Line Location: PRINT+17
Info |  Source |  Entry Points |  Interaction Calls