Routine: ACHSPDC1

Package	Total	Call Graph
Contract Health Management Information System	5	($$HRN,CPI,ERPT,FMT,RTRN)^ACHS ^ACHSAD BRPT^ACHSFU FC^ACHSUF ^ACHSVAR
IHS VA Utilities	2	$$C^XBFUNC EN^XBVK
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
A	; Main loop.
AGAIN	;
P6	;
DUZ2	;
K	;EP - Kill vars, do ERPT, quit.
START	;EP - From TaskMan.
FC	; Set Finance Code.
END	;
DISPLAY	; View document selected from the report.
HDR	; Print header.

Name	Line Occurrences
Function Call: WRITE	Prompt: ACHSFAC,?7,$P(ACHSDOC0,U,14),ACHSFC,$P(ACHSDOC0,U) Line Location: A+5
Function Call: WRITE	Prompt: ?17,$E(Y,2,7) Line Location: A+9
Function Call: WRITE	Prompt: ?24,$E($P(^(0),U),1,22) Line Location: A+10
Function Call: WRITE	Prompt: ?47,$E($P($P(ACHSTOS,";",$P(ACHSDOC0,U,4)),":",2),1,2) Line Location: A+11
Function Call: WRITE	Prompt: ?52,$P($P(ACHSSTS,";",$P(ACHSDOC0,U,12)+1),":",2) Line Location: P6+1
Function Call: WRITE	Prompt: ?69 Line Location: P6+3
Function Call: WRITE	Prompt: ! Line Location: P6+6
Function Call: WRITE	Prompt: ?69,"----------",!,"Total documents seen: ",ACHSTOT,?69 Line Location: END+1
Function Call: WRITE	Prompt: !!?45,"LESS CANCELS",?68 Line Location: END+4
Function Call: WRITE	Prompt: !?69,"==========",!?69 Line Location: END+7
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,ACHS(""),!?22,"CHS DOCUMENTS FOR A SPECIFIC PATIENT",!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHST1,!,ACHST2,!,ACHST3,!,ACHS("") Line Location: HDR+4
Function Call: WRITE	Prompt: !,"FAC",?7,"DOCUMENT",?17,"DATED",?24,"VENDOR",?47,"TYPE",?52,"STATUS",?69,"AMOUNT",!,$$REPEAT^XLFSTR("-",79),! Line Location: HDR+5
Function Call: WRITE	Prompt: !! Line Location: DISPLAY+12
Function Call: WRITE	Prompt: !!! Line Location: AGAIN+3
Routine Call	DIR Line Location: DISPLAY+3 DISPLAY+13 AGAIN+4

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A+1, A+3, A+7, A+12, A+13, A+14
^AUTTAREA - [#9999999.21]	FC+3
^AUTTLOC - [#9999999.06]	DUZ2+4, FC+1, FC+3
^AUTTLOC("B"	DUZ2+4
^AUTTVNDR - [#9999999.11]	A+10
^DD(9002080.01	START+7
^DPT - [#2]	START+5

Name	Line Occurrences
A	A+4, P6+11, DISPLAY+5, DISPLAY+15, AGAIN+5
AGAIN	DISPLAY+7
DISPLAY	P6+7, END+10
END	A+2
FC	DUZ2+3
HDR	START+10, P6+9, DISPLAY+5, DISPLAY+15, AGAIN+5
K	START+3, P6+9, DISPLAY+14, AGAIN+6
P6	A+12

Name	Field # of Occurrence
>> ACHS	A+14*
>> ACHS("*"	HDR+4
>> ACHSBDT	START+6, A+4
>> ACHSBM	P6+9
>> ACHSCANC	START+4, A+15, P6+2, END+5
>> ACHSCTOT	START+4, P6+2, END+8
>> ACHSDOC	START+4, A+1, A+2, A+3, A+7, A+12, A+13, A+14, AGAIN+5*
>> ACHSDOC0	A+3*, A+4, A+5, A+8, A+10, A+11, A+13, A+14, A+15, P6+1
ACHSDVEW	DUZ2+1!, DISPLAY+8*
>> ACHSEDT	START+6, A+4
>> ACHSERR	START+3
>> ACHSFAC	DUZ2+4*, A+5
>> ACHSFC	A+5, FC+1, FC+2, FC+3*
>> ACHSPG	HDR+1, HDR+4, DISPLAY+7, AGAIN+5
>> ACHSPPO	START+9
>> ACHSQUIT	START+1*, P6+9
>> ACHSRPT	START+7, A+4
>> ACHSSTS	START+7*, P6+1
>> ACHST1	START+5*, HDR+4
>> ACHST2	START+6*, HDR+4
>> ACHST3	START+7*, HDR+4
>> ACHSTOS	START+7*, A+11
>> ACHSTOT	START+4, P6+10, END+1, DISPLAY+5, AGAIN+5
>> ACHSTOT("$"	START+4, P6+2, END+2, AGAIN+5*
>> ACHSUSR	HDR+4
>> ACHSVQIT	DUZ2+2, END+10, DISPLAY+5, DISPLAY+7, DISPLAY+15, AGAIN+5*
DFN	START+5, A+1, K+2!
DIR	DISPLAY+1!, DISPLAY+4!, DISPLAY+10!, AGAIN+1!
DIR("A"	DISPLAY+2, AGAIN+2
DIR("B"	DISPLAY+2, AGAIN+2
DIR(0	DISPLAY+2, DISPLAY+11, AGAIN+2*
DUZ(2	START+5, DUZ2+4, A+1, A+3, A+7, A+12, A+13, A+14, FC+1, FC+3
IO("S"	START+9
IOF	HDR+2
IOST	P6+7, P6+9, END+10, END+11, HDR+3
U	START+5, START+7, DUZ2+4, A+4, A+5, A+7, A+8, A+10, A+11, A+13 , A+14, A+15, P6+1, FC+1, FC+3
>> X	A+12, A+13, A+14, A+15, P6+2, END+2, END+5, END+8
>> X3	P6+4, END+2, END+5, END+8
Y	A+6!, A+7, A+8, A+9, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+14, AGAIN+5
>> ZTQUEUED	START+1