Routine: ACHSTX1R

Package	Total	Call Graph
Contract Health Management Information System	4	($$FC,$$LOC)^ACHS KILLGLBS^ACHSTX S2^ACHSTX2 ^ACHSUD
IHS VA Utilities	2	$$DIR^XBDIR $$EXTSET^XBFUNC
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Contract Health Management Information System

($$FC,$$LOC)^ACHS KILLGLBS^ACHSTX S2^ACHSTX2 ^ACHSUD

IHS VA Utilities

$$DIR^XBDIR $$EXTSET^XBFUNC

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSTXX

Package

Total

Caller Graph

Contract Health Management Information System

ACHSTXX

Name	Comments	DBIA/ICR reference
SELDOC	; Select transactions from particular documents for export.
HDR	;
DISTRANS(D,T)	;
HDR1	;
HELP(L)	;EP - Display text at label L.
H1	;
SELTRANS(D)	; Display trans of doc D, and allow selection.
L2	;
H	;

Name	Field # of Occurrence
$$FC^ACHS	SELDOC+17
$$LOC^ACHS	ACHSTX1R+16
KILLGLBS^ACHSTX	L2+16
S2^ACHSTX2	L2+21
^ACHSUD	SELDOC+3
$$DIR^XBDIR	ACHSTX1R+4, ACHSTX1R+22, L2+8, L2+12, SELDOC+23, SELTRANS+6
$$EXTSET^XBFUNC	DISTRANS+2
$$FMTE^XLFDT	L2+5, DISTRANS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"FACILITY NAME: ",$$LOC^ACHS Line Location: ACHSTX1R+16
Function Call: WRITE	Prompt: $J(ACHSLCAT,4),?10,X1,?25,X2,?40,X3,?55,$J($P(X,U,5),5),! Line Location: L2+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: L2+15
Function Call: WRITE	Prompt: @IOF,!,ACHS(""),!?22,"GENERATE PREVIOUS CHS TRANSMISSION DATA",!,ACHS(""),! Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"ITM #",?10,"EXPORT DATE",?25,"BEG DATE",?40,"END DATE",?55,"# RECORDS",!! Line Location: HDR1+1
Function Call: WRITE	Prompt: !!,"The list now consists of the following transactions:" Line Location: SELDOC+9
Function Call: WRITE	Prompt: !!,%,!! Line Location: SELDOC+12
Function Call: WRITE	Prompt: !!,%,!! Line Location: SELDOC+15
Function Call: WRITE	Prompt: !,$J(%,3),". ",$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+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

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	SELDOC+6, SELDOC+7, SELDOC+17, SELTRANS+5, DISTRANS+1
^ACHSTXST - [#9002070]	ACHSTX1R+18, ACHSTX1R+20, L2+5, L2+17, L2+19
^ACHSTXST("AC"	L2+3, L2+4
^TMP("ACHSTXAR"	SELDOC+1!, SELDOC+6!, SELDOC+7*, SELDOC+10

Name	Line Occurrences
$$SELTRANS	SELDOC+4
DISTRANS	SELDOC+18, SELTRANS+5
HDR	ACHSTX1R+13
HDR1	L2+2
HELP	SELTRANS+1
SELDOC	ACHSTX1R+10

Name	Field # of Occurrence
^(	SELTRANS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SELDOC+3, SELDOC+5, SELDOC+8, SELDOC+11, SELDOC+12, SELDOC+14, SELDOC+15, SELDOC+17, SELDOC+20, HELP+2
>> ACHS(	L2+5*, L2+14
>> ACHS("*"	HDR+2
>> ACHS("MAX"	ACHSTX1R+20*, ACHSTX1R+21, ACHSTX1R+22, L2+20!
>> ACHS("NUM"	ACHSTX1R+20, ACHSTX1R+21, ACHSTX1R+22, ACHSTX1R+25*, L2+7, L2+20!
>> ACHS("REXNUM"	L2+14*, L2+17, L2+19
>> ACHSBDT	ACHSTX1R+14, L2+17, L2+18*
ACHSDIEN	SELDOC+3, SELDOC+4, SELDOC+6, SELDOC+7, SELDOC+22!
>> ACHSEDT	ACHSTX1R+14, L2+19
ACHSLCAT	L2+1, L2+5, L2+6, L2+7, L2+8, L2+11, L2+12, L2+20!
ACHSR	L2+1, L2+3, L2+4, L2+20!
ACHSRR	ACHSTX1R+14, L2+1, L2+4*, L2+5, L2+20!
C	SELTRANS+2~, SELTRANS+4, SELTRANS+5, SELTRANS+6
C(	SELTRANS+5*, SELTRANS+8, SELTRANS+9
D	SELDOC+2~, SELDOC+10*, SELDOC+17, SELDOC+18, SELTRANS~, SELTRANS+5, DISTRANS~, DISTRANS+1
>> DTOUT	ACHSTX1R+6, ACHSTX1R+23, L2+13, SELDOC+3, SELDOC+5, SELTRANS+7
>> DUOUT	ACHSTX1R+6, ACHSTX1R+23, L2+3, L2+13, SELDOC+3, SELDOC+5, SELTRANS+7
DUZ(2	ACHSTX1R+18, ACHSTX1R+20, L2+3, L2+4, L2+5, L2+17, L2+19, SELDOC+6, SELDOC+7, SELDOC+17 , SELTRANS+5, DISTRANS+1
IO(0	HDR+1
IOF	HDR+2
>> J	ACHSTX1R+14*
L	HELP~
>> STOP	ACHSTX1R+6, ACHSTX1R+18, ACHSTX1R+23*
T	SELDOC+2~, SELDOC+4, SELDOC+5, SELDOC+6, SELDOC+7, SELDOC+10, SELDOC+18, SELTRANS+2~, SELTRANS+4, SELTRANS+5* , DISTRANS~, DISTRANS+1
U	ACHSTX1R+20, L2+5, L2+6, L2+17, L2+19, SELDOC+6, SELDOC+7, SELDOC+17, DISTRANS+2
>> X	L2+5, L2+6, SELDOC+8, SELDOC+10*
X1	L2+5*, L2+6, L2+20!
X2	L2+5*, L2+6, L2+20!
X3	L2+5*, L2+6, L2+20!
>> Y	ACHSTX1R+4, ACHSTX1R+10, ACHSTX1R+22, ACHSTX1R+25, L2+12, L2+14, SELTRANS+5, SELTRANS+6, SELTRANS+7, SELTRANS+8 , SELTRANS+9, DISTRANS+1, DISTRANS+2

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTX1R

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items