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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGWTOT2

Package: Auto Replenishment Ward Stock

Routine: PSGWTOT2


Information

PSGWTOT2 ;BHAM ISC/PTD,CML-Print Usage Report for Single Drug for One or ALL AOUs ; 23 Mar 93 / 1:03 PM

Source Information

Source file <PSGWTOT2.m>

Entry Points

Name Comments DBIA/ICR reference
ENQ ;ENTRY POINT WHEN QUEUED.
AOULP
DRG
AR ;INVENTORIES
INVLP
OD ;ON DEMANDS
ODLP
RET ;RETURNS
RETLP
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
PRINT ;PRINT USAGE REPORT FOR SINGLE DRUG BY AOU
AOU
TYP
DT
DONE
END
HDR ;
SUB ;
WRTLN
SUBTOT ;
TOTAL
GRTOT ;
PRTCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"NO USAGE FOR ",ITNAM," FOR SELECTED DATES."
  • Line Location: PRINT+1
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: !,"USAGE REPORT 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: !?5,"AREA OF USE",?55,"DATE: ",$$PSGWDT^PSGWUTL1,!,"ITEM",?15,"INVENTORY DATE",?35,"DISPENSE QUANTITY",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?5,"==> ",$P(^PSI(58.1,AOU,0),"^"),!,ITNAM,!!
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !?15,$P(Y,"@")," ",$P(Y,"@",2),?43,$J(QD,4)
  • Line Location: WRTLN+0
Function Call: WRITE
  • Prompt: !?43,"-----"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?12,"SUBTOTAL AUTO REPL.",?40,"+",?43,$J(ARQD,4),!
  • Condition for execution: TYP="AR"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?12,"SUBTOTAL ON DEMAND",?40,"+",?43,$J(ODQD,4),!
  • Condition for execution: TYP="OD"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?12,"SUBTOTAL RETURNS",?40,"-",?43,$J(RTQD,4),!
  • Condition for execution: TYP="RT"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?42,"=======",!,"TOTAL DISPENSED",?43,$J(DRGQD,4)
  • Line Location: TOTAL+0
Function Call: WRITE
  • Prompt: !!?38
  • Line Location: GRTOT+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: GRTOT+2
Function Call: WRITE
  • Prompt: !,"TOTAL USAGE FOR ALL AREAS IS:",?43,$J(GRTOT,4)
  • Line Location: GRTOT+3
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call