Routine: ACHSTXAR

Package	Total	Call Graph
Contract Health Management Information System	9	($$FC,$$LOC,$$PARM)^ACHS LINES^ACHSFU KILLGLBS^ACHSTX S2^ACHSTX2 (KILL,NORECDS)^ACHSTX8 ^ACHSTXA1 ^ACHSTXF1 ^ACHSUD ^ACHSUF
IHS VA Utilities	2	$$DIR^XBDIR $$EXTSET^XBFUNC
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Contract Health Management Information System

($$FC,$$LOC,$$PARM)^ACHS LINES^ACHSFU KILLGLBS^ACHSTX S2^ACHSTX2 (KILL,NORECDS)^ACHSTX8 ^ACHSTXA1 ^ACHSTXF1 ^ACHSUD
^ACHSUF

IHS VA Utilities

$$DIR^XBDIR $$EXTSET^XBFUNC

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSTX

Package

Total

Caller Graph

Contract Health Management Information System

ACHSTX

Entry Points

Name	Comments	DBIA/ICR reference
EXIT1	;
HDR	;
DISTRANS(D,T)	;
HDR1	;
SELRANG	; Select Document range only Initial transactions.
BEGDOC	;
H1	;
SELTRANS(D)	; Display trans of doc D, and allow selection.
SETRTR	;SET TRANS FOR DOCUMENT RANGE
HELP(L)	;EP - Display text at label L.
ENDDOC	;
L4	;
L2	;
L3	;
H	;
L1	;
SELDOC	; Select transactions from particular documents for export.
SETRTR1	;SET DOC TRANS IN TEMP

External References

