Routine: APSAWP11

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ($$LIST,$$OPEN,$$STATUS,CLOSE)^%ZISH ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	^DIE ^DIR
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
DIR(O,A,B)	;
SORT
EN	;ENTRY POINT TO IMPORT ACTUAL ACQUISTION COST FILE
HDR2
REP1	;ENTRY POINT FOR NO ACTUAL ACQUISTION COST IN THE DRUG FILE
FLETCH	;
HDR1
CLOSE(IO)	;
EN1(APSPPATH,APSPFILE)	;
CHECK()	;CHECK FOR ONLY ONE FILE (THAT'S NOT NONE OR MORE THAN ONE)
TRANS(VAL)	;
CLEAN	;
REPORT	;
REP	;ENTRY POINT TO PRINT OUT THE ERROR ACTUAL ACQUISTION FILE ENTRIES
REP1PRT	;
ERR(VALUE,APSANUM,APSANDC)	;
HDR

External References

Name	Field # of Occurrence
^%ZIS	REP+4, REP1+12
HOME^%ZIS	REP+8, REP1+16
^%ZISC	REPORT+11, REP1PRT+11
$$LIST^%ZISH	EN+22
$$OPEN^%ZISH	EN+25
$$STATUS^%ZISH	FLETCH+3
CLOSE^%ZISH	CLOSE+1
^%ZTLOAD	REP+8, REP1+16
^DIE	FLETCH+21
^DIR	DIR+2
EN^XBVK	CLEAN+1
$$FMTE^XLFDT	EN+7

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: 5 Variable: APSANODE Line Location: FLETCH+3
Function Call: WRITE	Prompt: "." Line Location: FLETCH+23
Function Call: WRITE	Prompt: !!,"COUNT OF UPDATES IS ",APSACNT Line Location: FLETCH+24
Function Call: WRITE	Prompt: !!,"ENTER THE DEVICE TO PRINT THE ERROR LIST" Line Location: REP+3
Function Call: WRITE	Prompt: !,"NO ERRORS IN THE ERROR LOG" Line Location: REPORT+7
Function Call: WRITE	Prompt: !!,"ENTER THE DEVICE TO PRINT THE LIST OF DRUGS WITH NO AAC" Line Location: REP1+11
Function Call: WRITE	Prompt: !,"NO ERRORS IN THE ERROR LOG" Line Location: REP1PRT+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+0
Function Call: WRITE	Prompt: ?(IOM-APSALEN/2),APSALOC,?(IOM-12),"PAGE: ",$J(PAGE,3) Line Location: HDR2+1
Routine Call	%ZIS Line Location: REP+8 REP1+16
Routine Call	DIE Line Location: FLETCH+21
Routine Call	DIR Line Location: DIR+2
Routine Call	%ZIS Line Location: REP+4 REP1+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APSAMDF - [#9009037]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	FLETCH+2
^APSAMDF - [#9009037]	EN+3
^APSAMDF("B"	FLETCH+15
^APSAMDF("DATEACC"	EN+7, EN+29*
^AUTTSITE(1	EN+10, EN+11
^DIC(4 - [#4]	HDR2
^PSDRUG - [#50]	REP1+5, REP1+6, REP1+7, REP1+9
^TMP("APSAWP11"	EN+2, EN+3, EN+4!, EN+32, ERR+1, SORT+1!, SORT+2, SORT+3, SORT+4, REPORT+7 , REPORT+8, REPORT+9, REP1+1!, REP1+8, REP1+9*, REP1PRT+6, REP1PRT+7, REP1PRT+8, REP1PRT+10!

Label References

Name	Line Occurrences
$$CHECK	EN+23
$$DIR	EN+8, EN+12, EN+19
$$TRANS	FLETCH+7
@(	REPORT+6, REP1PRT+5
CLEAN	EN+5, EN+9, EN+13, EN+20, EN+24, EN+26, EN+31, REPORT+12, REP1+2, REP1PRT+12
CLOSE	EN+28
ERR	FLETCH+11, FLETCH+12, FLETCH+13, FLETCH+16
FLETCH	EN+27
HDR	REPORT+10, REP1PRT+9
REP	EN+30
SORT	REPORT+1

Naked Globals

Name	Field # of Occurrence
^("DATEACC"	EN+7
^("I"	REP1+6
^(0	SORT+3, REP1+8
^(1	EN+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	REP+4, REP1+12
A	DIR~, DIR+1
>> APSAAAC	FLETCH+9*, FLETCH+11, FLETCH+20
>> APSACNT	FLETCH+1, FLETCH+22, FLETCH+24
>> APSAFILE	EN+18, EN+19, EN+21, EN+22, EN+25, CHECK+4, CHECK+5, CHECK+6
>> APSAFNUM	FLETCH+15*, FLETCH+16, FLETCH+18
>> APSAGOT	EN+22
>> APSAGOT(	CHECK+3
APSAIEN	CLEAN+2!, REPORT+8, REPORT+9, REP1PRT+7, REP1PRT+8
>> APSALEN	HDR2*, HDR2+1
>> APSALOC	HDR2*, HDR2+1
APSANDC	ERR~, ERR+1, SORT~, SORT+2, SORT+4, FLETCH+8*, FLETCH+11, FLETCH+12, FLETCH+13, FLETCH+15 , FLETCH+16
>> APSANODE	FLETCH+3, FLETCH+5, FLETCH+7, FLETCH+8, FLETCH+9, FLETCH+10
APSANUM	ERR~, ERR+1, FLETCH+10*, FLETCH+11, FLETCH+12, FLETCH+13, FLETCH+16
>> APSAOS	EN+10*, EN+11, EN+15, EN+16
>> APSAPATH	EN+11, EN+12, EN+14, EN+15, EN+16, EN+22, EN+25, CHECK+4, CHECK+5
>> APSAQUIT	FLETCH+6, FLETCH+11, FLETCH+12, FLETCH+13, FLETCH+14, FLETCH+16*, FLETCH+17
>> APSASTAT	FLETCH+2*, FLETCH+3
APSPFILE	EN1~, EN+18
APSPPATH	EN1~, EN+11
B	DIR~, DIR+1
CNT	CHECK+1~, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7
>> DA	FLETCH+18*
DIC	CLEAN+3!
DIE	CLEAN+3!, FLETCH+19*
DIR	CLEAN+3!
DIR("A"	DIR+1*
DIR("B"	DIR+1*
DIR(0	DIR+1*
>> DIROUT	DIR+3
>> DIRUT	DIR+3
>> DR	FLETCH+20*
DRUGIEN	CLEAN+2!, REP1+4, REP1+5, REP1+6, REP1+7, REP1+9
DT	EN+29, REP1+6
DTIME	REPORT+3, REP1PRT+2, HDR
>> DTIOUT	DIR+3
>> DUOUT	DIR+3
DUZ(2	HDR2
END	CLEAN+2!, REPORT+4, REPORT+8, REP1PRT+3, REP1PRT+7, HDR*
I	CHECK+1~, CHECK+2, CHECK+3, TRANS+5~, TRANS+6*, TRANS+7
>> IEN	SORT+3*, SORT+4
IO	EN+28, CLOSE~, CLOSE+1, FLETCH+3, REPORT+5, REP1PRT+4
IO("Q"	REP+5, REP+8!, REP1+13, REP1+16!
IO(0	FLETCH+4
IOF	HDR1
IOM	HDR2+1
IOSL	REPORT+10, REP1PRT+9
IOST	REPORT+6, REP1PRT+5, HDR
LINE	CLEAN+2!, REP+2, REP1+3, HDR2+2
NCONT	TRANS+5~, TRANS+6, TRANS+7, TRANS+8
O	DIR~, DIR+1
PAGE	CLEAN+2!, REPORT+4, REP1PRT+3, HDR2+1*
PIECE	TRANS+5~, TRANS+7*
>> POP	REP+4, REP1+12
TMPIEN	CLEAN+2!, REP1+8*, REP1+9
VAL	TRANS~, TRANS+1, TRANS+3, TRANS+4*, TRANS+6, TRANS+7
VALUE	ERR~, ERR+1
>> X	HDR*
>> Y	EN+8, EN+9, EN+12, EN+13, EN+14, EN+19, EN+20, EN+21, EN+22, EN+23* , EN+24, EN+25*, EN+26, DIR+4
>> ZTDESC	REP+6, REP1+14
>> ZTQUEUED	EN1+1*, EN+2, EN+6, EN+7, EN+8, EN+9, EN+12, EN+13, EN+14, EN+19 , EN+20, EN+21, EN+26, EN+30, CHECK+4, CHECK+5, CHECK+6, FLETCH+23, FLETCH+24, REPORT+2 , REP1PRT+1
>> ZTREQ	REPORT+2, REP1PRT+1
>> ZTRTN	REP+6, REP1+14
>> ZTSAVE("LINE"	REP+7, REP1+15

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSAWP11

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: