Routine: APSPAMIS

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

Package

Total

Call Graph

^%DT ^DIR

Name	Comments	DBIA/ICR reference
FZZ	;IHS/DSD/ENM CAUSE A PAUSE 5.95
END
RPT	; HEADER
DEV
ENQ	;START COMPUTATIONS
EDT
ZDIV	;IHS/DSD/ENM 10/16/96 ASK DIV MODULE ADDED
COM	;COMPILE SUB-TOTALS AND GRAND TOTALS
GR	;PRINT GRAND TOTALS
SUB	;PRINT SUB TOTALS

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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: APSPAMIS+2
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: *7,!!,"PRINTOUT MUST BE SENT TO A 132 COLUMNS PRINTER !!",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,$E(PSDATE,4,5)_"-"_$E(PSDATE,6,8)_"-"_$E(PSDATE,2,3) Line Location: ENQ+5
Function Call: WRITE	Prompt: $J($P(DAT,"^",K),9) Line Location: ENQ+6
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+2
Function Call: WRITE	Prompt: !!,"DATE " Line Location: RPT+3
Function Call: WRITE	Prompt: $J($P("INPAT^OTHER^CNTLD^PAT REQ^FEE^STAFF^NEW^REFILL^WINDOW^MAIL","^",K),9) 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+2
Function Call: WRITE	Prompt: $J("-------",9) Line Location: SUB+2
Function Call: WRITE	Prompt: !,"SUB-TOTALS",!,?8 Line Location: SUB+3
Function Call: WRITE	Prompt: $J(DAT(ST,K),9) Condition for execution: $D(ST) Line Location: SUB+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y+2>IOSL Line Location: SUB+5
Function Call: WRITE	Prompt: !?8 Line Location: SUB+5
Function Call: WRITE	Prompt: $J("-------",9) Line Location: SUB+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y+4>IOSL Line Location: GR+2
Function Call: WRITE	Prompt: !?8 Line Location: GR+2
Function Call: WRITE	Prompt: $J("-------",9) Line Location: GR+2
Function Call: WRITE	Prompt: !,"GRAND TOTALS",!,?8 Line Location: GR+3
Function Call: WRITE	Prompt: $J(GT(K),9) Line Location: GR+3
Function Call: WRITE	Prompt: ! Line Location: GR+4
Routine Call	DIR Line Location: ZDIV+1 ZDIV+4 FZZ+1
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	ENQ+5, RPT+2, COM+1
^PS(59.1 - [#59.1]	ENQ+1, ENQ+2
^TMP($J	ENQ+1!, ENQ+2*, ENQ+3, ENQ+5, END!

Name	Line Occurrences
APSPAMIS	APSPAMIS+2
COM	ENQ+1
DEV	ZDIV+2
EDT	EDT
END	APSPAMIS+2, EDT, ZDIV+4, DEV, DEV+3
FZZ	ENQ+7, SUB+4, GR+1
GR	ENQ+9
RPT	ENQ+5
SUB	ENQ+5, ENQ+9

Name	Field # of Occurrence
^(	ENQ+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPAMIS

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: