Routine: ACHSMD2

Call Graph Total: 14

Package	Total	Call Graph
Contract Health Management Information System	8	($$AOP,$$EBB,$$HRN,$$JDT,$$LOC,$$USR,HELP,RTRN)^ACHS ARCHLIST^ACHSARCH ($$HVP,NODIR)^ACHSMD0 ^ACHSMD2D (10,CHK16)^ACHSPS16 OPENHFS^ACHSTCK1 TXLOGADD^ACHSTXUT ^ACHSVAR
IHS VA Utilities	3	$$DIR^XBDIR $$C^XBFUNC EN^XBVK
Kernel	3	^%ZIS ^%ZISC ($$FMTE,$$HTE)^XLFDT

Package

Total

Call Graph

Contract Health Management Information System

($$AOP,$$EBB,$$HRN,$$JDT,$$LOC,$$USR,HELP,RTRN)^ACHS ARCHLIST^ACHSARCH ($$HVP,NODIR)^ACHSMD0 ^ACHSMD2D (10,CHK16)^ACHSPS16 OPENHFS^ACHSTCK1 TXLOGADD^ACHSTXUT ^ACHSVAR

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC EN^XBVK

Kernel

^%ZIS ^%ZISC ($$FMTE,$$HTE)^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHS-HV-DENIAL-REPORT ACHSDEN-REPORT-HIGH-VOL-PROV

Package

Total

Caller Graph

Contract Health Management Information System

ACHS-HV-DENIAL-REPORT ACHSDEN-REPORT-HIGH-VOL-PROV

Entry Points

Name	Comments	DBIA/ICR reference
BEND	;
B10	;
B11	;
HDR2	;
HDR1	; Print header.
XXX	;
A0	;
A3	;
A5	;
A7	;
B0	;
FTR1	;
CANREQ	;
MDEL	;
FTR1A	;
A7C	;
A7B	;
A7A	;
B26	;
B25	;
B5	;
EXIT	;
B1	;
B2	;
B3	;
TXFILE	;
HELP(Z)	;EP - From DIR. Z = Number of dates to display.

External References

