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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGWDR

Package: Auto Replenishment Ward Stock

Routine: PSGWDR


Information

PSGWDR ;BHAM ISC/PTD,CML-Returns Breakdown Report for Selected Date Range ; 30 Aug 93 / 10:49 AM

Source Information

Source file <PSGWDR.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  ^DIC  ^DIK  
Auto Replenishment Ward Stock 1 ($$PSGWDT,HELP,SEL,SS)^PSGWUTL1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW RETURNS BREAKDOWN  

Entry Points

Name Comments DBIA/ICR reference
DRUG ;LOOP THROUGH DRUGS FOR AOU
RSN
EN
DRGLP
DRLP
ENQ ;ENTRY POINT WHEN QUEUED
AOULP
RET ;RETURNS
PRTCHK ;
DEV
HDR ;PRINT REPORT HEADER
BDT
AOU
SET ;
RETLP
ASKAOU
EDT
PRINT ;
DONE
RLP
END

External References

Name Field # of Occurrence
^%DT BDT, EDT
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZISC END
^%ZTLOAD DEV+2
^DIC ASKAOU
^DIK DRGLP+1
$$PSGWDT^PSGWUTL1 HDR+2
HELP^PSGWUTL1 PRTCHK+1
SEL^PSGWUTL1 EDT+1
SS^PSGWUTL1 DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO RETURNS FOR SELECTED DATE RANGE."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: " *** INACTIVE ***"
  • Line Location: AOULP+1
Function Call: WRITE
  • Prompt: !!,"----------",!,DRG
  • Line Location: DRLP+0
Function Call: WRITE
  • Prompt: !?35,RETPRT,?51,$J(LOCQD,4)
  • Line Location: RLP+2
Function Call: WRITE
  • Prompt: ?65,RSN
  • Line Location: RLP+2
Function Call: WRITE
  • Prompt: !?65,RSN
  • Line Location: RLP+3
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: !,"RETURNS BREAKDOWN 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: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?5,"AREA OF USE"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?55,"DATE: ",$$PSGWDT^PSGWUTL1,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?37,"RETURN",?50,"QUANTITY",?65,"RETURN",!?14,"ITEM",?38,"DATE",?50,"RETURNED",?65,"REASON",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: PRTCHK+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • ASKAOU
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" RLP, HDR+1
^PSDRUG - [#50] DRGLP+1, DRGLP+2
^PSI(58.1 - [#58.1] ASKAOU+2, DRGLP, RETLP, AOULP+1, SET+1
^PSI(58.2 - [#58.2] HDR+1
^TMP("PSGWRET" ENQ+1!, PRINT+1, AOULP, DRLP, RLP, END!, SET+2*

Label References

Name Line Occurrences
AOU DRGLP
AOULP DRLP
DONE PRINT+1, AOULP
DRGLP DRGLP+1, RETLP
DRLP RLP
EN EDT+1
END BDT, EDT, EDT+1, ASKAOU+1, EN, DEV, DEV+2, AOULP, DRLP, RLP+2
HDR PRINT+1, AOULP+1, PRTCHK+2
PRINT AOU
PRTCHK AOULP, DRLP, RLP+2, RLP+3
RETLP RETLP+1
RLP RLP+4
RSN RLP+2, RLP+3
SET RETLP

Naked Globals

Name Field # of Occurrence
^("I" AOULP+1
^(0 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
%H END!
%I END!
%ZIS DEV!*
%ZIS("B" DEV*
ALL END!
ANS END!, PRTCHK+1*
AOU ASKAOU+2*, ENQ+1*, AOU*, DRGLP, DRGLP+1, RETLP, PRINT+1*, AOULP*, AOULP+1, DRLP
, RLP, END!, SET+1, SET+2
AOULP ASKAOU+1, EN, DEV+1, END!
AOULP( ASKAOU*, ASKAOU+2*, AOU
BDT BDT*, EDT, RETLP, END!, HDR+1
CNT RLP+1*, RLP+3, END!
DA DRGLP+1*, END!
DA(1 DRGLP+1*
DIC ASKAOU*!
DIC(0 ASKAOU*
DIK DRGLP+1*!
DRG AOULP+1*, DRLP*, RLP, END!
DRGDA DRUG+1*, DRGLP*, DRGLP+1, RETLP, END!, SET+1
DRGNAME DRGLP+2*, END!, SET+2
DRGNM DRGLP*, DRGLP+1, DRGLP+2, END!
DT AOULP+1
DTIME PRTCHK+1
EDT EDT*, RETLP, END!, HDR+1
G DEV+1*, END!
IGDA END!, HDR+1
IO DEV+3
IO("Q" DEV+1!, END!
IOF DONE, HDR+1
IOP DEV!
IOSL DRLP, RLP+2, RLP+3
IOST DONE, DONE+1, PRTCHK+1
J END!, HDR+3*
JJ ASKAOU*, END!
LL RLP+3*, END!, SET+1*
LOC END!
LOCQD RLP*, RLP+2, END!
LOCR RLP*, END!
LOCRSN RLP*, RLP+1*, RLP+2, RLP+3, END!
PGCT ENQ+1*, AOULP, AOULP+1, END!, HDR+1, HDR+3*
>> POP DEV
QD END!, SET+1*, SET+2
QFLG PRINT+1*, AOULP, DRLP, RLP+2, DONE+1, END!, PRTCHK+1*
RET DRLP*, RLP*, END!
RETDT RET+1*, RETLP*, END!, SET+1, SET+2
RETPRT RLP*, RLP+2, END!
RSN RLP+2*, RLP+3*, END!, SET+1*, SET+2, RSN*
SEL EDT+1, END!, HDR+1
X ASKAOU+1, ASKAOU+2, END!
Y BDT, EDT, ASKAOU, RLP*, END!, HDR+1*
>> ZTDESC DEV+1*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN DEV+1*
>> ZTSAVE( DEV+1*
>> ZTSAVE("AOULP(" DEV+1*
ZTSK DEV+2!, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All