Routine: ACHSTX

Information

ACHSTX ; IHS/ITSC/PMF - EXPORT DATA (1/9) ;JUL 10, 2008

Source Information

Source file <ACHSTX.m>

Call Graph

Call Graph Total: 15

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

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Contract Health Management Information System	10	ACHSMX - CHS ACHSTX ACHSTX1R ACHSTX2 ACHSTXA1 ACHSTXAR ACHSTXF ACHSTXF1 ACHSTXP2 ACHSTXTT

Entry Points

Name	Comments	DBIA/ICR reference
EXFILE()	; Does export file exist?
END	;
FILEHELP	;EP - ?? help text, from ACHS via DIR.
KILLGLBS	;EP - Kill unsubscripted work globals. ; ^ACHSDATA( - DHR (REC #2) All record types are set in this global to be sent to Area ; ^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.
DTAO()	;EP - Prompt for date sent to Area Office.
L2	;
L3	;
ERROR	;EP.

External References

Name	Field # of Occurrence
^%ZIS	L3+10
HOME^%ZIS	L3+14
^%ZISC	L3+14, ERROR+4
$$LIST^%ZISH	EXFILE+5
$$ASF^ACHS	EXFILE+2
$$EX^ACHS	EXFILE+5
$$JDT^ACHS	EXFILE+4
$$LOC^ACHS	L2+1, L2+2
$$LOCK^ACHS	ACHSTX+16
$$OS^ACHS	EXFILE+3
$$PARM^ACHS	ACHSTX+13
SLV^ACHSFU	L3+12
^ACHSTX2	L3+23
^ACHSTX7X	STATCHK+2
HELP^ACHSTX7X	STATCHK+1
JOBABEND^ACHSTX8	ERROR+5, END+2
KILL^ACHSTX8	ACHSTX+16, ACHSTX+18
TXFEF^ACHSTX8	L2+14
^ACHSTXAR	L3+21
^ACHSTXF	L3+22
^ACHSTXTT	L2+13
^ACHSVAR	ACHSTX+23
^DIC	L2+11
$$DIR^XBDIR	ACHSTX+16, ACHSTX+18, L2+2, DTAO+1, STATCHK+2
$$HTFM^XLFDT	DTAO+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!! Line Location: ACHSTX+16
Function Call: WRITE	Prompt: "" Condition for execution: $$DIR^XBDIR("E","CHS DATA ENTRY IN PROGRESS -- JOB CANCELLED - <RETURN> TO CONTINUE") Line Location: ACHSTX+16
Function Call: WRITE	Prompt: *7,!! Line Location: ACHSTX+18
Function Call: WRITE	Prompt: "" Condition for execution: $$DIR^XBDIR("E","CHS DOCUMENTS REQUIRE E-SIG -- JOB CANCELLED - <RETURN> TO CONTINUE") Line Location: ACHSTX+18
Function Call: WRITE	Prompt: !!?5,"A RE-EXPORT HAS ALREADY BEEN RAN TODAY, YOU WILL WRITE OVER",!?5,"THE FILE IF YOU CONTINUE." Line Location: ACHSTX+20
Function Call: WRITE	Prompt: !!,"Export data will be made for ",$$LOC^ACHS Line Location: L2+1
Function Call: WRITE	Prompt: !!,*7 Line Location: L2+6
Function Call: WRITE	Prompt: *7,!!,"MISSING AREA CONTRACTING NUMBER - JOB CANCELLED" Line Location: L2+16
Function Call: WRITE	Prompt: *7,!!,"Area Contracting Number is not 3 Upper-case Alpha-Numerics",!,"JOB CANCELLED" Line Location: L2+17
Function Call: WRITE	Prompt: ! Line Location: L3+9
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+14
Routine Call	DIC Line Location: L2+11
Routine Call	%ZIS Line Location: L3+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	L2+15, L3+17
^ACHSF("EQ"	ACHSTX+18
^ACHSTXST("C"	L2+14

Label References

Name	Line Occurrences
$$DTAO	L3+1
$$STATCHK	ACHSTX+13
END	L2+2, L2+3, L3+2, L3+11
ERROR	L2+17

Local Variables

Name	Field # of Occurrence
%ZIS	L3+6!, L3+8*
%ZIS("A"	L3+8*
ACHS	ACHSTX+26, KILLGLBS+8~, KILLGLBS+9, KILLGLBS+10, KILLGLBS+14, KILLGLBS+15
>> ACHSARCO	L2+15*, L2+17
>> ACHSCRTN	L2+19*
ACHSG	KILLGLBS+15*, KILLGLBS+17!
>> ACHSIO	L3+13*
>> ACHSION	L3+13*
>> ACHSMDAT	L3+1*
>> ACHSPCC	ERROR+1
ACHSPPC	L3+6!, ERROR+1
ACHSPPO	L3+6!
>> ACHSRCT	ACHSTX+24*
>> ACHSREEX	ACHSTX+18, L2+14, L3+21
>> ACHSRTYP(	ACHSTX+26*
>> ACHSTXTY	L3+20*, L3+22
>> ACHSUSDT	L3+17*, L3+20
DIC	L2+9!, L2+10*, L2+12!
DIC(0	L2+10*
DIR	ACHSTX+15!
DT	L2+10, L2+14, L3+20, DTAO+1, EXFILE+4
>> DTOUT	L2+3, L3+2
>> DUOUT	L2+3, L3+2
DUZ(2	ACHSTX+18, L2+10, L2+14, L2+15, L3+17, EXFILE+2
IO	L3+13
IO("S"	L3+12
IO(0	L2+17, L2+18, ERROR+2
ION	L3+13
>> POP	L3+11
U	L2+13, L2+15, L3+17
X	L2+9!, L2+10*, L2+12!, EXFILE+1~, EXFILE+5
X(	EXFILE+7
Y	L2+9!, L2+13, EXFILE+1~, EXFILE+2, EXFILE+3, EXFILE+4*, EXFILE+5, EXFILE+7
Y(0	L2+13
Z	EXFILE+1~, EXFILE+6, EXFILE+7, EXFILE+8

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTX

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed