Routine: ACHSTX8

Package	Total	Call Graph
Contract Health Management Information System	4	($$LOC,$$LOCK,$$PARM,ERPT,NOW)^ACHS $$REC^ACHSACO1 LINES^ACHSFU ^ACHSVAR
IHS VA Utilities	4	$$DIR^XBDIR $$C^XBFUNC ^XBGSAVE EN^XBVK
Kernel	4	^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	4	NOW^%DTC ^DIC ^DIE $$GET1^DIQ

Package	Total	Caller Graph
Contract Health Management Information System	15	ACHSTX ACHSTX2 ACHSTX3 ACHSTX5 ACHSTX55 ACHSTX6 ACHSTX66 ACHSTX7 ACHSTXA1 ACHSTXAR ACHSTXF ACHSTXF1 ACHSTXIT ACHSTXP ACHSTXP2

Entry Points

Name	Comments	DBIA/ICR reference
SETR2	;ICD-10 FORMAT;ACHS3.123
SETR1	;ICD-9 FORMAT;ACHS3.123
JOBABEND	;EP.
IPA	;EP - Set IHS pay amt into ACHSIPA.
NORECDS	;EP
TOS	;EP - Set document type into ACHSTOS2.
ENTRETRN	;
NOQUE	; Report not q'd.
TRIB	;EP - Set patient's tribe into ACHSTRIB.
NUMRECS(DA)	;
TXFEF	;EP.
CANOBJ	;EP - Set CAN, ObjClass, & SCC into ACHSCAN, ACHSOBJC, ACHSSCC.
KILL	;EP - Kill vars, close device, quit.
WRITETP	; Save global for export.
REPORT	;EP - From TaskMan.
TST	;ADD TRANSACTIONS TO CHS TX STATUS FILE
R1	; Print basic info for the report.

External References

Name	Field # of Occurrence
NOW^%DTC	WRITETP+6
^%ZISC	KILL+5, KILL+7
^%ZTLOAD	ACHSTX8+33
$$LOC^ACHS	REPORT+3, SETR1+1, SETR2+1
$$LOCK^ACHS	KILL+1
$$PARM^ACHS	ACHSTX8+27
ERPT^ACHS	REPORT+9
NOW^ACHS	REPORT+2
$$REC^ACHSACO1	ACHSTX8+10
LINES^ACHSFU	REPORT+2
^ACHSVAR	KILL+5
^DIC	TST+7
^DIE	NOQUE+6, NUMRECS+6, TST+9
$$GET1^DIQ	WRITETP+3
$$DIR^XBDIR	ACHSTX8+12, ENTRETRN+2
$$C^XBFUNC	REPORT+3
^XBGSAVE	WRITETP+8
EN^XBVK	KILL+5
$$FMTE^XLFDT	R1+1
$$REPEAT^XLFSTR	R1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,".....EXPORT CHS DATA",!! Line Location: ACHSTX8+7
Function Call: WRITE	Prompt: !!?10,"ABNORMAL END OF CHS EXPORT" Line Location: JOBABEND+1
Function Call: WRITE	Prompt: !!,XBFLG(1),! Line Location: JOBABEND+2
Function Call: WRITE	Prompt: !!,"EXPORT PROGRAM ALREADY RUN THIS DATE FOR THIS FACILITY",*7 Line Location: TXFEF+1
Function Call: WRITE	Prompt: ! Line Location: ENTRETRN+1
Function Call: WRITE	Prompt: !!,*7,?10,"NO RECORDS GENERATED FOR EXPORT",!! Line Location: NORECDS+1
Function Call: WRITE	Prompt: @IOF,!,ACHS(""),!,"",?25,"CONTRACT HEALTH MANAGEMENT SYSTEM",?78,"",!,"",?30,"EXPORTED RECORDS BY TYPE",?78,"",!,"",$E(X,2,80),?78,"",!,"",$E(ACHSTIME,2,80),?78,"",!,ACHS(""),!!! Line Location: REPORT+5
Function Call: WRITE	Prompt: @IOF Line Location: REPORT+7
Function Call: WRITE	Prompt: ?20,"BEGINNING ADD/UPD DATE",?45,"=",?50,$$FMTE^XLFDT(ACHSFDT),!!?20,"ENDING ADD/UPD DATE",?45,"=",?50,$$FMTE^XLFDT(ACHSLDAT),!!?15,$$REPEAT^XLFSTR("-",47),!?15,"T Y P E O F R E C O R D",?55,"NUMBER",!?15,$$REPEAT^XLFSTR("-",47),!! Line Location: R1+1
Function Call: WRITE	Prompt: ?10,ACHS,".",?15,ACHSTYP(ACHS),?55,$J(ACHSRTYP(ACHS),6),! Line Location: R1+4
Function Call: WRITE	Prompt: !?20,"TOTAL ALL TYPES",?55,$J(ACHSRTYP,6),!! Line Location: R1+5
Routine Call	DIE Line Location: NOQUE+6 NUMRECS+6 TST+9
Routine Call	DIC Line Location: TST+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACHSTXST - [#9002070]	Classic Fileman Calls
^ACHSAOP - [#9002079]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIB(9888888.93 - [#9888888.93]	WRITETP+7
^ACHS(2 - [#9002062]	CANOBJ+2
^ACHS(3 - [#9002063]	CANOBJ+3
^ACHS(9 - [#9002069]	SETR1+1, SETR2+1
^ACHSDATA(0	SETR1+1, SETR2+1
^ACHSF - [#9002080]	TST+12*
^ACHSOCC - [#9002078.5]	CANOBJ+5, CANOBJ+6
^ACHSTXST - [#9002070]	NOQUE+4, NOQUE+8, NOQUE+9, WRITETP+10*
^ACHSTXST("B"	NOQUE+4*
^ACHSTXST(0	NOQUE+4*
^AUPNPAT - [#9000001]	TRIB+2
^AUTTLOC - [#9999999.06]	ACHSTX8+31, WRITETP+5, SETR1+1, SETR2+1
^AUTTSITE(1	WRITETP+7
^AUTTTRI - [#9999999.03]	TRIB+2
^DD(9002070.01	TST+4
^DIC(9.4 - [#9.4]	ACHSTX8+17, ACHSTX8+18, ACHSTX8+19, ACHSTX8+22
^TMP("ACHSTX"	KILL+6!, TST+1, TST+5, TST+6

Label References

Name	Line Occurrences
ENTRETRN	WRITETP+12, JOBABEND+3, NORECDS+2
JOBABEND	WRITETP+9
NOQUE	ACHSTX8+30
NORECDS	ACHSTX8+8
NUMRECS	NOQUE+10
R1	ACHSTX8+11, REPORT+6
REPORT	NOQUE+1, WRITETP+11
SETR1	ACHSTX8+27
SETR2	ACHSTX8+28
WRITETP	NOQUE+1

Naked Globals

Name	Field # of Occurrence
^(0	TRIB+2
^(11	TRIB+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ACHSTX8+32, WRITETP+6, NUMRECS+3
%DT	KILL+2!
>> %I(3	WRITETP+6
>> ACHS	NOQUE+8, R1+4
>> ACHS("*"	REPORT+5
>> ACHSCAN	CANOBJ+1, CANOBJ+2
>> ACHSCFY	SETR1+1, SETR2+1
ACHSCRTN	ACHSTX8+13*, NOQUE+9, KILL+2!, SETR1+1, SETR2+1
>> ACHSDOCR	CANOBJ+2, CANOBJ+3, CANOBJ+5, CANOBJ+6, TOS+1
>> ACHSFDT	NOQUE+9, R1+1, SETR1+1, SETR2+1
>> ACHSIO	ACHSTX8+30
>> ACHSION	ACHSTX8+31
>> ACHSIPA	IPA+1*
>> ACHSLDAT	NOQUE+9, R1+1, SETR1+1, SETR2+1
>> ACHSMDAT	ACHSTX8+14*, NOQUE+9, SETR1+1, SETR2+1
>> ACHSOBJC	CANOBJ+1, CANOBJ+5, CANOBJ+6*
>> ACHSPA	ACHSTX8+16, ACHSTX8+19, ACHSTX8+22*, SETR1+1
>> ACHSPPC	REPORT+8
>> ACHSPPO	WRITETP+11, REPORT+4
>> ACHSREEX	NOQUE+1, WRITETP+10, KILL+5, TST+12
>> ACHSROUT	ACHSTX8+8, NOQUE+9
>> ACHSRTYP	R1+2, R1+4, R1+5, SETR1+1, SETR2+1
>> ACHSRTYP(	R1+4, NUMRECS+3
>> ACHSRTYP(8	NUMRECS+5
>> ACHSSCC	CANOBJ+1, CANOBJ+3
>> ACHSTIME	REPORT+3*, REPORT+5
>> ACHSTOS2	TOS+1*
>> ACHSTRAN	IPA+1
>> ACHSTRIB	TRIB+1, TRIB+2
ACHSTXTY	KILL+6!, NUMRECS+5
>> ACHSTYP(	ACHSTX8+10*, R1+4
>> ACHSVDA	ACHSTX8+16, ACHSTX8+17, ACHSTX8+18, ACHSTX8+19, ACHSTX8+22
>> ACHSVER	ACHSTX8+18*, ACHSTX8+19, SETR1+1
>> ACHSY	ACHSTX8+10*
DA	NOQUE+5, KILL+2!, NUMRECS~, TST+2, TST+7
DA(1	NOQUE+7, NOQUE+8, NOQUE+9, NOQUE+10, WRITETP+10, NUMRECS+2, TST+2, TST+3
DA(2	TST+2*, TST+3
>> DFN	TRIB+2
>> DIADD	TST+4*
DIC	KILL+2!, TST+3*
DIC("P"	TST+4*
DIC(0	TST+4*
DIE	NOQUE+3, KILL+2!, NUMRECS+1~, NUMRECS+2, TST+3*
>> DLAYGO	TST+4*
DR	NOQUE+5, KILL+2!, NUMRECS+1~, NUMRECS+2, NUMRECS+3, NUMRECS+4, NUMRECS+5, TST+8
DR(2	NOQUE+5*
DT	ACHSTX8+14, ACHSTX8+27, NOQUE+5, NOQUE+9, TST+12, SETR1+1, SETR2+1
DUOUT	KILL+2!
DUZ(2	ACHSTX8+31, NOQUE+4, NOQUE+5, NOQUE+8, NOQUE+9, WRITETP+3, WRITETP+5, WRITETP+10, CANOBJ+3, NUMRECS+2 , TST+2, TST+12, SETR1+1, SETR2+1
DX	KILL+2!
DY	KILL+2!
IO	ACHSTX8+30, REPORT+1
IO(0	ACHSTX8+6
IOF	REPORT+5, REPORT+7
>> P	TST+5*, TST+6, TST+7
>> T	TST+6*, TST+8
U	ACHSTX8+18, ACHSTX8+22, ACHSTX8+31, NOQUE+4, NOQUE+9, WRITETP+5, WRITETP+7, WRITETP+10, CANOBJ+2, CANOBJ+3 , CANOBJ+5, CANOBJ+6, IPA+1, TOS+1, TRIB+2, TST+4, TST+12, SETR1+1, SETR2+1
>> X	REPORT+3, REPORT+5, IPA+1, TOS+1, TST+7
X1	KILL+2!
XBDT	KILL+2!
XBF	KILL+2!
XBFLG	WRITETP+9, JOBABEND+2!
XBFLG(1	JOBABEND+2
>> XBFN	WRITETP+5, WRITETP+6
XBGL	WRITETP+1*, KILL+2!
>> XBMED	WRITETP+1*
>> XBNAR	WRITETP+1*
>> XBQTO	WRITETP+3*
>> XBS1	WRITETP+7*
XBTIT	KILL+2!
>> Y	TST+7
>> ZTDESC	ACHSTX8+31*
>> ZTDTH	ACHSTX8+31*
>> ZTIO	ACHSTX8+31*
>> ZTRTN	ACHSTX8+31*
>> ZTSAVE(	ACHSTX8+32*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTX8

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: