Routine: PSGWCPA1

Package	Total	Call Graph
Auto Replenishment Ward Stock	1	$$PSGWDT^PSGWUTL1
Kernel	1	^%ZISC
VA Fileman	1	^DIR

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWCPA

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	END+1
^DIR	HDR+1
$$PSGWDT^PSGWUTL1	HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LN,!?5,"NO COST DATA FOUND FOR SELECTED DATE RANGE." Line Location: EN1+0
Function Call: WRITE	Prompt: !?7,"==> ",$P(^PSI(58.1,AOU,0),"^") Line Location: AOULP+1
Function Call: WRITE	Prompt: !?44 Line Location: WRTOT+0
Function Call: WRITE	Prompt: "-" Line Location: WRTOT+0
Function Call: WRITE	Prompt: !?39,"TOTAL",?46,$J((AOUQD),8,0),?64,$S(INACTOT=1:"INCOMPLETE",1:$J((AOUCST),10,2)),!! Line Location: WRTOT+1
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue: " Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !?5,"COST REPORT FROM " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: !!?53,"DATE: ",$$PSGWDT^PSGWUTL1 Line Location: HDR+3
Function Call: WRITE	Prompt: !?11,"AREA OF USE",!?46,"QUANTITY",!?5,"ITEM",?45,"DISPENSED",?67,"COST",!,LN Line Location: SUB1+0
Function Call: WRITE	Prompt: !!?46,"QUANTITY",!?11,"AREA OF USE",?46,"DISPENSED",?67,"COST",!,LN Line Location: SUB2+0
Function Call: WRITE	Prompt: !?5,$P(^PSI(58.1,AOU,0),"^"),?29,"COST PER WARD/LOCATION",!!?23,"WARD/LOC",?45,"% OF TOTAL",?60,"COST",!," " Line Location: WARD+0
Function Call: WRITE	Prompt: "-" Line Location: WARD+0
Function Call: WRITE	Prompt: ! Line Location: WARD+1
Function Call: WRITE	Prompt: !,"WARD/LOCATION DATA MISSING" Line Location: WRDLP+1
Function Call: WRITE	Prompt: !?14,WDNAM,?48,$J(PRCNT,3),?57,$J(((PRCNT/100)*AOUCST),10,2) Line Location: WRDLP+2
Function Call: WRITE	Prompt: !!!!?33,"COST PER SERVICE",!?16,"WARD/LOC",!?24,"SERVICE",?44,"% OF WARD/LOC",?60,"COST",!," " Line Location: SERV+0
Function Call: WRITE	Prompt: "-" Line Location: SERV+0
Function Call: WRITE	Prompt: !!?14,$P(^SC($P(WRDDA(WDN),"^"),0),"^"),":" Line Location: WD+0
Function Call: WRITE	Prompt: !!?16,"NO SERVICES LISTED FOR WARD/LOCATION." Line Location: WD+1
Function Call: WRITE	Prompt: !,"SERVICE DATA MISSING" Line Location: SRLP+0
Function Call: WRITE	Prompt: !?16,SRNAM,?48,$J(PRCT,3),?57,$J(((PRCT/100)(($P(WRDDA(WDN),"^",2)/100))AOUCST),10,2) Line Location: SRLP+1
Function Call: WRITE	Prompt: !?5,WD,?45,$J(CST,8,2) Line Location: SMRY+2
Function Call: WRITE	Prompt: !?5,SV,?45,$J(CST,8,2) Line Location: SMRY+4
Function Call: WRITE	Prompt: !!?27,"COST BY ",VAR," SUMMARY",!!?15,VAR,?48,"COST",! Line Location: SUB3+0
Function Call: WRITE	Prompt: "-" Line Location: SUB3+0
Function Call: WRITE	Prompt: !!?40 Line Location: TOTLN+0
Function Call: WRITE	Prompt: "=" Line Location: TOTLN+0
Function Call: WRITE	Prompt: !,?TAB,"TOTAL FOR ALL ",VAR,"S:",?45,$J(GRTOT,8,2) Line Location: TOTLN+1
Routine Call	DIR Line Location: HDR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^DIC(42.4 - [#42.4]	SRLP+1
^PSI(58.1 - [#58.1]	AOULP+1, WRTOT+2, WARD, WRDLP, WD+1, SRLP
^PSI(58.2 - [#58.2]	HDR+2
^SC - [#44]	WRDLP+2, WD
^TMP("PSGWCPA"	EN1, AOULP, DRGLP, END+1!, WRDLP+3, SRLP+2, SMRY+1, SMRY+2, SMRY+4

Label References

Name	Line Occurrences
AOULP	WRTOT+2, WRTOT+3
BRKDN	WRTOT+3
DONE	EN1, AOULP
DRGLP	DRGLP+2, DRGLP+3
END	AOULP, AOULP+1, DRGLP+1, WRTOT+3
HDR	EN1, AOULP+1, DRGLP+1, WARD, SMRY+1, SMRY+3
SERV	WRDLP
SMRY	AOULP
SRLP	SRLP+2
SUB1	AOULP+1, DRGLP+1
SUB2	AOULP+1
SUB3	SMRY+1, SMRY+3
TOTLN	SMRY+3, SMRY+5
WD	SRLP
WRDLP	WRDLP+3
WRTOT	DRGLP

Naked Globals

Name	Field # of Occurrence
^(	WRDLP+3, SRLP+2, SMRY+2, SMRY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%H	END+1!
%I	END+1!
ALL	END!
AOU	EN1, AOULP, AOULP+1, DRGLP, WRTOT+2, END!, WARD, WRDLP, WD+1, SRLP
AOUCNT	AOULP, END!
AOUCST	AOULP, DRGLP+2, WRTOT+1, END!, WRDLP+2, WRDLP+3, SRLP+1, SRLP+2
AOULP	END!
AOUQD	AOULP, DRGLP+2, WRTOT+1, END!
AUTO	DONE+1*, END!
BDT	END!, HDR+2
CST	END!, SMRY+2, SMRY+4
DIR	HDR+1!
DIR(0	HDR+1*
DRG	AOULP+1, DRGLP, DRGLP+1, END!
DRGCST	END!
DRGDA	END!
DRGNAME	END!
DRGNM	END!
DRGQD	END!
DTIME	DONE+1
EDT	END!, HDR+2
FLG	AOULP+1, DRGLP+1, END!
G	END+1!
GRTOT	END!, SMRY+1, SMRY+2, SMRY+3, SMRY+4, TOTLN+1
HFLG	EN1, DRGLP+1, END!
IGDA	END!, HDR+2
INACTOT	AOULP, DRGLP+3, WRTOT+1, WRTOT+2, END!
INC	END!
INVDA	END!
INVDT	END!
INVN	END!
IO("Q"	END!
IOF	DONE, HDR+2
IOSL	DRGLP+1, WARD
IOST	DONE, DONE+1, HDR+1
J	WRTOT, END!, WARD, WRDLP+1, SERV, SRLP, SMRY+4, SUB3, TOTLN
JJ	END!
L	END!, SMRY+2*
LN	EN1*, END!, SUB1, SUB2
LOC	DRGLP*, DRGLP+1, DRGLP+2, END!
LOC1	END!
LOC2	END!
LOCSR	END!, SRLP*, SRLP+1
LOCWD	END!, WRDLP*, WRDLP+1
ODA	END!
ODT	END!
OUT	EN1, AOULP, AOULP+1, DRGLP+1, WRTOT+3, END!, HDR+1, WARD, SMRY+1, SMRY+3
PGCT	EN1, END!, HDR+1, HDR+2, HDR+3
PRCNT	END!, WRDLP*, WRDLP+2, WRDLP+3
PRCT	END!, SRLP+1*, SRLP+2
PSGWIO	END+1!
QD	END+1!
RETDT	END+1!
SEL	END!, HDR+2
SRLOC	END+1!, SRLP+2*
SRNAM	END+1!, SRLP+1*, SRLP+2
SRV	END+1!, SRLP+1*
SRVDA	END+1!, WD+2, SRLP
SV	END+1!, SMRY+1, SMRY+4
TAB	END+1!, TOTLN*, TOTLN+1
VAR	END+1!, SMRY+1, SMRY+3, SUB3, TOTLN, TOTLN+1
WARD	END+1!, WRDLP*, WRDLP+2
WD	END+1!, SMRY+1, SMRY+2
WDLOC	END+1!, WRDLP+3*
WDN	END+1!, SERV+1, WD, WD+1, SRLP, SRLP+1, SRLP+2
WDNAM	END+1!, WRDLP+2*, WRDLP+3
WRDA	END+1!, WARD+1, WRDLP
WRDDA	AOULP!, END+1!
WRDDA(	WRDLP*, WD, SRLP+1, SRLP+2
Y	END!, HDR+1, HDR+2*
ZTIO	END+1!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTSK	END!, END+1!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWCPA1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: