Routine: ACHSTXIT

Information

ACHSTXIT ; IHS/ITSC/PMF - EXPORT DATA (1/9) ; [ 12/06/2002 10:36 AM ]

Source file <ACHSTXIT.m>

Package	Total	Call Graph
Contract Health Management Information System	7	($$ASF,$$EX,$$JDT,$$LOC,$$LOCK,$$OS,$$PARM,HELP)^ACHS SLV^ACHSFU ^ACHSTX22 (,HELP)^ACHSTX7X (JOBABEND,KILL,TXFEF)^ACHSTX8 ^ACHSTXTT ^ACHSVAR
Kernel	4	(,HOME)^%ZIS ^%ZISC $$LIST^%ZISH $$HTFM^XLFDT
IHS VA %Utilities	1	($$ERR,$$KILLOK)^ZIBGCHAR
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	^DIC

Name	Comments	DBIA/ICR reference
EXFILE()	; Does export file exist?
END	;
FILEHELP	;EP - ?? help text, from ACHS via DIR.
INIT	;
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)
STATCHK()	; Check 638 stat data prior to export.
ERROR	;EP.

Name	Field # of Occurrence
^%ZIS	ACHSTXIT+68
HOME^%ZIS	ACHSTXIT+78
^%ZISC	ACHSTXIT+78, ERROR+4
$$LIST^%ZISH	EXFILE+5
$$ASF^ACHS	EXFILE+2
$$EX^ACHS	EXFILE+5
$$JDT^ACHS	EXFILE+4
$$LOC^ACHS	ACHSTXIT+23, ACHSTXIT+24
$$LOCK^ACHS	ACHSTXIT+17
$$OS^ACHS	EXFILE+3
$$PARM^ACHS	ACHSTXIT+14
HELP^ACHS	ACHSTXIT+34
SLV^ACHSFU	ACHSTXIT+73
^ACHSTX22	ACHSTXIT+81
^ACHSTX7X	STATCHK+2
HELP^ACHSTX7X	STATCHK+1
JOBABEND^ACHSTX8	ERROR+5, END+2
KILL^ACHSTX8	ACHSTXIT+17
TXFEF^ACHSTX8	ACHSTXIT+51
^ACHSTXTT	ACHSTXIT+47
^ACHSVAR	INIT+2
^DIC	ACHSTXIT+42
$$DIR^XBDIR	ACHSTXIT+17, ACHSTXIT+24, ACHSTXIT+35, ACHSTXIT+61, STATCHK+2
$$HTFM^XLFDT	ACHSTXIT+61
$$ERR^ZIBGCHAR	KILLGLBS+11
$$KILLOK^ZIBGCHAR	KILLGLBS+11

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!! Line Location: ACHSTXIT+17
Function Call: WRITE	Prompt: "" Condition for execution: $$DIR^XBDIR("E","CHS DATA ENTRY IN PROGRESS -- JOB CANCELLED - <RETURN> TO CONTINUE") Line Location: ACHSTXIT+17
Function Call: WRITE	Prompt: !!,*7 Line Location: ACHSTXIT+33
Function Call: WRITE	Prompt: *7,!!,"MISSING AREA CONTRACTING NUMBER - JOB CANCELLED" Line Location: ACHSTXIT+56
Function Call: WRITE	Prompt: *7,!!,"Area Contracting Number is not 3 Upper-case Alpha-Numerics",!,"JOB CANCELLED" Line Location: ACHSTXIT+57
Function Call: WRITE	Prompt: ! Line Location: ACHSTXIT+67
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+11
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: ACHSTXIT+78
Routine Call	DIC Line Location: ACHSTXIT+42
Routine Call	%ZIS Line Location: ACHSTXIT+68

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	ACHSTXIT+55
^ACHSTXST("C"	ACHSTXIT+51

Name	Line Occurrences
$$EXFILE	ACHSTXIT+32
$$STATCHK	ACHSTXIT+14
END	ACHSTXIT+22, ACHSTXIT+32, ACHSTXIT+62, ACHSTXIT+71
ERROR	ACHSTXIT+57
INIT	ACHSTXIT+19

Name	Field # of Occurrence
%ZIS	ACHSTXIT+65!, ACHSTXIT+66*
%ZIS("A"	ACHSTXIT+66*
ACHS	KILLGLBS+8~, KILLGLBS+9*, KILLGLBS+10, KILLGLBS+11, KILLGLBS+12, KILLGLBS+13
>> ACHSARCO	ACHSTXIT+55*, ACHSTXIT+57
>> ACHSCRTN	INIT+4*
>> ACHSIO	ACHSTXIT+75*
>> ACHSMDAT	ACHSTXIT+61*
>> ACHSPPC	ERROR+1
>> ACHSRCT	INIT+4*
>> ACHSREEX	ACHSTXIT+51
DIC	ACHSTXIT+40!, ACHSTXIT+41*, ACHSTXIT+43!
DIC(0	ACHSTXIT+41*
DT	ACHSTXIT+41, ACHSTXIT+51, ACHSTXIT+61, EXFILE+4
>> DTOUT	ACHSTXIT+25, ACHSTXIT+62
>> DUOUT	ACHSTXIT+25, ACHSTXIT+62
DUZ(2	ACHSTXIT+41, ACHSTXIT+51, ACHSTXIT+55, EXFILE+2
IO	ACHSTXIT+75
IO("S"	ACHSTXIT+73
IO(0	ACHSTXIT+57, ERROR+2
>> OK	ACHSTXIT+22, ACHSTXIT+24, ACHSTXIT+25, ACHSTXIT+32, ACHSTXIT+35*
>> POP	ACHSTXIT+71
U	ACHSTXIT+47, ACHSTXIT+55, KILLGLBS+11
X	ACHSTXIT+40!, ACHSTXIT+41*, ACHSTXIT+43!, EXFILE+1~, EXFILE+5
X(	EXFILE+7
Y	ACHSTXIT+40!, ACHSTXIT+47, EXFILE+1~, EXFILE+2, EXFILE+3, EXFILE+4*, EXFILE+5, EXFILE+7
Y(0	ACHSTXIT+47
Z	EXFILE+1~, EXFILE+6, EXFILE+7, EXFILE+8