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

Package: Controlled Substances

Routine: PSDLSTK1


Information

PSDLSTK1 ;BIR/JPW-Print Stock Drugs by Type/Location ; 2 Aug 94

Source Information

Source file <PSDLSTK1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;entry point for report
PRINT ;print data for stock drugs
DONE
END ;
HDR ;lists header information
SET ;sets data in ^TMP global

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?45,"***** NO DATA FOR THIS REPORT *****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"=>",$S($P(^PSD(58.8,NAOU,0),"^")]"":$P(^(0),"^"),1:"#"_NAOU_" NAME MISSING")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?5,"TYPE: "_TYPE,!
  • 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: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"NAOU STOCK LIST BY TYPE/LOCATION - DATE: "_RPDT,?121,"PAGE: "_PG,!!,?2,"NARCOTIC AREA OF USE"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?5,"TYPE",!,?8,"LOCATION",?44,"DRUG",?80,"STOCK LEVEL",?115,"REORDER LEVEL",!,LN,!
  • Line Location: HDR+3
Info |  Source |  Entry Points |  Interaction Calls