Routine: ACHSTX2R

Information

ACHSTX2R ; IHS/ITSC/PMF - EXPORT DATA. reexport selected documents

Package	Total	Call Graph
Contract Health Management Information System	5	$$FC^ACHS ^ACHSDOCR (EXTR4,INIT)^ACHSTX11 ^ACHSUD ^ACHSVNDR
IHS VA Utilities	2	$$DIR^XBDIR $$EXTSET^XBFUNC
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSTXX

Name	Comments	DBIA/ICR reference
SELDOC	;
DISTRANS(D,T)	;
H	;
H1	;
SELTRANS(D)	; Display trans of doc D, and allow selection.
HELP(L)	;EP - Display text at label L.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Invalid PO" Line Location: SELDOC+5
Function Call: WRITE	Prompt: !!,"The list now consists of the following transactions:" Line Location: SELDOC+21
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+26
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(ACHSDATE),?32,ACHSTY,$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+3
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+4, SELDOC+26, SELTRANS+5, DISTRANS+1
^TMP("ACHSTXAR"	ACHSTX2R+9!, ACHSTX2R+21, ACHSTX2R+22, ACHSTX2R+23, ACHSTX2R+26, ACHSTX2R+27, SELDOC+17!, SELDOC+18*, SELDOC+22, SELDOC+23 , SELDOC+24

Name	Field # of Occurrence
^(	SELTRANS+5

Name	Field # of Occurrence
>> %	ACHSTX2R+11, SELDOC+13, SELDOC+19, SELDOC+25, SELDOC+26, SELDOC+31, HELP+2*
>> ACHSCTY	ACHSTX2R+30*
>> ACHSDATE	ACHSTX2R+21, ACHSTX2R+22, ACHSTX2R+23, ACHSTX2R+26, ACHSTX2R+27, SELDOC+17, SELDOC+18, DISTRANS+2, DISTRANS+3
ACHSDIEN	ACHSTX2R+11, ACHSTX2R+13!, ACHSTX2R+22*, ACHSTX2R+23, ACHSTX2R+26, ACHSTX2R+27, SELDOC+4, SELDOC+12, SELDOC+17, SELDOC+18
>> ACHSDOCN	ACHSTX2R+27, SELDOC+6, SELDOC+18, SELDOC+24*
>> ACHSDOCR	SELDOC+4*, SELDOC+5, SELDOC+6
>> ACHSFC	SELDOC+6
>> ACHSSDI	SELDOC+19, SELDOC+22, SELDOC+23, SELDOC+24
>> ACHSTY	ACHSTX2R+23, ACHSTX2R+26, ACHSTX2R+27, ACHSTX2R+30, SELDOC+17, SELDOC+18, DISTRANS+2, DISTRANS+3
>> ACHSTYP	SELDOC+23*, SELDOC+24
C	SELTRANS+2~, SELTRANS+4, SELTRANS+5, SELTRANS+7
C(	SELTRANS+5*, SELTRANS+10, SELTRANS+11
D	ACHSTX2R+10~, SELDOC+22*, SELDOC+23, SELDOC+24, SELDOC+26, SELDOC+27, SELTRANS~, SELTRANS+5, DISTRANS~, DISTRANS+1
>> DA	ACHSTX2R+26*, ACHSTX2R+27
>> DTOUT	ACHSTX2R+11, SELDOC+13, SELTRANS+9
>> DUOUT	ACHSTX2R+11, SELDOC+13, SELTRANS+9
DUZ(2	SELDOC+4, SELDOC+26, SELTRANS+5, DISTRANS+1
L	HELP~
>> OK	ACHSTX2R+28, ACHSTX2R+29
>> STOP	ACHSTX2R+6, SELDOC+13*
T	ACHSTX2R+10~, SELDOC+12, SELDOC+13, SELDOC+17, SELDOC+18, SELDOC+23, SELDOC+24, SELDOC+27, SELTRANS+2~, SELTRANS+4 , SELTRANS+5*, DISTRANS~, DISTRANS+1
U	SELDOC+6, SELDOC+17, SELDOC+26, DISTRANS+2, DISTRANS+3
>> Y	SELTRANS+5, SELTRANS+7, SELTRANS+9, SELTRANS+10, SELTRANS+11, DISTRANS+1*, DISTRANS+2, DISTRANS+3

Name	Field # of Occurrence
$T(@L+%	HELP+2
$T(@L+%+1	HELP+2