Routine: ACHSTXCK

Call Graph

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC $$LIST^%ZISH $$HTFM^XLFDT
Contract Health Management Information System	3	($$ASF,$$EX,$$JDT,$$LOC,$$LOCK,$$OS,HELP)^ACHS SLV^ACHSFU (,HELP)^ACHSTX7X
IHS VA %Utilities	1	($$ERR,$$KILLOK)^ZIBGCHAR
IHS VA Utilities	1	$$DIR^XBDIR

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

Name	Field # of Occurrence
^%ZIS	ACHSTXCK+48
HOME^%ZIS	ACHSTXCK+54
^%ZISC	ACHSTXCK+54
$$LIST^%ZISH	EXFILE+5
$$ASF^ACHS	EXFILE+2
$$EX^ACHS	EXFILE+5
$$JDT^ACHS	EXFILE+4
$$LOC^ACHS	ACHSTXCK+21, ACHSTXCK+22
$$LOCK^ACHS	ACHSTXCK+18
$$OS^ACHS	EXFILE+3
HELP^ACHS	ACHSTXCK+29
SLV^ACHSFU	ACHSTXCK+52
^ACHSTX7X	STATCHK+2
HELP^ACHSTX7X	STATCHK+1
$$DIR^XBDIR	ACHSTXCK+18, ACHSTXCK+22, ACHSTXCK+27, DTAO+1, STATCHK+2
$$HTFM^XLFDT	DTAO+1
$$ERR^ZIBGCHAR	KILLGLBS+11
$$KILLOK^ZIBGCHAR	KILLGLBS+11

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!! Line Location: ACHSTXCK+18
Function Call: WRITE	Prompt: "" Condition for execution: $$DIR^XBDIR("E","CHS DATA ENTRY IN PROGRESS -- JOB CANCELLED - <RETURN> TO CONTINUE") Line Location: ACHSTXCK+18
Function Call: WRITE	Prompt: !!,"Export data will be made for ",$$LOC^ACHS Line Location: ACHSTXCK+21
Function Call: WRITE	Prompt: !!,*7 Line Location: ACHSTXCK+28
Function Call: WRITE	Prompt: !!,"EXPORT PROGRAM ALREADY RUN THIS DATE FOR THIS FACILITY",*7 Line Location: ACHSTXCK+33
Function Call: WRITE	Prompt: *7,!!,"MISSING AREA CONTRACTING NUMBER - JOB CANCELLED" Line Location: ACHSTXCK+37
Function Call: WRITE	Prompt: *7,!!,"Area Contracting Number is not 3 Upper-case Alpha-Numerics",!,"JOB CANCELLED" Line Location: ACHSTXCK+38
Function Call: WRITE	Prompt: ! Line Location: ACHSTXCK+47
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
Routine Call	%ZIS Line Location: ACHSTXCK+54
Routine Call	%ZIS Line Location: ACHSTXCK+48

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	ACHSTXCK+36
^ACHSTXST("C"	ACHSTXCK+33

Name	Field # of Occurrence
%ZIS	ACHSTXCK+47!*
%ZIS("A"	ACHSTXCK+47*
ACHS	KILLGLBS+8~, KILLGLBS+9*, KILLGLBS+10, KILLGLBS+11, KILLGLBS+12, KILLGLBS+13
>> ACHSARCO	ACHSTXCK+36*, ACHSTXCK+38
>> ACHSF638	ACHSTXCK+14
>> ACHSIO	ACHSTXCK+53*
>> ACHSMDAT	ACHSTXCK+41*
>> ACHSREEX	ACHSTXCK+33
DT	ACHSTXCK+33, DTAO+1, EXFILE+4
>> DTOUT	ACHSTXCK+22, ACHSTXCK+41
>> DUOUT	ACHSTXCK+22, ACHSTXCK+41
DUZ(2	ACHSTXCK+33, ACHSTXCK+36, EXFILE+2
IO	ACHSTXCK+53
IO("S"	ACHSTXCK+52
IO(0	ACHSTXCK+38
>> POP	ACHSTXCK+49
>> STOP	ACHSTXCK+14, ACHSTXCK+18, ACHSTXCK+22, ACHSTXCK+23, ACHSTXCK+27, ACHSTXCK+33, ACHSTXCK+38, ACHSTXCK+41, ACHSTXCK+49
U	ACHSTXCK+36, KILLGLBS+11
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