Routine: ACHSSVRQ

Information

ACHSSVRQ ; IHS/ITSC/PMF - SELECT AND PRINT AO SPECIAL VENDOR REPORT ; [ 10/16/2001 8:16 AM ]

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC (,KILL)^%ZTLOAD ($$FMTE,$$HTE)^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	4	$$DIR^XBDIR $$C^XBFUNC VIEWR^XBLM EN^XBVK
Contract Health Management Information System	1	($$LOC,$$PB)^ACHS
VA Fileman	1	(,IX)^DIC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSAREA SP VEN REPORT

Entry Points

Name	Comments	DBIA/ICR reference
INDEX	;EP - Create print index for ^ACHSSVR & begin & end dates.
B0C	;
B1A	;
NOREPORT	; No information in ACHSAOP(DUZ(2),"SVR",ACHSEIN
INDEXC	;
PRTEND	; End printing, print totals.
ZTLOAD	;
ZEND	; Close device, kill vars, quit.
FAX	;EP - Print FAX cover sheet for vendor.
B4	;
INDEXB	;
A2	;
B0	;
B2	;
B3	;
PRINT	;EP - From TaskMan.
INDEXZ	;
PGHDR	; Print report header.

External References

Name	Field # of Occurrence
^%ZIS	B0C+5
HOME^%ZIS	ZTLOAD+5
^%ZISC	ZEND+2
^%ZTLOAD	ZTLOAD+3
KILL^%ZTLOAD	ZTLOAD+7
$$LOC^ACHS	PGHDR+3, FAX+2, FAX+14
$$PB^ACHS	B0C+1
^DIC	A2+4
IX^DIC	B4+6
$$DIR^XBDIR	B1A+1, PRTEND+5, ZEND+1, NOREPORT+3
$$C^XBFUNC	PGHDR+3, PGHDR+4, PGHDR+6, FAX+2, FAX+3, FAX+5
VIEWR^XBLM	B0C+3
EN^XBVK	B0C+3
$$FMTE^XLFDT	FAX+6
$$HTE^XLFDT	PRINT+3
$$REPEAT^XLFSTR	PRTEND+2, PGHDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"No Special Vendors have been identified",!,"in the CHS AREA OFFICE PARAMETERS file." Line Location: A2+1
Function Call: WRITE	Prompt: ! Line Location: A2+2
Function Call: WRITE	Prompt: "INVALID FACILITY CODE" Line Location: B4+7
Function Call: WRITE	Prompt: ACHSFACN,?14,$E($E(X,103,118),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: B4+11
Function Call: WRITE	Prompt: $E(X,63,64),"/",$E(X,65,66),"/",$E(X,61,62),?70 Line Location: B4+13
Function Call: WRITE	Prompt: $J(V,9,2),!," (",ACHSFAC,")",?14,"TRIBE-CD=",$E(X,151,153)," COMM-CD=",$E(X,154,160),! Line Location: B4+15
Function Call: WRITE	Prompt: ! Line Location: B4+16
Function Call: WRITE	Prompt: ?14,"<",$E(X,119,134),">",! Line Location: B4+17
Function Call: WRITE	Prompt: !! Line Location: B4+18
Function Call: WRITE	Prompt: ?14,"<",$E(X,135,150),">",!! Line Location: B4+19
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",70),!!?10,"TOTAL DOCUMENTS LISTED = ",ACHSDCNT Line Location: PRTEND+2
Function Call: WRITE	Prompt: !,"No Report available for this Vendor" Line Location: NOREPORT+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,!!!!!,$$C^XBFUNC("INDIAN HEALTH SERVICE",80),!,$$C^XBFUNC($$LOC^ACHS,80) Line Location: FAX+2
Function Call: WRITE	Prompt: !,$$C^XBFUNC($P(^AUTTLOC(DUZ(2),0),U,12),80) Line Location: FAX+3
Function Call: WRITE	Prompt: !,$$C^XBFUNC(X_", "_Z_" "_$P(^AUTTLOC(DUZ(2),0),U,15),80) Line Location: FAX+5
Function Call: WRITE	Prompt: !!!!!!?10,"DATE: ",$$FMTE^XLFDT(DT) Line Location: FAX+6
Function Call: WRITE	Prompt: !!!!?10,"DELIVER TO:",?25,$E($P(^AUTTVNDR(ACHSEINP,0),U,1),1,30) Line Location: FAX+7
Function Call: WRITE	Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,1) Line Location: FAX+8
Function Call: WRITE	Prompt: !?25,$P(^AUTTVNDR(ACHSEINP,13),U,2)," " Line Location: FAX+9
Function Call: WRITE	Prompt: Z," ",$P(^AUTTVNDR(ACHSEINP,13),U,4) Line Location: FAX+11
Function Call: WRITE	Prompt: !!!!?10,"FAX #: ",?25,$P(^AUTTVNDR(ACHSEINP,11),U,14) Line Location: FAX+12
Function Call: WRITE	Prompt: !!!!!!!?10,"FROM: ",?25,"Contract Health Services" Line Location: FAX+13
Function Call: WRITE	Prompt: !?25,$E($$LOC^ACHS,1,30) Line Location: FAX+14
Function Call: WRITE	Prompt: !!!!!!?10,"SUBJECT: ",?25,"CHS PURCHASE ORDERS" Line Location: FAX+15
Function Call: WRITE	Prompt: !! Line Location: FAX+16
Routine Call	%ZIS Line Location: ZTLOAD+5
Routine Call	DIC Line Location: A2+4
Routine Call	%ZIS Line Location: B0C+5
Routine Call	DIC Line Location: B4+6

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSAOP - [#9002079]	A2+1
^ACHSSVR(	B0+1, PRINT+4, 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+12, INDEXC+14
^AUTTLOC - [#9999999.06]	FAX+3, FAX+4, FAX+5
^AUTTVNDR - [#9999999.11]	A2+6, PGHDR+4, FAX+7, FAX+8, FAX+9, FAX+10, FAX+11, FAX+12
^DIC(4 - [#4]	B4+8
^DIC(5 - [#5]	FAX+4, FAX+10

Label References

Name	Line Occurrences
A2	B1A+2, ZTLOAD+8, B4+7, PRTEND+6, NOREPORT+4
B0C	B0C+9
B2	B3+2
B3	B4+2
B4	B4+16, B4+18, B4+20
FAX	PRINT+2
INDEX	PRINT+4
INDEXB	INDEXC+3
INDEXC	INDEXC+16
INDEXZ	INDEXB+2
NOREPORT	B0+1
PGHDR	PRINT+5, B4+9
PRINT	B0C+8
PRTEND	B2+2
ZEND	A2+1, A2+5, PRTEND+6, NOREPORT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	B0C+1, B0C+2, B0C+3, ZTLOAD+2
>> %ZIS	B0C+4*
>> A	PGHDR+5*, PGHDR+6
>> ACHSADT	INDEXC+7, INDEXC+8, INDEXC+11, INDEXC+14
>> ACHSDATE	PRINT+3*, PGHDR+7
>> ACHSDCNT	PRINT+1, B4+12, PRTEND+2
ACHSEIN	A2+6*, B0+1, PRINT+4, B2+1, B3+1, B4+1, B4+3, ZEND+3!, PGHDR+5, INDEX+2 , INDEXB+1, INDEXC+2, INDEXC+4, INDEXC+7, INDEXC+9, INDEXC+11, INDEXC+12, INDEXC+14
>> ACHSEINP	A2+6*, PGHDR+4, FAX+7, FAX+8, FAX+9, FAX+10, FAX+11, FAX+12
>> ACHSFAC	PRINT+1, B2+1, B2+2, B3+1, B4+1, B4+3, B4+5, B4+15
>> ACHSFACN	B4+8*, B4+11
ACHSFAX	B1A+1*, PRINT+2, ZEND+3!
>> ACHSI	INDEX+1*
>> ACHSIO	B0C+6*
>> ACHSIOQ	B0C+4, B0C+7, B0C+8, PRTEND+3
>> 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	PRINT+1, B3+1, B3+2, B4+1
>> ACHSPGNO	PRINT+1, PGHDR+2, PGHDR+7
>> ACHSPNAM	INDEXC+5, INDEXC+6, INDEXC+7
>> ACHSSEQ	PRINT+1, B4+1, B4+2, B4+3
>> ACHSX	B4+3, B4+10, INDEXC+4, INDEXC+5, INDEXC+7
>> B	PGHDR+5*, PGHDR+6
>> D	B4+5*
DIC	A2+3, B4+4!, B4+5
DIC(0	A2+3, B4+5
>> DIRUT	B1A+2
DT	FAX+6
>> DTOUT	A2+5, B1A+2, B0C+2
>> DUOUT	A2+5, B1A+2, B0C+2
DUZ(2	A2+1, A2+3, FAX+3, FAX+4, FAX+5
IO	B0C+6, PRTEND+1, ZEND+2, PGHDR+1, FAX+1
IO("Q"	B0C+7, ZTLOAD+4!
IO("S"	B0C+9
IO(0	B4+7, PRTEND+4, NOREPORT+1
IOF	PGHDR+3, FAX+2
ION	ZTLOAD+1
IOP	ZTLOAD+6!
IOST	B0C+9
U	A2+6, B0C+2, B4+8, PGHDR+4, PGHDR+5, FAX+3, FAX+4, FAX+5, FAX+7, FAX+8 , FAX+9, FAX+10, FAX+11, FAX+12, INDEXC+9, INDEXC+11, INDEXC+12, INDEXC+14
>> V	B4+14*, B4+15
>> X	B4+5, B4+10, B4+11, B4+13, B4+14, B4+15, B4+16, B4+17, B4+18, B4+19 , FAX+4, FAX+5, INDEXC+9, INDEXC+10, INDEXC+11, INDEXC+12, INDEXC+13*, INDEXC+14
>> Y	A2+5, A2+6, B4+7, B4+8, PRTEND+5, PRTEND+6, NOREPORT+3, NOREPORT+4, FAX+4, FAX+10
>> Z	PGHDR+5, FAX+4, FAX+5, FAX+10*, FAX+11
>> ZTDESC	ZTLOAD+1*
>> ZTIO	ZTLOAD+1*
>> ZTRTN	ZTLOAD+1*
>> ZTSAVE(	ZTLOAD+2*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSSVRQ

Information

Source Information

Call Graph

Call Graph Total: 11

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: