Routine: ACHSTX8

Information

ACHSTX8 ; IHS/ITSC/PMF - EXPORT DATA (9/9) - EOJ ;JUL 10, 2008

Source Information

Source file <ACHSTX8.m>

Call Graph

Call Graph Total: 16

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

Caller Graph

Caller Graph Total: 15

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

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

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

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

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: