Routine: ACHSRELG

Information

ACHSRELG ;IHS/OIT/FCJ - Eligibility population Report by Tribe and FY

Source Information

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	4	($$FYSEL,$$PB,RTRN)^ACHS (BRPT,SLV)^ACHSFU FC^ACHSUF ^ACHSVAR
IHS VA Utilities	3	$$C^XBFUNC VIEWR^XBLM EN^XBVK
VA Fileman	2	^DIC ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSRPT ELG

Entry Points

Name	Comments	DBIA/ICR reference
SET	;SET THE DATA FOR ELIG PATIENT
HDR	; Paginate.
FY	; Select FY.
SUM	;SUMMARY REPORT
TRB	;Tribal CHSDA
DET	;DETAILED REPORT
HDRD	;DETAILED HEADING
DEV	; Select device for report.
ST	;
A1	;EP - TaskMan.
EXT	; Kill vars, close device, quit.
TOT	;TOTALS
HDRD1	;
PRINT	;
TYPE	; TYPE OF REPORT SUMARRY OR DETAILED ; Enter Summary or Detail
REG	;CHECK PAT FOR CURRENT COM
CNTY	;SET COUNTY AND COMMUNITY CODES IN TMP GLB
FYDT	;BEG AND END DATES FOR THE FY, DOS >ACHSBFY OR <ACHSEFY

External References

Name	Field # of Occurrence
^%ZIS	DEV+6
HOME^%ZIS	DEV+8
^%ZISC	EXT+2
^%ZTLOAD	DEV+14
$$FYSEL^ACHS	FY+1
$$PB^ACHS	DEV+1
RTRN^ACHS	DET+9, DET+12, SUM+6, SUM+11, TOT+2
BRPT^ACHSFU	PRINT+4
SLV^ACHSFU	DEV+6
FC^ACHSUF	A1+1
^ACHSVAR	EXT+3
^DIC	TRB+5
^DIR	TYPE+4
$$C^XBFUNC	PRINT+1, PRINT+2, PRINT+3
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3, EXT+3
$$FMTE^XLFDT	DEV+12
$$REPEAT^XLFSTR	DET+11, HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is a CHS population report based on Tribal CHSDA," Line Location: ST+2
Function Call: WRITE	Prompt: !,"community of residence and Fiscal Year." Line Location: ST+3
Function Call: WRITE	Prompt: !,"The CHS Service Delivery Area is entered by county," Line Location: ST+4
Function Call: WRITE	Prompt: !,"then checked against the patient's community of residence." Line Location: ST+5
Function Call: WRITE	Prompt: !!,"NOTE: If all counties are not listed for selected Tribal CHSDA" Line Location: ST+6
Function Call: WRITE	Prompt: !,"use the option SDA Enter/Edit Tribal CHSDA to update counties" Line Location: ST+7
Function Call: WRITE	Prompt: !!,*7,"Fiscal year '",ACHSACFY,"' does not exist. -- TRY AGAIN" Line Location: FY+3
Function Call: WRITE	Prompt: ! Line Location: TRB+2
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: DEV+8
Function Call: WRITE	Prompt: *7,!,"Please queue to printers only." Line Location: DEV+11
Function Call: WRITE	Prompt: "." Line Location: REG+5
Function Call: WRITE	Prompt: ! Line Location: SUM+7
Function Call: WRITE	Prompt: @IOF,!!?19,"* CONTRACT HEALTH MANAGEMENT SYSTEM *",!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHSLOC,!,ACHST1,!,ACHST2,!,ACHSTIME,!,ACHST3 Line Location: HDR+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+5
Function Call: WRITE	Prompt: "CHSDA-County: ",$P(^AUTTCTY(ACHSCTY,0),U) Line Location: HDRD+1
Function Call: WRITE	Prompt: !!,"Tribe of Enrollment: ",ACHSTRB Line Location: HDRD1+1
Function Call: WRITE	Prompt: !,"Patient Name",?48,"Community" Line Location: HDRD1+2
Function Call: WRITE	Prompt: !!,"Total CHS Delivery Area = ",$J(^TMP("ACHSRELG",$J,"TOTELG"),10) Line Location: TOT+1
Routine Call	%ZIS Line Location: DEV+8
Routine Call	DIC Line Location: TRB+5
Routine Call	DIR Line Location: TYPE+4
Routine Call	%ZIS Line Location: DEV+6

FileNo	Call Tags
^ACHSSDA - [#9002073.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	FY+3
^ACHSF - [#9002080]	FYDT+1, FYDT+2
^ACHSSDA - [#9002073.3]	A1+5, CNTY+2, CNTY+3
^AUPNPAT - [#9000001]	REG+4, REG+7, REG+8, REG+13, REG+17, REG+18, REG+20, REG+23
^AUTTCOM - [#9999999.05]	SET+7
^AUTTCOM("C"	CNTY+6, CNTY+8
^AUTTCTY - [#9999999.23]	CNTY+3, SUM+5, HDRD+1
^AUTTCTY("C"	DET+3, SUM+4
^AUTTTRI - [#9999999.03]	A1+5, SET+7, SUM+10
^AUTTTRI("C"	REG+2
^DPT - [#2]	REG+11, SET+7
^TMP("ACHSRELG"	A1+3!, A1+4, CNTY+4, CNTY+7, CNTY+9, REG+15, REG+21, REG+22, EXT+4!, SET+2 , SET+3, SET+4, SET+5, SET+7, SET+8, SET+9, DET+2, DET+4, DET+6, DET+7 , DET+8, DET+11, SUM+3, SUM+5, SUM+9, SUM+10, TOT+1

Label References

Name	Line Occurrences
A1	DEV+9
DET	PRINT+6
DEV	DEV+11, DEV+15
EXT	FY+2, TYPE+5, DEV+2, DEV+3, DEV+8, A1+2, PRINT+6, PRINT+8
FY	FY+3, TRB+6
HDR	PRINT+6, PRINT+7, DET+9, DET+12, SUM+6, SUM+11
HDRD	DET+3, DET+9, DET+12
HDRD1	DET+5, DET+9, DET+12
PRINT	REG+25
SET	REG+15, REG+21, REG+23, REG+24
SUM	PRINT+7
TOT	PRINT+6, PRINT+7

Name	Field # of Occurrence
^(11	REG+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1, DEV+2, DEV+3, DEV+13
%ZIS	DEV+4!, DEV+5*, DEV+7!
>> ACHSACFY	FY+1*, FY+3, FYDT+1, FYDT+2, PRINT+3
>> ACHSBDT	DEV+12
>> ACHSBFY	FYDT+1, FYDT+2, REG+11, REG+21, REG+22, REG+24
>> ACHSBM	DET+9, DET+12, SUM+6, SUM+11
>> ACHSCCDT	REG+13*, REG+15
>> ACHSCNTY	CNTY+1, CNTY+2, CNTY+3
>> ACHSCOM	CNTY+5, CNTY+6, CNTY+7, CNTY+8, CNTY+9, SET+2*, SET+3
>> ACHSCOMP	CNTY+8, CNTY+9, REG+13, REG+14, REG+15, REG+20*, REG+21, REG+22, SET+2, SET+7
>> ACHSCOMT	CNTY+5*, CNTY+6
>> ACHSCST	CNTY+3, CNTY+4, CNTY+5, CNTY+7, SET+2, SET+3, SET+4, SET+7, DET+1, DET+2 , DET+3, DET+4, DET+6, DET+7, DET+8, DET+11, SUM+2, SUM+3, SUM+4, SUM+5
>> ACHSCT	REG+3, REG+5
>> ACHSCTY	DET+3, SUM+4, SUM+5, HDRD+1
>> ACHSEDT	DEV+12
>> ACHSEFY	FYDT+1, FYDT+2, REG+15, REG+19, REG+21, REG+24
>> ACHSERR	A1+2
>> ACHSIEN	DET+7*, DET+8
>> ACHSIO	ST+1*
>> ACHSLOC	HDR+2
>> ACHSPAT	REG+3, REG+4, REG+7, REG+8, REG+11, REG+13, REG+17, REG+18, REG+20, REG+23 , SET+7, DET+6*, DET+7, DET+8
>> ACHSPG	HDR+1*, HDR+2
>> ACHSPPC	EXT+1
>> ACHSPPO	PRINT+5
>> ACHSQIO	DEV+12*
>> ACHSQUIT	REG+17, REG+18, REG+21, REG+23, REG+24
>> ACHSRPT	DEV+12
>> ACHSRTYP	TYPE+6, PRINT+6, PRINT+7, HDR+3
>> ACHSSDA	TRB+7*, A1+5, CNTY+2, CNTY+3
>> ACHST1	PRINT+1*, HDR+2
>> ACHST2	PRINT+2*, HDR+2
>> ACHST3	PRINT+3*, HDR+2
>> ACHSTCD1	REG+2*, REG+9
>> ACHSTCD2	REG+2*, REG+9
>> ACHSTCD3	REG+2*, REG+9
>> ACHSTIME	HDR+2
>> ACHSTRB	REG+8, REG+9, SET+7, SET+8, SET+9, DET+4, DET+6, DET+7, DET+8, SUM+8* , SUM+9*, SUM+10, HDRD1+1
>> ACHSTRC	A1+5*, PRINT+2
>> ACHSUSR	HDR+2
>> DIC	TRB+3*
>> DIC("A"	TRB+4*
>> DIC(0	TRB+3*
>> DIR("?"	TYPE+3*
>> DIR("A"	TYPE+2*
>> DIR("B"	TYPE+2*
>> DIR(0	TYPE+2*
>> DIROUT	TYPE+5
DTOUT	FY+2, TYPE+5, DEV+2, EXT+5!, PRINT+6, DET+2, DET+4, DET+6, DET+7, DET+9 , DET+10, DET+12, SUM+6, SUM+11, TOT+2
DUOUT	FY+2, TYPE+5, DEV+2, EXT+5!, PRINT+6, DET+2, DET+4, DET+6, DET+7, DET+9 , DET+10, DET+12, SUM+6, SUM+11, TOT+2
DUZ(2	FY+3, FYDT+1, FYDT+2
IO	ST+1
IO("Q"	DEV+9, DEV+10!
IO("S"	DEV+6, EXT+1, PRINT+5
IOF	HDR+2
IOM	DEV+12
ION	DEV+12
IOP	DEV+4!
IOSL	DEV+12
IOST	DEV+11, DEV+12
>> L	REG+18*, REG+19, REG+20, REG+21, REG+22, REG+23
>> L1	REG+23*, REG+24
>> POP	DEV+8
U	FYDT+1, FYDT+2, DEV+2, A1+5, CNTY+3, REG+8, REG+11, REG+13, REG+20, SET+7 , DET+11, SUM+5, SUM+10, HDRD+1
>> X3	PRINT+3*
>> Y	TRB+6, TRB+7, TYPE+6
>> ZTDESC	DEV+12*
>> ZTIO	DEV+12*
>> ZTQUEUED	REG+5, EXT+3
>> ZTRTN	DEV+12*
>> ZTSAVE(	DEV+13*
ZTSK	DEV+15, EXT+5!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSRELG

Information

Source Information

Call Graph

Call Graph Total: 14

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

Naked Globals

Local Variables

Legend: