Routine: ACHSTXCK

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

ACHSTXCK ; IHS/ITSC/PMF - EXPORT DATA [ 12/06/2002 10:36 AM ]

Source file <ACHSTXCK.m>

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