Routine: AGTXALL1

Information

AGTXALL1 ;IHS/ASDS/EFG - EXPORT ALL REG DATA CONT. ;

Source file <AGTXALL1.m>

Package	Total	Call Graph
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
IHS Patient Registration	1	SET^AGTXALL

Package	Total	Caller Graph
IHS Patient Registration	1	AGTXALL

Name	Comments	DBIA/ICR reference
56	;;NASHVILLE TRIBE/638^8
77	;;PORTLAND URBAN^9
60	;;PHOENIX^7
61	;;CALIFORNIA^4
89	;;NAVAJO NON-IHS^5
64	;;CALIFORNIA URBAN^4
65	;;PHOENIX TRIBE/638^7
66	;;CALIFORNIA TRIBE/638^4
67	;;PHOENIX URBAN^7
68	;;CALIFORNIA NON-IHS^4
69	;;PHOENIX NON-IHS^7
80	;;NAVAJO^5
85	;;NAVAJO TRIBE/638^5
25	;;ALBUQUERQUE TRIBE/638^6
00	;;TUCSON^3
SCHED	;;^AREA^EXPORT DATE^EXPORT DATE FM
07	;;TUCSON URBAN^3
VID(V)	;EP - Given Visit IEN, return unique Visit record id.
23	;;HEADQUARTERS WEST
47	;;BILLINGS URBAN^2
45	;;BILLINGS TRIBE/638^2
40	;;BILLINGS^2
09	;;TUCSON NON-IHS^3
RG9(DFN)	;- Given the DFN, create RG9 record(s) of unique Visit IDs.
05	;;TUCSON TRIBE/638^3
H	;
39	;;ALASKA NON-IHS^1
99	;;HEADQUARTERS EAST
75	;;PORTLAND TRIBE/638^9
70	;;PORTLAND^9
20	;;ALBUQUERQUE^6
79	;;PORTLAND NON-IHS^9
58	;;NASHVILLE NON-IHS^8
11	;;BEMIDJI^11
10	;;ABERDEEN^10
ALL	;EP - Display the whole schedule.
15	;;ABERDEEN TRIBE/638^10
14	;;BEMIDJI URBAN^11
17	;;ABERDEEN URBAN^10
16	;;BEMIDJI TRIBE/638^11
55	;;OKLAHOMA TRIBE/638^12
18	;;BEMIDJI NON-IHS^11
57	;;OKLAHOMA URBAN^12
30	;;ALASKA^1
51	;;NASHVILLE^8
50	;;OKLAHOMA^12
35	;;ALASKA TRIBE/638^1
59	;;OKLAHOMA NON-IHS^12
54	;;NASHVILLE URBAN^8
CHK()	;EP - Check if today is before the schedule export date. If so, confirm.
WHEN(A)	;EP - Lookup when an Area should export, given area code A.

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,$P($T(SCHED+%),U,2),?20,$P($T(SCHED+%),U,3) Line Location: ALL+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT("AC"	RG9+4
^AUTTLOC - [#9999999.06]	CHK+1, VID+2
^AUTTSITE(1	CHK+1, VID+2*, VID+3

Name	Line Occurrences
$$WHEN	CHK+1
ALL	CHK+2