Routine: PSOAMIS1

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO DAILY AMIS

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Daily AMIS Report. Prints Daily, Monthly and Quarterly AMIS Data",!!,"PLEASE PRINT ON WIDE PAPER, I.E., 132 COLUMNS." Line Location: PSOAMIS1+3
Function Call: WRITE	Prompt: !! Line Location: DA+0
Function Call: WRITE	Prompt: !,$P("INPAT^SC^A&A^OTHER^NVA^CNTLD^METHA^PAT REQ^FEE^STAFF^NEW^REFILL^WINDOW^MAIL","^",I) Line Location: PRI+1
Function Call: WRITE	Prompt: @IOF,?20,"Daily/Monthly/Quarterly AMIS report for " Line Location: HDR+2
Function Call: WRITE	Prompt: Y,!?20,"Division: "_$P(^PS(59,DIV,0),"^"),?115,"Page: "_PG Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,$E(PSDATE,4,5)_"-"_$E(PSDATE,6,7)_"-"_$E(PSDATE,2,3),?50,"Monthly Totals",?80,"Quarterly Totals" Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"Sub Totals",?20,$J("=========",9),?50,$J("=========",9),?80,$J("=========",9),!,?20,$J(^TMP("PSOAMIS",$J,"SUB",DIV),9),?50,$J(^TMP("PSOAMIS",$J,"SUBMONTH",DIV),9),?80,$J(^TMP("PSOAMIS",$J,"SUBQTR",DIV),9) Line Location: SUB+0
Routine Call	DIR Line Location: DIR
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^PS(59 - [#59]	ENQ+1, ENQ+9, PRI+1, HDR+2
^PS(59.1 - [#59.1]	ENQ+4, ENQ+5, ENQ+11, ENQ+13, COMP+1, COMP+2, COMP+3
^TMP("PSOAMIS"	ENQ+1!, ENQ+2, ENQ+3, ENQ+6, ENQ+7, ENQ+9, PRI+2, PRI+4, END!, SUB , COMP+1, COMP+2, COMP+3

Name	Field # of Occurrence
%DT	DA*, END!
%DT("A"	DA*
%DT(0	DA*!
%ZIS	DEV!*
%ZIS("B"	DEV*
AA	END!
>> AFN	COMP*, COMP+1, COMP+2, COMP+3
BQTR	DA+1, DEV+2!, ENQ+13, END!, COMP+1, COMP+2, COMP+3
CNTLD	END!
DIR	DIR!
DIR(0	DIR*
DIRUT	PRI+1, PRI+4, END!, DIR!
DIV	ENQ+1, ENQ+2, ENQ+3, ENQ+9, PRI+1*, PRI+2, END!, HDR+2, SUB
DT	DA
DTOUT	DIR!
DUOUT	DIR!
EDT	DA*, DEV+2!, ENQ+11, END!
EQTR	DA+1*, DEV+2!, ENQ+13, END!
FEE	END!
G	DEV+1, DEV+2!, ENQ+11, ENQ+13*, END!
GR	END!
GT	END!
I	ENQ+4, ENQ+5, ENQ+6, ENQ+7, ENQ+9, ENQ+11, ENQ+13, PRI+1*, PRI+2, END! , COMP+1, COMP+2, COMP+3
>> IFN	COMP*, COMP+1
INPAT	END!
IO	DEV+1, HDR+2
IO("Q"	DEV+1
IOF	END, HDR+2
ION	DEV
IOP	DEV!*
IOSL	PRI+3
IOST	PRI+3, END, SUB
K	END!, HDR+3*
MAIL	END!
METH	END!
MON	DA, DEV+2!, ENQ+11, END!, COMP+1, COMP+2, COMP+3
MONTH	DA+1*, END!
>> MT	ENQ+11, ENQ+13, COMP+1, COMP+2, COMP+3
NEW	END!
OTH	END!
PG	ENQ+1, END!, HDR+1, HDR+2
POP	DEV, END!
PREQ	END!
PSDATE	DA*, DEV+2!, ENQ+4, ENQ+5, ENQ+6, ENQ+7, ENQ+9, PRI+2, END!, HDR+2 , HDR+3
PSOION	DEV*!, DEV+1!
REF	END!
S	ENQ+7*, END!
SC	END!
SDT	END!
STAFF	END!
SUB	END!
WIND	END!
X	DA, ENQ+5*, ENQ+6, END!
Y	DA, DA+1, END!, HDR+2*
ZDIV	PRI+1*, END!
>> ZTDESC	DEV+1*
>> ZTDTH	DEV+1*
ZTIO	DEV+1*, DEV+2!
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	DEV+1*
ZTSAVE	DEV+2!
ZTSAVE(	DEV+1*
ZTSK	DEV!, DEV+2!