Routine: ACHSPAC

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	4	($$DATE,$$EBB,$$HRN,CPI,ERPT,PTLK,RTRN)^ACHS ^ACHSAD (BRPT,READ,SLV)^ACHSFU FC^ACHSUF
IHS VA Utilities	1	$$C^XBFUNC
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR

Contract Health Management Information System

($$DATE,$$EBB,$$HRN,CPI,ERPT,PTLK,RTRN)^ACHS ^ACHSAD (BRPT,READ,SLV)^ACHSFU FC^ACHSUF

IHS VA Utilities

$$C^XBFUNC

VA Fileman

^DIR

Name	Comments	DBIA/ICR reference
A	; Main loop.
AGAIN	;
B	;
PAT	;
HDR	; Print header.
START	;EP - From TaskMan.
K	;EP - Kill vars, do ERPT, quit.
DEV	;
BDT	;
END	;
EDT	;
B3	;
P6	;
DISPLAY	; View document selected from the report.

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	DEV+6
^%ZTLOAD	DEV+9
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+3
$$HRN^ACHS	START+4
CPI^ACHS	P6+6, END+3, HDR+3
ERPT^ACHS	K+2
PTLK^ACHS	PAT+4
RTRN^ACHS	A+4, P6+6
^ACHSAD	DISPLAY+11
BRPT^ACHSFU	START+9
READ^ACHSFU	B+5
SLV^ACHSFU	DEV+2
FC^ACHSUF	START+1
^DIR	DISPLAY+3, DISPLAY+16, AGAIN+4
$$C^XBFUNC	START+4, START+5, START+8, HDR+4
$$FMTE^XLFDT	DEV+7, START+5
$$REPEAT^XLFSTR	HDR+4, HDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"This patient has no CHS documents on file.",! Line Location: PAT+6
Function Call: WRITE	Prompt: !!,"TYPE of service:" Line Location: B+1
Function Call: WRITE	Prompt: ?20,$P(ACHS(ACHS),":",1)," ",$P(ACHS(ACHS),":",2),! Line Location: B+3
Function Call: WRITE	Prompt: !,"Select TYPE of service (1 - ",ACHS-1," 'A' = 'ALL') ALL // " Line Location: B+4
Function Call: WRITE	Prompt: !!,"Enter an ""A"" to view documents for all types of service,",!,"otherwise, enter a number from 1 to ",ACHS-1,".",! Line Location: B+10
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+6
Function Call: WRITE	Prompt: !!,"NO DOCUMENT ZERO NODE FOR X-REF PB FOR FACILITY: "_DUZ(2)_" DOCUMENT IEN: "_ACHSDOC_" PATIENT DFN: "_DFN Line Location: A+4
Function Call: WRITE	Prompt: !!,"PLEASE NOTIFY YOUR SITE MANAGER IMMEDIATELY!!" Line Location: A+4
Function Call: WRITE	Prompt: !!,"PLEASE NOTIFY YOUR SITE MANAGER IMMEDIATELY!!" Line Location: A+4
Function Call: WRITE	Prompt: $P(ACHSDOC0,U,14),"-",$P(ACHSDOC0,U) Line Location: A+8
Function Call: WRITE	Prompt: ?8,ACHSPAC Line Location: A+12
Function Call: WRITE	Prompt: ?24,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: A+17
Function Call: WRITE	Prompt: ?24,$E($P(^(0),U),1,22) Line Location: A+18
Function Call: WRITE	Prompt: ?34,$E($P(^(0),U),1,22) Line Location: A+19
Function Call: WRITE	Prompt: ?58,$E($P($P(ACHSTOS,";",$P(ACHSDOC0,U,4)),":",2),1,2) Line Location: A+21
Function Call: WRITE	Prompt: ?61,$P($P(ACHSSTS,";",$P(ACHSDOC0,U,12)+1),":",2) Line Location: P6+1
Function Call: WRITE	Prompt: ?66,$J($FN(X,",",2),12),! Line Location: P6+4
Function Call: WRITE	Prompt: ?69,"----------",!,"Total documents seen: ",$FN(ACHSTOT,","),?66,$J("$"_$FN(ACHSTOT("$"),",",2),12),!!?45,"LESS CANCELS",?66,$J($FN(-ACHSCANC,",P",2),13),!?69,"==========",!?66,$J("$"_$FN(ACHSCTOT,",",2),12) Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("",79),!,$$C^XBFUNC("CHS DOCUMENTS FOR A SPECIFIC PATIENT",80),!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHST1,!,ACHST2,!,ACHST3,!,?34,$P(^DIC(4,DUZ(2),0),U),!,$$REPEAT^XLFSTR("",79) Line Location: HDR+4
Function Call: WRITE	Prompt: !,"DOC #",?7,"ACC #",?24,"DATED",?34,"VENDOR",?55,"TYPE",?61,"STATUS",?69,"AMOUNT",!,$$REPEAT^XLFSTR("-",79),! Line Location: HDR+7
Function Call: WRITE	Prompt: !! Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !!! Line Location: AGAIN+3
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIR Line Location: DISPLAY+3 DISPLAY+16 AGAIN+4
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	PAT+6, A+1, A+3, A+11, A+13, A+23, A+24, A+25
^AUTTLOC - [#9999999.06]	ACHSPAC+6, PAT+2, PAT+4, START+14
^AUTTLOC("B"	START+14
^AUTTVNDR - [#9999999.11]	A+19
^DD(9002080.01	B+2, START+6, START+7
^DIC(4 - [#4]	HDR+4
^DPT - [#2]	DEV+7, START+4

Label References

Name	Line Occurrences
@(	ACHSPAC+6, PAT+2
A	A+5, P6+8, DISPLAY+5, DISPLAY+18, AGAIN+5
AGAIN	DISPLAY+7
B	B+10
B3	B+9
BDT	EDT+3, B+7
DEV	DEV+6, DEV+10
DISPLAY	P6+5, END+2
END	A+2
HDR	START+11, P6+6, DISPLAY+5, DISPLAY+18, AGAIN+5
K	PAT+5, BDT+2, EDT+2, B+6, DEV+3, DEV+12, START+2, A+4, P6+6, DISPLAY+17 , AGAIN+6
P6	A+23
PAT	PAT+6
START	DEV+4

Name	Field # of Occurrence
^(	A+25
^("PA"	A+23, A+24
^("ZA"	A+23
^(0	A+19
^(3	A+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+8*
>> %ZIS	DEV+1*
A	ACHSPAC+5!
>> ACHS	B+3, B+4, B+10, A+25
>> ACHS(	B+3*
>> ACHSBDT	BDT+1*, BDT+2, EDT+3, DEV+7, START+5, A+5
>> ACHSBM	P6+6
ACHSCANC	START+3, A+26, P6+3, END+1, K+1!, AGAIN+5*
ACHSCTOT	START+3, P6+3, END+1, K+1!
ACHSDOC	START+3, A+1, A+2, A+3, A+4, A+11, A+13, A+23, A+24, A+25 , K+1!, DISPLAY+10~, AGAIN+5*
ACHSDOC0	A+3*, A+4, A+5, A+8, A+14, A+19, A+21, A+24, A+25, A+26 , P6+1, K+1!
ACHSDVEW	START+12!, K+1!, DISPLAY+8*
>> ACHSEDT	EDT+1*, EDT+2, EDT+3, DEV+7, START+5, A+5
>> ACHSERR	START+2
ACHSFAC	START+14*, K+1!
>> ACHSIO	PAT+7*
>> ACHSPAC	A+11*, A+12
>> ACHSPG	HDR+1, HDR+4, DISPLAY+7, AGAIN+5
ACHSPPC	K+1!
ACHSPPO	START+10, K+1!
>> ACHSQUIT	P6+6
>> ACHSRPT	B3+1*, DEV+7, START+8, A+5
ACHSSTS	START+7*, P6+1, K+1!
>> ACHST1	START+4*, HDR+4
>> ACHST2	START+5*, HDR+4
>> ACHST3	START+8*, HDR+4
ACHSTOS	B+2, B+3, START+6, START+8, A+21, K+1!
ACHSTOT	START+3, P6+7, END+1, K+1!, DISPLAY+5, AGAIN+5
ACHSTOT("$"	START+3, P6+2, P6+3, END+1, AGAIN+5*
>> ACHSUSR	HDR+4
ACHSVQIT	START+13, END+2, K+1!, DISPLAY+5, DISPLAY+7, DISPLAY+18, AGAIN+5*
ACHSYAYA	ACHSPAC+6!, PAT+2!
DFN	ACHSPAC+5!, ACHSPAC+6, PAT+2, PAT+5, PAT+6, DEV+7, START+4, A+1, A+4, K+1! , DISPLAY+10~
DIR	DISPLAY+1!, DISPLAY+4!, DISPLAY+13!, AGAIN+1!
DIR("A"	DISPLAY+2, AGAIN+2
DIR("B"	DISPLAY+2, AGAIN+2
DIR(0	DISPLAY+2, DISPLAY+14, AGAIN+2*
>> DTOUT	B+6
>> DUOUT	B+7
DUZ(2	ACHSPAC+6, PAT+2, PAT+4, PAT+6, START+4, START+14, A+1, A+3, A+4, A+11 , A+13, A+23, A+24, A+25, HDR+4
IO	PAT+7
IO("Q"	DEV+4, DEV+5!
IO("S"	DEV+2, DEV+6, START+10
IOF	HDR+2
IOST	DEV+6, P6+5, P6+6, END+2, END+3, HDR+3
>> POP	DEV+3
U	ACHSPAC+6, PAT+2, PAT+4, B+2, DEV+7, START+4, START+6, START+7, START+14, A+5 , A+8, A+11, A+13, A+14, A+19, A+21, A+24, A+25, A+26, P6+1 , HDR+4
>> X	A+23, A+24, A+25*, A+26, P6+2, P6+4
Y	B+8, B+9, B+10, B3+1, A+9!, A+13, A+14*, A+17, DISPLAY+5, DISPLAY+6 , DISPLAY+7, DISPLAY+17, AGAIN+5
>> ZTDESC	DEV+7*
>> ZTRTN	DEV+7*
>> ZTSAVE(	DEV+8*
ZTSK	DEV+10, DEV+11!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSPAC

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: