Routine: PSGWAR1

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

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWAR

Entry Points

Name	Comments	DBIA/ICR reference
DTDA
END
WRTLN	;PRINT A SINGLE LINE FOR SPECIFIED FIELD
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.
PRINT	;PRINT AMIS REPORT
ENQ	;ENTRY POINT WHEN QUEUED
DONE
SETPC
FLDLP
DTLP
LINE
TOTAL	;CALCULATE AND SET PIECES 5,6,&7. SET "05", "08" & "18" NODES.
SETOT

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

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

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

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, FLDLP, FLDLP+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*, SETPC, SETPC+1, SETPC+2, SETOT, SETOT+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!, FLDLP, FLDLP+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!