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

Package: Auto Replenishment Ward Stock

Routine: PSGWNU1


Information

PSGWNU1 ;BHAM ISC/PTD,CML-Print Drugs (Items) with NO Usage for Selected Date Range - CONTINUED ; 23 Mar 93 / 12:54 PM

Source Information

Source file <PSGWNU1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;PRINT ZERO USAGE REPORT FOR ALL DRUGS BY AOU
AOULP
DRLP
DONE
END
HDR ;PRINT REPORT HEADER
MSG
PRTCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO ITEMS WITH ZERO USAGE FOR SELECTED DATE RANGE."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"==> ",$P(^PSI(58.1,AOU,0),"^")
  • Line Location: AOULP+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: DRLP+2
Function Call: WRITE
  • Prompt: ?48,$P(Y,"@")
  • Line Location: DRLP+3
Function Call: WRITE
  • Prompt: ?64,"INCLUDES RETURNS"
  • Condition for execution: RET="Y"
  • Line Location: DRLP+3
Function Call: WRITE
  • Prompt: ?48,"NO DISPENSE DATES FOUND"
  • Line Location: DRLP+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"ITEMS WITH ZERO USAGE FROM "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"AREA OF USE",?55,"DATE: ",$$PSGWDT^PSGWUTL1
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?8,"NO USAGE FOR:",?45,"DATE LAST DISPENSED:",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!,"For each ""*"" printed, 90 days have passed from",!,"the date item was last dispensed to current date."
  • Line Location: MSG+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1
Info |  Source |  Entry Points |  Interaction Calls