Routine: ACHSEPAT

Package	Total	Call Graph
Contract Health Management Information System	5	(PTLK,RTRN)^ACHS ^ACHSEOB2 ^ACHSEOBA BRPT^ACHSFU ^ACHSVAR
Kernel	4	^%ZIS ^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	2	$$DIR^XBDIR EN^XBVK

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSPRINTEOBRPAT

Entry Points

Name	Comments	DBIA/ICR reference
PAT1	;
PATPR1	;
PAT3	;
PAT2	;
PAT4	;NOT USED KEPT FOR FUTURE ENHANCEMENTS
PATNO	;
PATSEL1	;
PATSEL2	;NOT USED KEPT FOR FUTURE ENHANCEMENTS
PATSEL	;
PATEND	;
PATPR2	;
DEV	;
PATPR3	;NOT USED KEPT FOR FUTURE ENHANCEMENTS
PATPR	;
PATSELPR	;
DIR	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $G(IORVON),!,"THIS REPORT WILL ONLY INCLUDE PROCESSED DOCUMENTS. ANY UNPROCESSED",!,"DOCUMENT WILL HAVE TO BE PRINTED USING ANOTHER OPTION.",$G(IORVOFF),!!! Line Location: ACHSEPAT+5
Function Call: WRITE	Prompt: ! Line Location: ACHSEPAT+9
Function Call: WRITE	Prompt: !!,"ENTRY #",?10,"DOCUMENT #",?27,"PATIENT NAME",?56,"CHART #",?67,"TRANS DATE",!,$$REPEAT^XLFSTR("-",79) Line Location: PATSEL+3
Function Call: WRITE	Prompt: !!,"Press <RETURN> To Continue" Line Location: PATSEL+5
Function Call: WRITE	Prompt: !,I,".",?10,ACHSDOC,?27,ACHSPAT,?57,ACHSCHRT,?67,Y Line Location: PATSELPR+1
Function Call: WRITE	Prompt: !!,"NO EOBRS PROCESSED FOR THIS PATIENT",!! Line Location: PATNO+1
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	PAT1+1, PAT1+3, PAT2+1, PAT3+1, PATSEL1+2
^AUPNPAT - [#9000001]	PATSEL1+2
^DPT - [#2]	PATSEL1+3

Name	Field # of Occurrence
^(0	PATSEL1+2

Name	Field # of Occurrence
>> %ZIS	DEV+2*
>> ACHSCHRT	PATSEL1+2*, PATSELPR+1
>> ACHSDAT	PAT2+3, PAT3+1, PAT3+2, PAT3+3, PATSEL1+1*
>> ACHSDIEN	ACHSEPAT+10, PAT1+1, PAT1+2, PAT1+3, PAT2+1, PAT3+1, PAT3+3, PATSEL1+1, PATSEL1+2, PATPR2+1
>> ACHSDOC	PATSEL1+2*, PATSELPR+1
>> ACHSEOIO	DEV+4*
>> ACHSFC	PATSEL1+2
>> ACHSLST	PATSEL+2, DIR+1, PATPR1+2
ACHSPAT	ACHSEPAT+4!, ACHSEPAT+8, PAT1+1, PAT2+1, PAT3+1, PATSEL1+2, PATSEL1+3*, PATSELPR+1
ACHSPAT(	PAT3+3*, PATSEL+6, PATSEL1+1, PATPR1+4, PATPR2+1
>> ACHSPATI	PAT1+2*
>> ACHSTIEN	ACHSEPAT+10, PAT1+4, PAT2+1, PAT2+2, PAT3+1, PAT3+3, PATSEL1+1, PATPR2+1*
>> ACHSX	ACHSEPAT+10, PAT3+3, PATSEL+1, PATSEL+2, PATSEL+6
>> ACHSXX	PATPR+3, PATPR1+1, PATPR1+2
DFN	ACHSEPAT+4!, ACHSEPAT+7, ACHSEPAT+8
>> DIRUT	PATPR+2
>> DTOUT	DIR+2, PATPR+2
>> DUOUT	PATSEL+6, DIR+2, PATPR+2
DUZ(2	PAT1+1, PAT1+3, PAT2+1, PAT3+1, PATSEL1+2
>> I	PAT1+2, PATSEL+6, DIR+1, PATSEL1+1, PATSELPR+1, PATPR1+2*, PATPR1+3, PATPR1+4, PATPR2+1
IO	DEV+4
>> IORVOFF	ACHSEPAT+5
>> IORVON	ACHSEPAT+5
U	PATSEL1+1, PATSEL1+2, PATSEL1+3, PATPR2+1
>> Y	PATSEL1+1*, PATSELPR+1, PATPR+2