Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Auto Replenishment Ward Stock 1 ($$PSGWDT,HELP,SS)^PSGWUTL1  
Kernel 1 ^%ZISC  
VA FileMan 1 (,NOW)^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWNU  

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 ;

External References

Name Field # of Occurrence
^%DTC DRLP+2
NOW^%DTC PRINT+1
^%ZISC END+1
$$PSGWDT^PSGWUTL1 HDR+2
HELP^PSGWUTL1 PRTCHK+1
SS^PSGWUTL1 DONE+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DRLP+3, HDR+1
^PSI(58.1 - [#58.1] AOULP
^PSI(58.2 - [#58.2] HDR+1
^TMP("PSGWNU" PRINT+1, AOULP, DRLP, DRLP+1, END!

Label References

Name Line Occurrences
AOULP DRLP
DONE PRINT+1, AOULP
DRLP DRLP+3, DRLP+4
END AOULP, DRLP
HDR PRINT+1, PRTCHK+2
MSG DRLP, PRTCHK+1
PRTCHK AOULP, DRLP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1, END+1!
%H END+1!
%I END+1!
ALL END!
ANS END!, PRTCHK+1*
AOU PRINT+1*, AOULP*, DRLP, DRLP+1, END!
AOULP END!
AR DRLP+1*, END!
ARDT END!
ASTER DRLP+2*, END!
BDT END!, HDR+1
CURDT PRINT+1*, DRLP+2, END!
DA END+1!
DRG AOULP*, DRLP*, DRLP+1, DRLP+3, END!
DRGDA END!
DRGNAME END!
DRGNM END!
DRGQD END!
DTIME PRTCHK+1
EDT END!, HDR+1
G END+1!
IGDA END+1!, HDR+1
INVDA END!
INVDT END!
INVN END!
IO("Q" END+1!
IOF DONE, HDR+1
IOSL DRLP
IOST DRLP, DONE, DONE+1, PRTCHK+1
J DRLP+2*, END!, HDR+3*
JJ END!
LOC DRLP+1*, END!
LSTDT DRLP+1*, DRLP+2, DRLP+3, DRLP+4, END!
OD DRLP+1*, END!
ODA END!
ODT END!
PGCT PRINT+1*, END!, HDR+1, HDR+3*, PRTCHK+1
PSGWIO END!
QD END!
QFLG PRINT+1*, AOULP, DRLP, DONE+1, END!, PRTCHK+1*
RET DRLP+1*, DRLP+3, END!
RETDT END!
RFLG END!
SEL END+1!, HDR+1
X DRLP+2, END!
>> X1 DRLP+2*
>> X2 DRLP+2*
Y DRLP+3*, END!, HDR+1*
ZTIO END+1!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All