Routine: ACHSHVT0

Package	Total	Call Graph
Contract Health Management Information System	6	($$AOP,$$GDT,$$JTF)^ACHS ARCHLIST^ACHSARCH $$TERMINAL^ACHSHCMD ERROR^ACHSTCK1 ^ACHSTUT2 ^ACHSVAR
Kernel	3	^%ZISC ($$DEL,$$OPEN)^%ZISH $$REPEAT^XLFSTR
IHS VA Utilities	2	$$DIR^XBDIR EN^XBVK

Package

Total

Call Graph

Contract Health Management Information System

($$AOP,$$GDT,$$JTF)^ACHS ARCHLIST^ACHSARCH $$TERMINAL^ACHSHCMD ERROR^ACHSTCK1 ^ACHSTUT2 ^ACHSVAR

Kernel

^%ZISC ($$DEL,$$OPEN)^%ZISH $$REPEAT^XLFSTR

IHS VA Utilities

$$DIR^XBDIR EN^XBVK

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHS-HV-MDOL ACHS-HV-MDOL-TX

Package

Total

Caller Graph

Contract Health Management Information System

ACHS-HV-MDOL ACHS-HV-MDOL-TX

Name	Comments	DBIA/ICR reference
A15	;
A13	;
A16	;
A11	;
A10	;
TXOK	;
TXGEN	;
B3	;
EXIT	;
SUBA11	;
A1	;
A0	;
A5	;
ABEND	;
A6	;
A8	;
A12	;
B2A	;

External References

