Routine: PSOAMIS

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

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO AMIS PSORPTS

Package

Total

Caller Graph

Outpatient Pharmacy

PSO AMIS PSORPTS

Name	Comments	DBIA/ICR reference
END
RPT	; HEADER
DEV
ENQ	;START COMPUTATIONS
DIR
EDT
COM	;COMPILE SUB-TOTALS AND GRAND TOTALS
GR	;PRINT GRAND TOTALS
SUB	;PRINT SUB TOTALS

Name	Field # of Occurrence
^%DT	PSOAMIS+3, EDT
^%ZIS	DEV+1
^%ZISC	END
^%ZTLOAD	DEV+4
^DIR	DIR

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSOAMIS+3
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: $C(7),!!,"PRINTOUT MUST BE SENT TO A 132 COLUMNS PRINTER !!",!! Line Location: DEV+0
Function Call: WRITE	Prompt: !,$E(PSDATE,4,5)_"-"_$E(PSDATE,6,8)_"-"_$E(PSDATE,2,3) Line Location: ENQ+12
Function Call: WRITE	Prompt: $J(+$P(DAT,"^",K),8) Line Location: ENQ+13
Function Call: WRITE	Prompt: @IOF,!?55,"A M I S R E P O R T",!!?40,"FROM "_$E(SDT,4,5)_"-"_$E(SDT,6,7)_"-"_$E(SDT,2,3),?60,"TO "_$E(EDT,4,5)_"-"_$E(EDT,6,7)_"-"_$E(EDT,2,3)_" DIVISION: "_$P(^PS(59,DIV,0),"^") Line Location: RPT+1
Function Call: WRITE	Prompt: !!,"DATE " Line Location: RPT+2
Function Call: WRITE	Prompt: $J($P("INPAT^SC^A&A^OTHER^NVA^CNTLD^METHA^PAT REQ^FEE^STAFF^NEW^REFILL^WINDOW^MAIL","^",K),8) Line Location: RPT+3
Function Call: WRITE	Prompt: ! Line Location: RPT+4
Function Call: WRITE	Prompt: "-" Line Location: RPT+4
Function Call: WRITE	Prompt: !?8 Line Location: SUB+1
Function Call: WRITE	Prompt: $J("-------",8) Line Location: SUB+1
Function Call: WRITE	Prompt: !,"SUB-TOTALS",!,?8 Line Location: SUB+2
Function Call: WRITE	Prompt: $J(DAT(ST,K),8) Condition for execution: $D(ST) Line Location: SUB+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y+4>IOSL Line Location: GR+1
Function Call: WRITE	Prompt: !?8 Line Location: GR+1
Function Call: WRITE	Prompt: $J("-------",8) Line Location: GR+1
Function Call: WRITE	Prompt: !,"GRAND TOTALS",!,?8 Line Location: GR+2
Function Call: WRITE	Prompt: $J(GT(K),8) Line Location: GR+2
Function Call: WRITE	Prompt: ! Line Location: GR+3
Routine Call	DIR Line Location: DIR
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	ENQ+9, RPT+1, COM+1
^PS(59.1 - [#59.1]	ENQ+4, ENQ+5
^TMP("PSOAMIS"	ENQ+1!, ENQ+6*, ENQ+7, ENQ+9, ENQ+10, END+1!

Name	Line Occurrences
COM	ENQ+2
DIR	ENQ+11, ENQ+16, SUB+3
EDT	EDT
END	PSOAMIS+3, EDT, DEV+1, DEV+4, ENQ+16
GR	ENQ+16
PSOAMIS	PSOAMIS+3
RPT	ENQ+9, ENQ+10
SUB	ENQ+9, ENQ+16

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	PSOAMIS+3*, EDT!, DEV+4!, END+1!
%DT("A"	PSOAMIS+3, EDT
%DT(0	PSOAMIS+3!, EDT
%ZIS	DEV+1!*
%ZIS("B"	DEV+1*
DAT	ENQ+10*, ENQ+13, END+1!
DAT(	ENQ+7, COM+1, SUB+2
DIR	DIR!
DIR(0	DIR*
DIRUT	ENQ+9, ENQ+11, ENQ+16, END+1!, DIR!
DIV	ENQ+9, ENQ+10, ENQ+12, END+1!, RPT+1, COM+1, SUB+3
DT	PSOAMIS+3
DTOUT	END+1!, DIR!
DUOUT	END+1!, DIR!
EDT	EDT*, ENQ+4, END+1!, RPT+1
G	DEV+3, DEV+4!, ENQ+4, ENQ+7, END+1!, COM+1
GR	ENQ+9, ENQ+12, END+1!
GT	END+1!
GT(	ENQ+7, COM+1, GR+2
I	ENQ+4*, ENQ+5, ENQ+6, ENQ+7, END+1!
IO	RPT+1
IO("Q"	DEV+3, DEV+4!
IOF	END, RPT+1, SUB+1, GR+1
ION	DEV+1
IOP	DEV+1!*
IOSL	ENQ+10, ENQ+11, ENQ+16, SUB+1, GR+1
IOST	ENQ+10, ENQ+11, ENQ+16, END, SUB+1, SUB+3
K	ENQ+13, END+1!, RPT+3, RPT+4, SUB+1, SUB+2, GR+1, GR+2*
POP	DEV+1, END+1!
PSDATE	ENQ+3, ENQ+4, ENQ+5, ENQ+6, ENQ+7, ENQ+9*, ENQ+10, ENQ+12, END+1!
PSOION	DEV+1*!, DEV+2!
SDT	PSOAMIS+3*, EDT, ENQ+3, END+1!, RPT+1
ST	ENQ+12*, END+1!, SUB+2
X	PSOAMIS+3, EDT, DEV+4!, ENQ+1!, ENQ+5*, ENQ+6, END+1!
Y	PSOAMIS+3, EDT, DEV+4!, END+1!
>> ZTDESC	DEV+3*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+3*
ZTSAVE	DEV+4!
ZTSAVE(	DEV+3*
ZTSK	DEV+1!, DEV+4!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOAMIS

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: