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

Package: Controlled Substances

Routine: PSDLSTK2


Information

PSDLSTK2 ;BIR/JPW-Print Stock Drugs Alphabetically ; 2 Aug 94

Source Information

Source file <PSDLSTK2.m>

Entry Points

Name Comments DBIA/ICR reference
START ;entry point for report
PRINT ;prints data for stock drugs
DONE
END ;
HEADER ;lists header information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?45,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"=> ",$S(NAOU["ZZ/":"#"_$P(NAOU,"/",2)_" NAME MISSING",1:NAOU)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"=> ",$S(NAOU["ZZ/":"#"_$P(NAOU,"/",2)_" NAME MISSING",1:NAOU)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"ALPHABETICAL LISTING OF NAOU STOCK - DATE: "_RPDT,?121,"PAGE: "_PG,!!,?2,"NARCOTIC AREA OF USE"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?12,"DRUG",?57,"LOCATION",?74,"STOCK LEVEL",?92,"REORDER LEVEL",!,LN,!
  • Line Location: HEADER+3
Info |  Source |  Entry Points |  Interaction Calls