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

Package: Controlled Substances

Routine: PSDLBL5


Information

PSDLBL5 ;BIR/JPW-CS Label Prt for CS Disp Drug (cont'd) ; 17 May 94

Source Information

Source file <PSDLBL5.m>

Entry Points

Name Comments DBIA/ICR reference
START ;entry for compile and print labels
PRINT ;print labels
DONE
END ;kill variables and exit
LOOP
PRINT1 ;prints labels
SET1 ;sets disp info
SET ;sets ^tmp
DIE ;update label printed

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,@PSDBAR1,$P(PSD(1),U),@PSDBAR0
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: ?PSDX1*33+1,$E(TEMP(PSDX1+1),1,30)
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: @PSDBAR1,$P(TEST(PSDX1)," "),@PSDBAR0
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?PSDX1*32+3,TEST(PSDX1+1)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+4
Info |  Source |  Entry Points |  Interaction Calls