Name	Field # of Occurrence
$$FC^ACHS	SELDOC+14, SETRTR+13
$$LOC^ACHS	ACHSTXAR+21
$$PARM^ACHS	ACHSTXAR+19
LINES^ACHSFU	ACHSTXAR+15
KILLGLBS^ACHSTX	L4+6
S2^ACHSTX2	L4+12
KILL^ACHSTX8	EXIT1+3
NORECDS^ACHSTX8	L4+1, L4+3
^ACHSTXA1	ACHSTXAR+13, ACHSTXAR+14
^ACHSTXF1	ACHSTXAR+13, ACHSTXAR+14, L4+7
^ACHSUD	SELDOC+3, BEGDOC+2, ENDDOC+2
^ACHSUF	ACHSTXAR+17
$$DIR^XBDIR	ACHSTXAR+9, L1+4, L3+8, L4+2, SELDOC+20, ENDDOC+6, SETRTR+15, SETRTR+18, SELTRANS+6
$$EXTSET^XBFUNC	DISTRANS+2
$$FMTE^XLFDT	L3+5, DISTRANS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"EXPORT PROGRAM ALREADY RUN THIS DATE FOR THIS FACILITY",*7 Line Location: ACHSTXAR+7
Function Call: WRITE	Prompt: !?10,"FACILITY NAME: ",$$LOC^ACHS Line Location: ACHSTXAR+21
Function Call: WRITE	Prompt: !!,*7,"NO DATA ON FILE FOR THIS FACILITY, JOB CANCELLED" Line Location: L1+1
Function Call: WRITE	Prompt: $J(ACHSLCAT,4),?10,X1,?25,X2,?40,X3,?55,$J($P(X,U,5),5),! Line Location: L3+6
Function Call: WRITE	Prompt: 7,!!!?15,"****************NOTICE**************",!?15,"The number of records in this re-export",!?15,"might differ from the number in the original.",!?15,"*****************************************",!! Line Location: L4+5
Function Call: WRITE	Prompt: !!,"ITM #",?10,"EXPORT DATE",?25,"BEG DATE",?40,"END DATE",?55,"# RECORDS",!! Line Location: HDR1+1
Function Call: WRITE	Prompt: @IOF,!,ACHS(""),!?22,"GENERATE PREVIOUS CHS TRANSMISSION DATA",!,ACHS(""),! Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"JOB CANCELLED BY OPERATOR" Line Location: EXIT1+2
Function Call: WRITE	Prompt: !!,"The list now consists of the following transactions:" Line Location: SELDOC+10
Function Call: WRITE	Prompt: !,$J(%,2),". ",$P(^ACHSF(DUZ(2),"D",D,0),U,14),"-",$$FC^ACHS(DUZ(2)),"-",$P(^ACHSF(DUZ(2),"D",D,0),U,1) Line Location: SELDOC+14
Function Call: WRITE	Prompt: !!!,"ENTER THE BEGINNING DOCUMENT NUMBER" Line Location: BEGDOC+1
Function Call: WRITE	Prompt: !!!,"ENTER THE ENDING DOCUMENT NUMBER" Line Location: ENDDOC+1
Function Call: WRITE	Prompt: !!,"***Document selected is not after beginning Document.***" Line Location: ENDDOC+3
Function Call: WRITE	Prompt: !!,"The list now consists of the following transactions:" Line Location: SETRTR+9
Function Call: WRITE	Prompt: !,$J(%,2),". ",$P(^ACHSF(DUZ(2),"D",D,0),U,14),"-",$$FC^ACHS(DUZ(2)),"-",$P(^ACHSF(DUZ(2),"D",D,0),U,1) Line Location: SETRTR+13
Function Call: WRITE	Prompt: !!,"CONTINUE TO EXPORT RECORDS" Line Location: SETRTR+17
Function Call: WRITE	Prompt: !!?10,"----------------------------------------------------",!?10,"TRANS",?30,"TRANS",!?11,"NUM",?19,"D A T E",?30,"TYPE",?40,"AMOUNT",!?10,"----------------------------------------------------",!! Line Location: SELTRANS+3
Function Call: WRITE	Prompt: !?10,$J(C,3) Line Location: SELTRANS+5
Function Call: WRITE	Prompt: ?17,$$FMTE^XLFDT($P(Y,U,1)),?32,$P(Y,U,2),$P(Y,U,5),?35,$J($FN($P(Y,U,4),",",2),11)," <",$$EXTSET^XBFUNC(9002080.02,1,$P(Y,U,2)),">" Line Location: DISTRANS+2
Function Call: WRITE	Prompt: ! Line Location: HELP+1
Function Call: WRITE	Prompt: !?4,$P($T(@L+%),";",3) Line Location: HELP+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	SELDOC+6, SELDOC+7, SELDOC+14, SETRTR+4, SETRTR+5, SETRTR+6, SETRTR+13, SETRTR1+1, SETRTR1+2, SELTRANS+5 , DISTRANS+1
^ACHSTXST - [#9002070]	L1+1, L1+2, L3+5, L4+8, L4+10
^ACHSTXST("AC"	L3+1, L3+3
^ACHSTXST("C"	ACHSTXAR+7
^TMP("ACHSTXAR"	ACHSTXAR+13, ACHSTXAR+14, SELDOC+1!, SELDOC+6!, SELDOC+7, SELDOC+11, SELRANG+1!, SETRTR+10, SETRTR+11, SETRTR1+2

Label References

Name	Line Occurrences
$$SELTRANS	SELDOC+4
BEGDOC	ENDDOC+2, ENDDOC+7
DISTRANS	SELDOC+15, SETRTR+14, SELTRANS+5
ENDDOC	ENDDOC+3
EXIT1	ACHSTXAR+7, ACHSTXAR+10, ACHSTXAR+13, ACHSTXAR+14, L1+1, L1+5
HDR	ACHSTXAR+15
HDR1	L2+2, L3+8
HELP	SELTRANS+1
L2	L1+5
L3	L3+4, L3+9
L4	L3+2, L3+7, L3+8
SELDOC	ACHSTXAR+13
SELRANG	ACHSTXAR+14
SETRTR1	SETRTR+4, SETRTR+5, SETRTR+6

Name	Field # of Occurrence
^(	SELTRANS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SELDOC+3, SELDOC+5, SELDOC+9, SELDOC+13, SELDOC+14, SELDOC+17, ENDDOC+6, SETRTR+8, SETRTR+12, SETRTR+13 , SETRTR+15, HELP+2
>> ACHS(	L3+5*, L4+4
>> ACHS("*"	HDR+2
>> ACHS("MAX"	L1+2*, L1+3, L1+4, L4+11!
>> ACHS("NUM"	L1+2, L1+3, L1+4, L1+6*, L3+7, L4+11!
>> ACHS("REXNUM"	L4+4*, L4+8, L4+10
>> ACHSBDT	ACHSTXAR+19, L4+8, L4+9*
ACHSCHSS	ACHSTXAR+16*, ACHSTXAR+18!
ACHSDIEN	SELDOC+3, SELDOC+4, SELDOC+6, SELDOC+7, SELDOC+19!, BEGDOC+2, BEGDOC+3, ENDDOC+2, ENDDOC+4, SETRTR+16! , SETRTR1+1*, SETRTR1+2
ACHSEDOC	SETRTR+16!
ACHSEDOC(	BEGDOC+3, ENDDOC+3, ENDDOC+4, SETRTR+2, SETRTR+3
>> ACHSEDT	ACHSTXAR+19, L4+10
>> ACHSF638	ACHSTXAR+19*
>> ACHSFC	BEGDOC+3, ENDDOC+4
ACHSLCAT	L2+1, L3+5, L3+6, L3+7, L3+8, L4+1, L4+2, L4+11!
ACHSQ	SETRTR+8~, SETRTR+10, SETRTR+11, SETRTR+15
ACHSR	L2+1, L3+1, L3+2, L3+3, L4+11!
>> ACHSREEX	ACHSTXAR+7
ACHSRR	ACHSTXAR+19, L2+1, L3+3*, L3+4, L3+5, L4+11!
>> ACHSRTYP(	ACHSTXAR+20*
>> ACHSSDI	SELDOC+9, SELDOC+11, SETRTR+8, SETRTR+10, SETRTR+11
>> ACHSTXTY	ACHSTXAR+13, ACHSTXAR+14, L4+7
BEGDOC	SETRTR+2, SETRTR+4, SETRTR+5, SETRTR+6, SETRTR+16!, SETRTR1+1
C	SELTRANS+2~, SELTRANS+4, SELTRANS+5, SELTRANS+6
C(	SELTRANS+5*, SELTRANS+8, SELTRANS+9
D	SELDOC+2~, SELDOC+11, SELDOC+14, SELDOC+15, SELRANG+2~, SETRTR+11, SETRTR+13, SETRTR+14, SELTRANS~, SELTRANS+5 , DISTRANS~, DISTRANS+1
DT	ACHSTXAR+7
>> DTOUT	ACHSTXAR+10, ACHSTXAR+13, ACHSTXAR+14, L1+5, L4+3, SELDOC+3, SELDOC+5, BEGDOC+2, ENDDOC+2, SELTRANS+7
>> DUOUT	ACHSTXAR+10, ACHSTXAR+13, ACHSTXAR+14, L1+5, L3+8, L4+3, SELDOC+3, SELDOC+5, BEGDOC+2, ENDDOC+2 , ENDDOC+8, SELTRANS+7
DUZ(2	ACHSTXAR+7, L1+1, L1+2, L3+1, L3+3, L3+5, L4+8, L4+10, SELDOC+6, SELDOC+7 , SELDOC+14, SETRTR+4, SETRTR+5, SETRTR+6, SETRTR+13, SETRTR1+1, SETRTR1+2, SELTRANS+5, DISTRANS+1
ENDDOC	SETRTR+2*, SETRTR+5, SETRTR+6, SETRTR+16!
>> I	ACHSTXAR+20*
IO(0	HDR+1, EXIT1+1
IOF	HDR+2
>> J	ACHSTXAR+19*
L	SETRTR+1*, SETRTR+2, SETRTR+3, SETRTR+16!, HELP~
SEL	SELRANG+3, BEGDOC+3, ENDDOC+3, ENDDOC+4, ENDDOC+7, SETRTR+1, SETRTR+16!
T	SELDOC+2~, SELDOC+4, SELDOC+5, SELDOC+6, SELDOC+7, SELDOC+11, SELDOC+15, SELRANG+2~, SETRTR+11, SETRTR+14 , SELTRANS+2~, SELTRANS+4, SELTRANS+5, DISTRANS~, DISTRANS+1
U	L1+2, L3+5, L3+6, L4+8, L4+10, SELDOC+6, SELDOC+7, SELDOC+14, BEGDOC+3, ENDDOC+3 , ENDDOC+4, SETRTR+2, SETRTR+3, SETRTR+13, SETRTR1+2, DISTRANS+2
>> X	L3+5*, L3+6, BEGDOC+3, ENDDOC+3, ENDDOC+4
X1	L3+5*, L3+6, L4+11!
X2	L3+5*, L3+6, L4+11!
X3	L3+5*, L3+6, L4+11!
>> Y	ACHSTXAR+9, ACHSTXAR+13, ACHSTXAR+14, L1+4, L1+5, L1+6, L4+2, L4+4, ENDDOC+7, SELTRANS+5 , SELTRANS+6, SELTRANS+7, SELTRANS+8, SELTRANS+9, DISTRANS+1, DISTRANS+2
>> Y(0	BEGDOC+3, ENDDOC+3, ENDDOC+4

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTXAR

Information

Source Information

Call Graph

Call Graph Total: 12