Name	Field # of Occurrence
^%ZISC	TXGEN+15, B2A+8
$$DEL^%ZISH	TXGEN+3, TXGEN+16
$$OPEN^%ZISH	TXGEN+5, TXGEN+18
$$AOP^ACHS	A0+1, B2A+4
$$GDT^ACHS	A1+4, TXGEN+11
$$JTF^ACHS	A1+4
ARCHLIST^ACHSARCH	A0+2
$$TERMINAL^ACHSHCMD	B3+5
ERROR^ACHSTCK1	TXGEN+5, TXGEN+18
^ACHSTUT2	ACHSHVT0+6
^ACHSVAR	EXIT+1
$$DIR^XBDIR	A5+5, A10+2, A15+3, A16+8, ABEND+2
EN^XBVK	EXIT+1
$$REPEAT^XLFSTR	A11+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,?10,"UNIX 3780 PORT NOT DEFINED FOR THIS FACILITY - CONTACT SITE MANAGER" Line Location: ACHSHVT0+3
Function Call: WRITE	Prompt: !!?10,"No High Volume Provider Reports Available for Transmission",!! Line Location: A5+4
Function Call: WRITE	Prompt: !,"High Volume Provider Reports Exist for the Following Facilities/Vendors: ",! Line Location: A6+2
Function Call: WRITE	Prompt: !?10,$J(ACHSCT,3)," ",ACHSFN Line Location: A8+4
Function Call: WRITE	Prompt: !!,"The Reports Selected Above will Now be Transmitted" Line Location: A16+7
Function Call: WRITE	Prompt: ! Line Location: TXGEN+2
Function Call: WRITE	Prompt: ACHSTLST(ACHSI)," " Line Location: TXGEN+9
Function Call: WRITE	Prompt: $$GDT^ACHS(X)," " Line Location: TXGEN+11
Function Call: WRITE	Prompt: $S(X=0:"MDO",X=2:"DEN",1:" "),! Line Location: TXGEN+13
Function Call: WRITE	Prompt: "AN 90",!,"branch not OK to 500",!,"te /usr/spool/3780/achshv.txname",!,"branch not NRMEOF to 200",! Line Location: B2A+3
Function Call: WRITE	Prompt: "te "_$$AOP^ACHS(2,1)_ACHSTLST(I),!,"branch not NRMEOF TO 200",! Line Location: B2A+4
Function Call: WRITE	Prompt: "vo",!,"qu",!,"200 vo",!,"qu 18",!,"500 vo",!,"qu 20",! Line Location: B2A+5
Function Call: WRITE	Prompt: !!,*7,?10,"3780 TRANSMISSION FAILURE -- CONTACT SITE MANAGER" Line Location: B3+10
Function Call: WRITE	Prompt: !!,*7,?10,"Auto-Answer Timeout Limit Reached - Transmission not Completed." Line Location: B3+11
Function Call: WRITE	Prompt: !!?10,"Transmission Successful" Line Location: TXOK+2
Function Call: WRITE	Prompt: !!?10,"The Following Reports Are Available for Transmission to",!?25,$P(^AUTTVNDR(ACHSVPTR,0),U,1),!,$$REPEAT^XLFSTR("-",70),!,"Report #",?10,"Report Type",?30,"Report Date",?50,"File Name",?67,"TX",!,$$REPEAT^XLFSTR("-",70) Line Location: A11+3
Function Call: WRITE	Prompt: !?5,ACHSCT,?10,ACHSRTYP,?30,$P(ACHSFILE("N",ACHSV,ACHSR,X),U,2),?50,$P(ACHSFILE("N",ACHSV,ACHSR,X),U,1),?68,$P(ACHSTXFN(ACHSCT),U,2) Line Location: A12+4

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A8+3
^ACHSF("HVEA"	A8+3
^AUTTTEL - [#9999999.71]	ACHSHVT0+3, ACHSHVT0+4
^AUTTVNDR - [#9999999.11]	A8+3, A11+3

Name	Line Occurrences
A1	A1+6
A10	A8+2
A12	A12+5
A13	A12+2
A5	A1+2
A6	A5+3, A16+10
A8	A8+5
ABEND	ACHSHVT0+3, TXGEN+5, TXGEN+18, B3+10, B3+11, TXOK+3
EXIT	A5+6, A10+3, A16+9, ABEND+3
SUBA11	A15+1, A16+5
TXOK	B3+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHSCT	A5+1, A8+3, A8+4, A10+2, A15+3, A16+1, A16+4, A11+1, A12+3, A12+4
>> ACHSEMSG	TXGEN+5, TXGEN+18
>> ACHSFILE(	A1+1, A1+3
>> ACHSFILE("N"	A0+3!, A1+5*, A5+3, A8+1, A12+1, A12+3, A12+4
>> ACHSFN	A8+3*, A8+4
>> ACHSHCMD	B3+1*, B3+5
>> ACHSHFS1	TXGEN+6, TXGEN+7, TXGEN+15, TXGEN+19, B2A+2, B2A+7
>> ACHSI	TXGEN+8*, TXGEN+9, TXGEN+10, TXGEN+12
>> ACHSJ	A16+3, A16+4, TXGEN+8, B2A+4
>> ACHSN	A1+3*, A1+4, A1+5
>> ACHSN1	A1+3, A1+5, A8+3
>> ACHSR	A0+4, A1+1, A1+2, A1+3, A1+5, A5+1, A8+1, A8+2, A8+3, A11+1* , A12+1*, A12+2, A12+3, A12+4
>> ACHSRTCD	B3+5*, B3+7, B3+10, B3+11
>> ACHSRTYP	A12+3*, A12+4
>> ACHSRXX	A12+3*
ACHSTLST	A16+2!
ACHSTLST(	A16+4*, TXGEN+9, TXGEN+10, TXGEN+12, B2A+4
>> ACHSTTY	ACHSHVT0+4, ACHSHVT0+5, B3+1
ACHSTXFN	A10+5!
ACHSTXFN(	A16+1, A16+4, A12+3, A12+4
>> ACHSV	A10+4*, A12+1, A12+3, A12+4
ACHSVAB	A5+2!
ACHSVAB(	A8+3*, A10+4
>> ACHSVPTR	A8+3*, A11+3
>> ACHSX	TXGEN+6, B2A+1
>> ACHSXX	A1+5*
>> ACHSZFN	A0+1, TXGEN+4, TXGEN+17*
>> ACHSZOPT	A0+1*
DIC	EXIT+2!
DIR	EXIT+2!
>> DTOUT	A10+3, A16+9
>> DUOUT	A10+3, A16+9
DUZ(2	ACHSHVT0+3, ACHSHVT0+4
I	A16+1, A16+4, B2A+4*, EXIT+2!
IO	TXGEN+6, TXGEN+15, TXGEN+19, B2A+7
IO(0	ACHSHVT0+3, A6+1, A10+1, A15+2, A16+6, TXGEN+1, B3+10, B3+11, TXOK+1, ABEND+1 , A11+2
>> IONOFF	TXGEN+15, B2A+7
U	ACHSHVT0+4, A1+3, A1+5, A8+3, A16+1, A16+4, A11+3, A12+3, A12+4
X	A1+4, A1+5, A8+3, TXGEN+10, TXGEN+11, TXGEN+12, TXGEN+13, EXIT+2!, A12+3*, A12+4
Y	A1+4, A1+5, A8+3, A10+2, A10+4, A15+3, A16+1, A16+8*, A16+10, EXIT+2!
Z	A8+3, A16+1, EXIT+2!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSHVT0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: