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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGWAR1

Package: Auto Replenishment Ward Stock

Routine: PSGWAR1


Information

PSGWAR1 ;BHAM ISC/PTD,CML-Print AMIS Report ; 30 Aug 93 / 10:49 AM

Source Information

Source file <PSGWAR1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Auto Replenishment Ward Stock 1 (HDR,SUB1,SUB2,SUB3,SUB4,SUMRY)^PSGWARP  
Kernel 1 ^%ZISC  

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 PSGWAR  

Entry Points

Name Comments DBIA/ICR reference
ENQ ;ENTRY POINT WHEN QUEUED
DONE
END
START ;LOOP THROUGH "B" CROSS-REFERENCE AND ^PSI(58.5,DATDA,"S",SITE,"AMIS",FLDA). FOR EACH DATE SELECTED, LOOP THROUGH THE FIELDS AND ADD TOTALS TO LOCAL ARRAY.
DTLP
DTDA
FLDLP
TOTAL ;CALCULATE AND SET PIECES 5,6,&7. SET "05", "08" & "18" NODES.
PRINT ;PRINT AMIS REPORT
SETPC
SETOT
WRTLN ;PRINT A SINGLE LINE FOR SPECIFIED FIELD
LINE

External References

Name Field # of Occurrence
^%ZISC END+1
HDR^PSGWARP PRINT+1
SUB1^PSGWARP PRINT+1
SUB2^PSGWARP PRINT+2
SUB3^PSGWARP PRINT+3
SUB4^PSGWARP PRINT+3
SUMRY^PSGWARP PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** AR/WS AMIS HAS NO DATA TO PRINT ***"
  • Line Location: ENQ+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !?8,FLD,?18,$J($P(LOC(FLD),"^"),6,0),?32,$J($P(LOC(FLD),"^",2),10,2),?50,$J($P(LOC(FLD),"^",3),6,0),?64,$J($P(LOC(FLD),"^",4),10,2),?82,$J($P(LOC(FLD),"^",5),6,0),?96,$J($P(LOC(FLD),"^",6),10,2),?114,$J($P(LOC(FLD),"^",7),10,2)
  • Line Location: WRTLN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: " "
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.4 - [#59.4] ENQ+2
^PSI(58.5 - [#58.5] ENQ+2, DTLPDTDAFLDLPFLDLP+1

Label References

Name Line Occurrences
DONE ENQ+3
DTDA FLDLP
DTLP DTDA
FLDLP FLDLP+4
LINE PRINT+1, PRINT+2, PRINT+3
SETOT TOTAL+2, TOTAL+3
SETPC TOTAL+1
START ENQ+4
TOTAL DTLP
WRTLN PRINT+1, PRINT+2, PRINT+3

Naked Globals

Name Field # of Occurrence
^(0 ENQ+2, FLDLP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
ADT END!
AOU END!
BDT ENQ+2, END!, START+2
CURDT END!
DATDA END!, START+2*, DTDA*, FLDLPFLDLP+1
EDT ENQ+2, END!, DTLP
FLD END!, START+1!, FLDLP+1*, FLDLP+2, FLDLP+3, TOTAL+1*, TOTAL+2*, TOTAL+3*, PRINT+1*, PRINT+2*
PRINT+3*, SETPCSETPC+1, SETPC+2, SETOTSETOT+1, WRTLN+1
FLDA END!, START+1!, DTDA+1*, FLDLP*, FLDLP+1
G END!
IO("Q" END!
IOF DONE
IOST DONE
J END!, START+2*, FLDLP+3*, SETOT*, LINE*, LINE+1*
LL END!
LN END!
LOC END!, START+1!
LOC( START+2*, FLDLP+2*, FLDLP+3*, SETPC*, SETPC+1*, SETPC+2*, SETOT*, SETOT+1*, WRTLN+1
LOC(17 TOTAL+4
LOC(18 TOTAL+4*
LOC1 END!, START+1!, FLDLP+1*, FLDLP+2, FLDLP+3
LPDT END!, START+2*, DTLP*, DTDA
RPDT ENQ+2*, END!
SITE ENQ+2*, ENQ+4*, END!, FLDLPFLDLP+1
SITE( ENQ+2*, ENQ+4
SITE(0 ENQ+3
SUB START+1!
SUB1 END!, START+1!, TOTAL+2*, TOTAL+3*, SETOT
SUB2 END!, TOTAL+2*, TOTAL+3*, SETOT
UPDT END!
X END!
Y END!
>> 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 |  Naked Globals |  Local Variables  | All