Routine: ACHSSVRP

Package	Total	Call Graph
Kernel	3	^%ZISC ($$FMTE,$$HTE)^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	1	$$LOC^ACHS
IHS VA Utilities	1	$$C^XBFUNC
VA Fileman	1	IX^DIC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSACOA

Entry Points

Name	Comments	DBIA/ICR reference
INDEX	; Create print index for ^ACHSSVR & Begin & End date.
FAX	; Print FAX cover sheet for vendor.
PRTEND	; Print totals.
INDEXB	;
INDEXC	;
ZEND	;
B4	;
B5	;
B1	;
B2	;
B3	;
INDEXZ	;
PGHDR	;
ZENDA	;

External References

Name	Field # of Occurrence
^%ZISC	ZEND+1
$$LOC^ACHS	PGHDR+3, FAX+5, FAX+17
IX^DIC	B1+4, B4+6
$$C^XBFUNC	PGHDR+3, PGHDR+4, PGHDR+6, FAX+4, FAX+5, FAX+6, FAX+8
$$FMTE^XLFDT	FAX+9
$$HTE^XLFDT	ACHSSVRP+4
$$REPEAT^XLFSTR	PRTEND+2, PGHDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "VENDOR LOOKUP ERROR FOR EIN # ",ACHSEIN Line Location: B1+5
Function Call: WRITE	Prompt: "INVALID FACILITY CODE" Line Location: B4+7
Function Call: WRITE	Prompt: ACHSFACN,?14,$E($E(X,103,122),1,16),?32,$E(X,4,4),"-",$E(X,5,7),"-",$E(X,8,12),?45,$E(X,13,14),"-",$E(X,67,67),?51,$E(X,34,39),?59 Line Location: B5+3
Function Call: WRITE	Prompt: $E(X,63,64),"/",$E(X,65,66),"/",$E(X,61,62),?70 Line Location: B5+5
Function Call: WRITE	Prompt: $J(V,9,2),!?14,"TRIBE-CD=",$E(X,151,153)," COMM-CD=",$E(X,154,160),! Line Location: B5+7
Function Call: WRITE	Prompt: ! Line Location: B5+8
Function Call: WRITE	Prompt: ?14,"<",$E(X,119,134),">",! Line Location: B5+9
Function Call: WRITE	Prompt: !! Line Location: B5+10
Function Call: WRITE	Prompt: ?14,"<",$E(X,135,150),">",!! Line Location: B5+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",70),!!?10,"TOTAL DOCUMENTS LISTED = ",ACHSDCNT Line Location: PRTEND+2
Function Call: WRITE	Prompt: @IOF,$$C^XBFUNC("CHS AUTHORIZATIONS FROM "_$$LOC^ACHS_" FACILITIES",80) Line Location: PGHDR+3
Function Call: WRITE	Prompt: !,$$C^XBFUNC("FOR "_$P($G(^AUTTVNDR(ACHSEINP,0)),U),80) Line Location: PGHDR+4
Function Call: WRITE	Prompt: !,$$C^XBFUNC("FOR AUTHORIZATIONS ISSUED BETWEEN "_A_" AND "_B,80) Line Location: PGHDR+6
Function Call: WRITE	Prompt: !,ACHSDATE,?70,"PAGE ",ACHSPGNO,!!!,$$REPEAT^XLFSTR("-",80),!,"LOCATION",?14,"PATIENT NAME",?32,"DOCUMENT #",?45,"TYPE",?51,"IHS #",?59,"AUTH DTE",?70,"$$ AMOUNT",!,$$REPEAT^XLFSTR("-",80),! Line Location: PGHDR+7
Function Call: WRITE	Prompt: @IOF Line Location: FAX+2
Function Call: WRITE	Prompt: ! Line Location: FAX+3
Function Call: WRITE	Prompt: $$C^XBFUNC("INDIAN HEALTH SERVICE",80) Line Location: FAX+4
Function Call: WRITE	Prompt: !,$$C^XBFUNC($$LOC^ACHS,80) Line Location: FAX+5
Function Call: WRITE	Prompt: !,$$C^XBFUNC($P(^AUTTLOC(DUZ(2),0),U,12),80) Line Location: FAX+6
Function Call: WRITE	Prompt: !,$$C^XBFUNC(X_", "_Z_" "_$P(^AUTTLOC(DUZ(2),0),U,15),80) Line Location: FAX+8
Function Call: WRITE	Prompt: !!!!!!?10,"DATE: ",$$FMTE^XLFDT(DT) Line Location: FAX+9
Function Call: WRITE	Prompt: !!!!?10,"DELIVER TO:",?25,$E($P(^AUTTVNDR(ACHSEINP,0),U,1),1,30) Line Location: FAX+10
Function Call: WRITE	Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,1) Line Location: FAX+11
Function Call: WRITE	Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,2)," " Line Location: FAX+12
Function Call: WRITE	Prompt: Z," ",$P(^AUTTVNDR(ACHSEINP,13),U,4) Line Location: FAX+14
Function Call: WRITE	Prompt: !!!!?10,"FAX #: ",?25,$P(^AUTTVNDR(ACHSEINP,11),U,14) Line Location: FAX+15
Function Call: WRITE	Prompt: !!!!!!!?10,"FROM: ",?25,"Contract Health Services" Line Location: FAX+16
Function Call: WRITE	Prompt: !?25,$E($$LOC^ACHS,1,30) Line Location: FAX+17
Function Call: WRITE	Prompt: !!!!!!?10,"SUBJECT: ",?25,"CHS PURCHASE ORDERS" Line Location: FAX+18
Function Call: WRITE	Prompt: !! Line Location: FAX+19
Routine Call	DIC Line Location: B1+4 B4+6

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACHSSVR(	B1+1, B1+7, B2+1, B3+1, B4+1, B4+3, PGHDR+5, INDEX+2, INDEXB+1, INDEXC+2 , INDEXC+4, INDEXC+7, INDEXC+9, INDEXC+11, INDEXC+13
^AUTTLOC - [#9999999.06]	FAX+6, FAX+7, FAX+8
^AUTTVNDR - [#9999999.11]	PGHDR+4, FAX+10, FAX+11, FAX+12, FAX+13, FAX+14, FAX+15
^DIC(4 - [#4]	B4+8
^DIC(5 - [#5]	FAX+7, FAX+13

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	PGHDR+5*, PGHDR+6
>> ACHSADT	INDEXC+7, INDEXC+8, INDEXC+11, INDEXC+13
>> ACHSDATE	ACHSSVRP+4*, PGHDR+7
>> ACHSDCNT	ACHSSVRP+3, B5+4, PRTEND+2
ACHSEIN	ACHSSVRP+3, B1+1, B1+2, B1+3, B1+5, B1+7, B2+1, B3+1, B4+1, B4+3 , ZENDA+1!, PGHDR+5, INDEX+2, INDEXB+1, INDEXC+2, INDEXC+4, INDEXC+7, INDEXC+9, INDEXC+11, INDEXC+13
>> ACHSEINP	B1+6*, PGHDR+4, FAX+10, FAX+11, FAX+12, FAX+13, FAX+14, FAX+15
>> ACHSFAC	ACHSSVRP+3, B1+9, B2+1*, B2+2, B3+1, B4+1, B4+3, B4+5
>> ACHSFACN	B4+7, B4+8, B5+3
>> ACHSI	INDEX+1*
>> ACHSJ	INDEX+1, INDEXB+1, INDEXB+2, INDEXC+2, INDEXC+4, INDEXC+7
>> ACHSK	INDEX+1, INDEXC+2, INDEXC+3, INDEXC+4, INDEXC+7
>> ACHSNMS	ACHSSVRP+3, B2+3, B3+1*, B3+2, B4+1
>> ACHSPGNO	ACHSSVRP+3, PGHDR+2, PGHDR+7
>> ACHSPNAM	INDEXC+5, INDEXC+6, INDEXC+7
>> ACHSPTR	PRTEND+1, PGHDR+1, FAX+1
>> ACHSSEQ	ACHSSVRP+3, B3+3, B4+1*, B4+2, B4+3
>> ACHSX	B4+3, B5+2, INDEXC+4, INDEXC+5, INDEXC+7
>> B	PGHDR+5*, PGHDR+6
>> D	B1+3, B4+5
DIC	B1+3, B4+4!, B4+5
DIC(0	B1+3, B4+5
DT	FAX+9
DUZ(2	FAX+6, FAX+7, FAX+8
>> I	FAX+3*
IO	B1+5, B4+7, ZEND+1
IO(0	B1+5, B4+7
IOF	PGHDR+3, FAX+2
U	B4+8, PGHDR+4, PGHDR+5, FAX+6, FAX+7, FAX+8, FAX+10, FAX+11, FAX+12, FAX+13 , FAX+14, FAX+15, INDEXC+9, INDEXC+11, INDEXC+13
>> V	B5+6*, B5+7
X	B1+3, B4+5, B5+2, B5+3, B5+5, B5+6, B5+7, B5+8, B5+9, B5+10 , B5+11, ZENDA+1!, FAX+7, FAX+8, INDEXC+9, INDEXC+10, INDEXC+11, INDEXC+12*, INDEXC+13
Y	B1+5, B1+6, B4+7, B4+8, ZENDA+1!, FAX+7, FAX+13
>> Z	PGHDR+5, FAX+7, FAX+8, FAX+13*, FAX+14

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSSVRP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
B1	B1+5, B2+2
B2	B3+2
B3	B4+2
B4	B5+8, B5+10, B5+12
B5	B4+7
FAX	B1+8
INDEX	B1+7
INDEXB	INDEXC+3
INDEXC	INDEXC+15
INDEXZ	INDEXB+2
PGHDR	B1+8, B5+1
PRTEND	B1+2