Name	Field # of Occurrence
^%ZIS	A7+5, A7B+2
^%ZISC	BEND+11, BEND+14
$$AOP^ACHS	A5+1, A5+2, A5+4
$$EBB^ACHS	A3+9
$$HRN^ACHS	B3+4
$$JDT^ACHS	A3+10
$$LOC^ACHS	HDR1+3
$$USR^ACHS	ACHSMD2+4, ACHSMD2+6
HELP^ACHS	ACHSMD2+5
RTRN^ACHS	CANREQ+2, HELP+4
ARCHLIST^ACHSARCH	A5+3
$$HVP^ACHSMD0	A0+8
NODIR^ACHSMD0	A5+1
^ACHSMD2D	A0+1
10^ACHSPS16	BEND+9
CHK16^ACHSPS16	A7+11
OPENHFS^ACHSTCK1	A5+5
TXLOGADD^ACHSTXUT	BEND+16
^ACHSVAR	EXIT+2
$$DIR^XBDIR	A3+3, A3+7, TXFILE+2, TXFILE+8, A7+14, BEND+20
$$C^XBFUNC	HDR1+3, HDR1+5
EN^XBVK	EXIT+2
$$FMTE^XLFDT	HDR1+5, HELP+4
$$HTE^XLFDT	A7+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Hello, ",$P($$USR^ACHS,",",2),"." Line Location: ACHSMD2+4
Function Call: WRITE	Prompt: !!,"GOOD LUCK, ",$P($$USR^ACHS,",",2),"!" Line Location: ACHSMD2+6
Function Call: WRITE	Prompt: !!,*7,?5,"No High Volume Providers have been Identified for this Facility" Line Location: A0+5
Function Call: WRITE	Prompt: !!,*7,"No Vendors Selected" Line Location: A0+10
Function Call: WRITE	Prompt: !!,*7,?5,"No Documents (Orders) Available to Print on this Date" Line Location: A3+5
Function Call: WRITE	Prompt: ! Line Location: A7+2
Function Call: WRITE	Prompt: !!,*7,"Device Right Margin < 132 Char -- Select another Device" Line Location: A7+9
Function Call: WRITE	Prompt: !!?10,"Your Request is now being Processed",! Line Location: A7A+2
Function Call: WRITE	Prompt: !!,"Device Unavailable" Line Location: A7B+3
Function Call: WRITE	Prompt: @ACHS("PRINT",16) Line Location: A7C+1
Function Call: WRITE	Prompt: $J($$HRN^ACHS(DFN,ACHSFAC),6),?7,$E($P($G(^DPT(DFN,0)),U),1,29) Line Location: B3+4
Function Call: WRITE	Prompt: ?38,$E(X,4,5),"-",$E(X,6,7),"-",$E(X,2,3),?49,$P($G(^DPT(DFN,0)),U,2),?53,$P(^AUTTTRI($P($G(^AUPNPAT(DFN,11),"UNDEFINED"),U,8),0),U,2) Line Location: B3+6
Function Call: WRITE	Prompt: ?7,$E(ACHSNAME,1,50) Line Location: B5+2
Function Call: WRITE	Prompt: ?58,$S(X=1:"1A",X=2:"1B",X=3:"1C",X=4:"1D",1:"??") Line Location: B10+2
Function Call: WRITE	Prompt: ?63,$P($G(^ACHSDEN(ACHSZRR,100)),U,10) Line Location: XXX+1
Function Call: WRITE	Prompt: ?66,$E(Y,1,25),?93,$J($P(ACHSX,U),14) Line Location: B11+2
Function Call: WRITE	Prompt: ?109,$J(X,10,2) Line Location: B11+5
Function Call: WRITE	Prompt: ?121,$E(X,1,7) Line Location: B11+11
Function Call: WRITE	Prompt: ?129,$E(X,1,2) Line Location: B11+13
Function Call: WRITE	Prompt: ! Line Location: B25+1
Function Call: WRITE	Prompt: !! Line Location: BEND+7
Function Call: WRITE	Prompt: !! Line Location: BEND+8
Function Call: WRITE	Prompt: *7,!,"Entry NOT Successfully Posted to Data Tranmission Log - Notify Supervisor",! Line Location: BEND+19
Function Call: WRITE	Prompt: !!?20,"Request Cancelled" Line Location: CANREQ+1
Function Call: WRITE	Prompt: @IOF,$$C^XBFUNC("HIGH VOLUME PROVIDER DENIAL LISTING FOR: "_$$LOC^ACHS,132) Line Location: HDR1+3
Function Call: WRITE	Prompt: !?2,ACHSRDT,?132-$L(X)/2,X,?122,"Page ",ACHSPGNO,!,$$C^XBFUNC("DATE OF SERVICE: "_$$FMTE^XLFDT(ACHSRDAT),132),!! Line Location: HDR1+5
Function Call: WRITE	Prompt: "IHS #",?16,"PATIENT NAME",?40,"DOB",?48,"SEX",?53,"TRB",?58,"MP",?62,"TS",?66,"REASON FOR DENIAL",?93,"DENIAL NUMB",?109,"EST. COST",?121,"ACCT NO",?129,"FC",! Line Location: HDR2+2
Function Call: WRITE	Prompt: "------",?7,"----------------------------",?38,"--------",?48,"---",?53,"---",?58,"--",?62,"--",?66,"-------------------------",?93,"--------------",?109,"----------",?121,"-------",?129,"--",! Line Location: HDR2+3
Function Call: WRITE	Prompt: !?40,"NO ITEMS (THIS PAGE): ",$J(ACHSPNOT,3),?69,"SUB-TOTAL (THIS PAGE) ",?104,$J(ACHSPTOT,15,2) Line Location: FTR1+1
Function Call: WRITE	Prompt: !?7,"TOTAL PAGES IN REPORT: ",$J(ACHSPGNO,3),?40,"NUMBER OF ITEMS (ALL PAGES): ",$J(ACHSGNOT,5),?77,"GRAND TOTAL (ALL PAGES) ",?104,$J(ACHSGTOT,15,2) Line Location: FTR1+2
Function Call: WRITE	Prompt: !!," Date: _____________",?25,"Authorized Facility Signature:",?60,"______________________________",!! Line Location: FTR1A+1
Function Call: WRITE	Prompt: !!,"Recent MDEL dates:" Line Location: HELP+3
Routine Call	%ZIS Line Location: A7+5 A7B+2

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	A0+1, B1+4, B1+7, B5+1, B10+1, XXX+1, B11+1, B11+3, B11+6, B11+8
^ACHSDEN("ES"	A3+5, B0+1, B1+1, HELP+4
^ACHSDENS - [#9002073]	B11+1
^ACHSF - [#9002080]	A0+5
^AFSTXLOG(	TXFILE+6
^AUPNPAT - [#9000001]	B3+6
^AUTTTRI - [#9999999.03]	B3+6
^AUTTVNDR - [#9999999.11]	HDR1+4
^DIC(5 - [#5]	B5+1
^DPT - [#2]	B3+4, B3+5, B3+6

Label References

Name	Line Occurrences
A0	ACHSMD2+3, A7+12, A7+14
A3	A3+5, A3+9, TXFILE+3
A5	TXFILE+6
A7	TXFILE+4, A7+9
A7A	A7+13
B0	B1+2
B1	B1+5, B1+6, B1+8, B26+2, B26+3
B10	B3+7
B2	B26+5
B25	B11+6, B11+9
B26	B25+2
B3	B1+9
B5	B3+3
BEND	B0+2
CANREQ	A0+5, A0+9, A0+10, A3+4, A3+8, A5+1, A7+7, A7+14, A7B+3
EXIT	BEND+12, BEND+17, BEND+21
FTR1	B26+1, BEND+2, BEND+3, BEND+6, BEND+8
FTR1A	B26+1, BEND+6, BEND+8
HDR1	A7C+4, A7C+5, B26+1
HDR2	A7C+4, A7C+5, B26+1
HELP	A3+1
TXFILE	TXFILE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	A7+3!, A7+4*, A7+6!
%ZIS("A"	A7+4*
>> ACHS	B11+7, B11+8, B11+9
>> ACHS("PRINT"	A7+13, A7C+1, BEND+9
>> ACHSEDAT	A3+7*, A3+9, B0+2
>> ACHSEXFS	BEND+15*
>> ACHSF	B11+8*
>> ACHSFAC	B3+2*, B3+4
>> ACHSGNOT	A0+2, B25+3, FTR1+2
>> ACHSGTOT	A0+2, B11+4, FTR1+2
>> ACHSHFS1	A5+6*, A7C+5, B2+1, B26+4, BEND+3, BEND+8, BEND+13
>> ACHSHVAB	A0+11*, TXFILE+5, A5+2, A5+4, BEND+15
>> ACHSIODV	A7C+2, A7C+5, B2+1, B3+1, B26+2, B26+4*, HDR1+2, HDR2+1
>> ACHSJDAT	A3+10*, TXFILE+5, A5+4, BEND+15
>> ACHSLC	A0+2, B25+3, B26+1
>> ACHSNAME	B5+1*, B5+2
>> ACHSPASS	A7C+2, A7C+5, B2+1*, B11+4, B25+2, B26+2, HDR1+1
>> ACHSPGNO	A0+2, HDR1+1, HDR1+5, FTR1+2
>> ACHSPNOT	A0+2, B25+3, HDR1+1*, FTR1+1
>> ACHSPTOT	A0+2, B11+4, HDR1+1*, FTR1+1
>> ACHSPTR	A7+10*, A7C+1, A7C+2, A7C+5, B26+2, BEND+1, BEND+5, BEND+9, BEND+10
>> ACHSPTRN	A7+8*, A7B+1
ACHSQUIT	HELP+4, HELP+5!
>> ACHSRDAT	A3+3*, A3+5, A3+9, A3+10, A7C+6, HDR1+5
>> ACHSRDT	A7+10*, HDR1+5
>> ACHSTFLG	A0+2, BEND+4, FTR1+1, FTR1+2
>> ACHSTXF	TXFILE+1, TXFILE+5, A7C+5, B26+3, BEND+3, BEND+8, BEND+12
>> ACHSVPTR	A0+11*, B1+6, HDR1+4
>> ACHSX	B1+7*, B1+8, B3+2, B11+2
>> ACHSY	B5+1*, BEND+17
>> ACHSZDEV	A5+6
>> ACHSZDIR	A5+2*
>> ACHSZFN	A5+2, A5+4
>> ACHSZIN	A5+4*
>> ACHSZOPT	A5+2*
>> ACHSZR	A7C+6, B0+1, B0+2, B1+1
>> ACHSZRR	B0+3, B1+1, B1+2, B1+4, B1+7, B5+1, B10+1, XXX+1, B11+1, B11+3 , B11+6, B11+8
DFN	B3+2*, B3+3, B3+4, B3+5, B3+6, EXIT+1!
DIC	EXIT+1!
DIR	EXIT+1!
DT	ACHSMD2+3
>> DTOUT	A0+9, A3+4, A3+8, TXFILE+3, TXFILE+9
>> DUOUT	A0+9, A3+4, A3+8, TXFILE+3, TXFILE+9, A7+12
DUZ(2	A0+1, A0+5, TXFILE+6
IO	A7+10, BEND+10, BEND+13
IO(0	TXFILE+7, A7+1, A7A+1, A7B+3, BEND+18
IOF	HDR1+3
IOM	A7+9
ION	A7+8
>> IOP	A7B+1*
>> POP	A7+7, A7B+3
U	A0+11, B1+4, B3+2, B3+4, B3+5, B3+6, B5+1, B10+1, XXX+1, B11+1 , B11+2, B11+3, HDR1+4
X	TXFILE+5, TXFILE+6, B1+3, B1+4, B1+5, B1+6, B3+5, B3+6, B5+1, B10+1 , B10+2, B11+1, B11+3, B11+4, B11+5, B11+7, B11+8, B11+10, B11+11, B11+12 , B11+13, HDR1+4, HDR1+5, HELP+1~, HELP+2, HELP+4*
Y	A0+8, A0+10, A0+11, TXFILE+2, TXFILE+4, TXFILE+8, TXFILE+9, B5+1, B11+1, B11+2 , B11+7, B11+8, B11+10, B11+12, HELP+1~, HELP+2, HELP+4*
Z	HELP~, HELP+4

Customize PDF page

Package: Contract Health Management Information System