Routine: ACHSTXP

Information

ACHSTXP ; IHS/ITSC/FCJ - 4 YR. EXPORT STAT DATA ; [ 11/09/2004 3:31 PM ]

Source file <ACHSTXP.m>

Package	Total	Call Graph
Contract Health Management Information System	5	($$ASF,$$EX,$$JDT,$$LOC,$$LOCK,$$OS,HELP)^ACHS SLV^ACHSFU (JOBABEND,KILL)^ACHSTX8 ^ACHSTXP2 ^ACHSVAR
Kernel	4	(,HOME)^%ZIS ^%ZISC $$LIST^%ZISH $$HTFM^XLFDT
IHS VA Utilities	1	$$DIR^XBDIR

Name	Comments	DBIA/ICR reference
EXFILE()	; Does export file exist?
END	;
KILLGLBS	;EP - Kill unsubscripted work globals. ; ^ACHSDATA( - DHR (REC #2) ; ^ACHSTXPT( - Holds Patients to be exported. (Rec # 3) ; ^ACHSTXVN( - Holds Vendor IENs to be exported. (Rec # 4) ; ^ACHSTXOB( - Holds Document/Transaction to be exported. (Rec # 5) ; ^ACHSTXPD( - Holds Paid Doc info to be exported to Area Office. (Rec # 6) ; ^ACHSTXPG( - Holds Docs with statistical info to be exported to Data Center. (Rec # 7)
DTAO()	;EP - Prompt for date sent to Area Office.
L2	;
L3	;
ERROR	;EP.

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!! Line Location: ACHSTXP+5
Function Call: WRITE	Prompt: "" Condition for execution: $$DIR^XBDIR("E","CHS DATA ENTRY IN PROGRESS -- JOB CANCELLED - <RETURN> TO CONTINUE") Line Location: ACHSTXP+5
Function Call: WRITE	Prompt: !!,"Export data from October 1, 2000 thru September 30,2004 will be made for ",!,$$LOC^ACHS Line Location: L2+1
Function Call: WRITE	Prompt: !!,*7 Line Location: L2+5
Function Call: WRITE	Prompt: *7,!!,"Area Contracting Number is not 3 Upper-case Alpha-Numerics",!,"JOB CANCELLED" Line Location: L2+15
Function Call: WRITE	Prompt: ! Line Location: L3+7
Function Call: WRITE	Prompt: !,"Resetting ",ACHS,"(0)" Line Location: KILLGLBS+10
Function Call: WRITE	Prompt: !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(ACHS,U,2))) Line Location: KILLGLBS+12
Function Call: WRITE	Prompt: !!,7,7,*7,"AN ERROR HAS OCCURRED DURING EXPORT PLEASE NOTIFY AREA OFFICE " Line Location: ERROR+3
Function Call: WRITE	Prompt: !!?10,"JOB TERMINATED BY OPERATOR" Line Location: END+1
Routine Call	%ZIS Line Location: L3+12
Routine Call	%ZIS Line Location: L3+8

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	L2+14

Name	Field # of Occurrence
%ZIS	L3+4!, L3+6*
%ZIS("A"	L3+6*
ACHS	KILLGLBS+8~, KILLGLBS+9*, KILLGLBS+10, KILLGLBS+14, KILLGLBS+15
>> ACHSARCO	L2+14*, L2+15
>> ACHSCRTN	L2+17*
ACHSG	KILLGLBS+15*, KILLGLBS+17!
>> ACHSIO	L3+11*
>> ACHSION	L3+11*
>> ACHSMDAT	L3+1*
>> ACHSPCC	ERROR+1
ACHSPPC	L3+4!, ERROR+1
ACHSPPO	L3+4!
>> ACHSRCT	ACHSTXP+7*
>> ACHSREEX	ACHSTXP+7*
DT	DTAO+1, EXFILE+4
>> DTOUT	L2+3, L3+2
>> DUOUT	L2+3, L3+2
DUZ(2	L2+14, EXFILE+2
IO	L3+11
IO("S"	L3+10
IO(0	L2+15, L2+16, ERROR+2
ION	L3+11
>> POP	L3+9
U	L2+14
X	EXFILE+1~, EXFILE+5
X(	EXFILE+7
Y	EXFILE+1~, EXFILE+2, EXFILE+3, EXFILE+4*, EXFILE+5, EXFILE+7
Z	EXFILE+1~, EXFILE+6, EXFILE+7, EXFILE+8