Routine: ACHSTX7X

Information

ACHSTX7X ; IHS/ITSC/TPF/PMF - CHS TRIBAL STATISTICAL EXPORT ERROR REPORT ;

Source Information

Source file <ACHSTX7X.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	3	($$LOC,$$PARM,RTRN)^ACHS DXPX^ACHSTX7A (FC,FY)^ACHSUF
IHS VA Utilities	1	$$C^XBFUNC

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSTX ACHSTXCK ACHSTXIT

Entry Points

Name	Comments	DBIA/ICR reference
DESC()	;
HELP	;EP - From DIR.
CHK4	;INVALID ADMISSION/DISCHARGE DATE; Error 4.
CHKEND	; ----- Set TMP Global with document Errors.
SETUP	; ----- Set vars. --------------------------------------------------
CHK	; --- Text at CHK_ labels are used in report.
CHK1	;ERROR IN ICD-9 CODE; Error 1.
DEV	;
CHK3	;INVALID PROVIDER TYPE; Error 3.
START	;EP - From TaskMan.
PHDR	; ----- Header for Report.
CHK2	;INVALID EIN; Error 2.
PRINT	; ----- Print Errors. ----------------------------------------------
CLOSE	; ----- Close device, kill vars, quit. -----------------------------
CALC	; ----- Check for documents with incomplete data items. ------------

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+6
^%ZISC	CLOSE+1
^%ZTLOAD	DEV+6
$$LOC^ACHS	PHDR+2
$$PARM^ACHS	ACHSTX7X+13, CHK1+1
RTRN^ACHS	ACHSTX7X+13, PRINT+8, PRINT+14, PRINT+18
DXPX^ACHSTX7A	CHK1+2
FC^ACHSUF	SETUP+1
FY^ACHSUF	SETUP+1
$$C^XBFUNC	PHDR+3, PHDR+4, HELP+1
$$FMTE^XLFDT	PHDR+4
$$REPEAT^XLFSTR	PHDR+3, PHDR+5, PHDR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your site is not a 638 facility." Line Location: ACHSTX7X+13
Function Call: WRITE	Prompt: !?7,$P(^TMP("ACHSTX7X",$J,ACHSTOS,ACHSDIEN),U) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?45,$P($T(@("CHK"_%)),";",2) Line Location: PRINT+10
Function Call: WRITE	Prompt: " ",$P(^TMP("ACHSTX7X",$J,ACHSTOS,ACHSDIEN),U,6) Condition for execution: %=2 Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
Function Call: WRITE	Prompt: !!," TOTAL HOSPITAL DOCUMENTS WITH ERRORS = ",$J($FN(ACHSTOS(1),","),6) Line Location: PRINT+15
Function Call: WRITE	Prompt: !!," TOTAL DENTAL DOCUMENTS WITH ERRORS = ",$J($FN(ACHSTOS(2),","),6) Line Location: PRINT+16
Function Call: WRITE	Prompt: !!,"TOTAL OUTPATIENT DOCUMENTS WITH ERRORS = ",$J($FN(ACHSTOS(3),","),6),! Line Location: PRINT+17
Function Call: WRITE	Prompt: @IOF,!,$$LOC^ACHS,?70,"Page ",ACHSPG Line Location: PHDR+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80),!,$$C^XBFUNC($$DESC,80) Line Location: PHDR+3
Function Call: WRITE	Prompt: !,$$C^XBFUNC("From Transaction Date "_$$FMTE^XLFDT(ACHSBDTS)_" to "_$$FMTE^XLFDT(ACHSEDT),80) Line Location: PHDR+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: PHDR+5
Function Call: WRITE	Prompt: !!?5,"DOCUMENT NUMBER",?45,"TYPE OF ERROR",!?5,$$REPEAT^XLFSTR("-",15),?45,$$REPEAT^XLFSTR("-",13),! Line Location: PHDR+6
Function Call: WRITE	Prompt: !,$$C^XBFUNC($$DESC),! Line Location: HELP+1
Function Call: WRITE	Prompt: !?5,$P($T(HELP+%),";",3) Line Location: HELP+2
Routine Call	%ZIS Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	SETUP+3, SETUP+5, SETUP+6, SETUP+7
^ACHSF - [#9002080]	CALC+1, CALC+2, CALC+4, CALC+5, CALC+6, CALC+7, CHK1+1, CHK4+2, CHK4+3, CHK4+6
^AUTTVNDR - [#9999999.11]	CHK2+2, CHK3+1
^AUTTVTYP - [#9999999.34]	CHK3+3
^DD(9999999.11	CHK2+3
^TMP("ACHSTX7X"	START+1!, CHKEND+2, CHKEND+3, CHKEND+4*, CLOSE+2!, PRINT+5, PRINT+6, PRINT+9, PRINT+10

Label References

Name	Line Occurrences
$$DESC	DEV+5, PHDR+3, HELP+1
ACHSTX7X	DESC+1
CALC	START+4
CHK	CALC+8
CHK2	CHK1+1, CHK1+4, CHK1+5
CHK3	CHK2+4
CHK4	CHK2+1
CLOSE	DEV+3, DEV+7, START+6
PHDR	PRINT+3, PRINT+8, PRINT+14
PRINT	START+5
SETUP	START+3
START	DEV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHK+1, CHKEND+3, PRINT+10, HELP+2
>> %ZIS	DEV+1*
ACHS	CLOSE+2!
ACHSAPC	CLOSE+2!
ACHSAPC(1	CHK1+6
ACHSBDT	SETUP+2, SETUP+7, SETUP+8, SETUP+10, SETUP+11, CALC+1*, CALC+2, CALC+4, CALC+6, CLOSE+2!
ACHSBDTS	START+2~, SETUP+11*, PHDR+4
ACHSCFY	SETUP+3, SETUP+5, SETUP+6, SETUP+7, CLOSE+2!
ACHSDCR	SETUP+2, SETUP+5, SETUP+6, SETUP+7, SETUP+10, CLOSE+2!
ACHSDIEN	CALC+3, CALC+4, CALC+5, CALC+6, CALC+7, CHK1+1, CHK4+2, CHK4+3, CHK4+6, CHKEND+2 , CHKEND+3, CHKEND+4, CLOSE+2!, PRINT+6*, PRINT+9, PRINT+10
ACHSDOCR	CALC+7*, CHK2+1, CHK2+2, CHK3+1, CHKEND+2, CLOSE+2!
ACHSDX	CLOSE+2!
ACHSDX(1	CHK1+4
ACHSEDT	SETUP+2, SETUP+6, CALC+1, CLOSE+2!, PHDR+4
ACHSEIN	START+2~, CHK2+1, CHK2+2, CHKEND+4
ACHSERR	CLOSE+2!
ACHSERR(	CHK+1*, CHKEND+3
ACHSERR(1	CHK1+4, CHK1+6
ACHSERR(2	CHK2+1, CHK2+4, CHK2+5*
ACHSERR(3	CHK3+2, CHK3+3
ACHSERR(4	CHK4+6*
ACHSFC	START+2~, CHKEND+2
ACHSFYDT	START+2~, SETUP+8, SETUP+10
ACHSPG	CLOSE+2!, PRINT+2, PHDR+1, PHDR+2
ACHSPX	CLOSE+2!
ACHSTIEN	CALC+6*, CHK1+1, CLOSE+2!
ACHSTOS	CALC+7, CHK1+4, CHK1+5, CHK1+6, CHK4+1, CHKEND+2, CHKEND+3, CHKEND+4, CLOSE+2!, PRINT+6 , PRINT+7, PRINT+9, PRINT+10
ACHSTOS(	PRINT+7*
ACHSTOS(1	PRINT+4*, PRINT+15
ACHSTOS(2	PRINT+4*, PRINT+16
ACHSTOS(3	PRINT+4*, PRINT+17
ACHSTST	CHK+2, CHK1+4, CHK1+6, CHK2+1, CHK2+4, CHK2+5, CHK3+2, CHK3+3, CHK4+6*, CHKEND+1 , CLOSE+2!
ACHSX	CLOSE+2!
ACHSY	CLOSE+2!
DT	SETUP+2
>> DUOUT	PRINT+6, PRINT+8, PRINT+13, PRINT+14
DUZ(2	SETUP+3, SETUP+5, SETUP+6, SETUP+7, CALC+1, CALC+2, CALC+4, CALC+5, CALC+6, CALC+7 , CHK1+1, CHK4+2, CHK4+3, CHK4+6
IO	PRINT+1
IO("Q"	DEV+4
IOF	PHDR+2
IOSL	PRINT+8, PRINT+14
>> POP	DEV+3
R	CLOSE+2!
U	SETUP+6, SETUP+7, CALC+5, CALC+7, CHK1+1, CHK2+1, CHK2+2, CHK2+3, CHK3+1, CHK4+2 , CHK4+3, CHK4+6, CHKEND+2, CHKEND+3, CHKEND+4, PRINT+9, PRINT+10
>> X	SETUP+3, SETUP+4, SETUP+5, CHK2+2, CHK2+4, CHK2+5, CHK3+1, CHK3+2, CHK3+3, CHK4+2 , CHK4+6
>> Y	CHK4+3*, CHK4+6
>> ZTDESC	DEV+5*
>> ZTRTN	DEV+5*

Marked Items

Name	Field # of Occurrence
$T(@(3)	PRINT+10
$T(ACHSTX7X	DESC+1
$T(HELP+%	HELP+2
$T(HELP+%+1	HELP+2

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTX7X

Call Graph Total: 9

Caller Graph Total: 3