Routine: AGFIX7A

Package	Total	Call Graph
VA Fileman	4	^%DT NOW^%DTC ^DIC WAIT^DICD
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS Patient Registration	1	$$S^AGVDF

Package

Total

Call Graph

VA Fileman

^%DT NOW^%DTC ^DIC WAIT^DICD

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

IHS Patient Registration

$$S^AGVDF

Entry Points

Name	Field # of Occurrence
^%DT	START
NOW^%DTC	IEN+12
^%ZIS	ENTRY+1
^%ZISC	DEV+1
^%ZTLOAD	DEV+1
$$S^AGVDF	MSG
^DIC	USER, FACILITY
WAIT^DICD	ENTRY+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"IF YOU ARE SURE YOU WANT TO RUN THIS ROUTINE",!!,"PLEASE ENTER AT 'START', I.E. 'D START^AGFIX7A'.",! Line Location: AGFIX7A+2
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: MSG+0
Function Call: WRITE	Prompt: !?31,"* AGFIX7A *" Line Location: MSG+1
Function Call: WRITE	Prompt: !!?5,"THIS REGISTRATION UTILITY READS THRU THE 'B' INDEX OF THE",!!?5,"MEDICAID ELIGIBLE FILE (^AUPNMCD), REMOVES ALL NON-NUMERIC CHARACTERS",!!?5,"FROM THE M'CAID ELIGIBILITY NUMBERS," Line Location: MSG+2
Function Call: WRITE	Prompt: !!?5,"AND SETS ^AGPATCH SO THE CORRECTED PATIENTS ARE EXPORTED DURING" Line Location: MSG+3
Function Call: WRITE	Prompt: !!?5,"THE NEXT REGISTRATION EXPORT.",!!?5,"note: THE 'AB' INDEX IS KILLED AND REBUILT DURING THE PROCESS",!!!?10,"DO YOU WANT TO CONTINUE? (Y/N) N // " Line Location: MSG+4
Function Call: WRITE	Prompt: !! Line Location: USER+0
Function Call: WRITE	Prompt: !! Line Location: FACILITY+0
Function Call: WRITE	Prompt: !!,*7,"You can 'q' this process to TaskMan to run at another time.",! Line Location: QUE+0
Function Call: READ	Timeout: DTIME Variable: Y Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Task Number = ",ZTSK,!!,"Press RETURN..." Line Location: DEV+1
Function Call: WRITE	Prompt: !! Line Location: ENTRY+1
Function Call: WRITE	Prompt: !,AGTOTAL," records changed.",! Line Location: END1+0
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: Y Line Location: READ+0
Function Call: READ	Timeout: 5 Variable: Y Line Location: READ+0
Routine Call	DIC Line Location: USER FACILITY
Routine Call	%ZIS Line Location: ENTRY+1

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV
^AGPATCH(	IEN+13*
^AUPNMCD - [#9000004]	IEN+2, IEN+3, IEN+11*, END1+1
^AUPNMCD("AB"	IEN+5, IEN+10!, IEN+11, END1+1!
^AUPNMCD("B"	DFN+1, IEN+1, IEN+2!
^AUTTLOC - [#9999999.06]	DEV
^DIC(5 - [#5]	IEN+7

Name	Line Occurrences
DFN	IEN+1
END	MSG+5, USER, FACILITY, QUE
END1	DFN+1
ENTRY	QUE+1
FACILITY	QUE
IEN	IEN+2, IEN+4, IEN+6, IEN+7, IEN+9, IEN+14
MSG	MSG+5
QUE	QUE, DEV+1
READ	MSG+5, QUE, READ

Name	Field # of Occurrence
^(0	IEN+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	IEN+12
%DT	START*!, END!
A	END1+1*, END!
AG	DEV+1!, END!
AG("STATE"	IEN+7*
AGACCT	IEN+3*, IEN+4, IEN+5, IEN+6, IEN+8, IEN+10, END!
AGDATE	END!
AGDTS	IEN+12*, IEN+13, END!
AGIO	DEV+1!
AGNEWNUM	IEN+8*, IEN+9, IEN+11, END!
AGQIO	DEV+1!
AGST	IEN+3*, IEN+4, IEN+5, IEN+7, IEN+10, IEN+11, END!
AGTOTAL	START+1, ENTRY+2, IEN+11*, END1, END!
D	END1+1*, END!
DFN	ENTRY+2, DFN+1, IEN+1, IEN+2, IEN+5, IEN+10, IEN+11, IEN+13, END!
DFOUT	MSG+5, QUE, END!, READ!, READ+1*
DIC	USER, FACILITY!
DIC("A"	USER, FACILITY
DIC(0	USER, FACILITY
DLOUT	MSG+5, END!, READ!, READ+1*
DQOUT	MSG+5, QUE, END!, READ!, READ+1*
DT	START*
DTIME	MSG*, DEV+1, READ
DTOUT	MSG+5, QUE, END!, READ!*
DUOUT	MSG+5, QUE, END!, READ!, READ+1*
DUZ	USER*
DUZ(2	FACILITY*, DEV, IEN+13
DUZ2	FACILITY*, END!
DX	ENTRY+1*, END!
DY	ENTRY+1*, END!
G	DEV+1!
>> I	IEN+8, END1+1
IEN	DFN+2, IEN+1, IEN+2, IEN+3, IEN+5, IEN+10, IEN+11, END1+1*, END!
ION	ENTRY+1
>> IOP	ENTRY+1*
S	END1+1*, END!
U	DEV, IEN+3, IEN+7, IEN+11
X	START*, END!
XY	END!
Y	START, MSG+5, USER, FACILITY, QUE, QUE+1, DEV, DEV+1, END!, READ* , READ+1*
ZTDESC	DEV*, DEV+1!
ZTIO	DEV*, DEV+1!
>> ZTQUEUED	ENTRY+1, END1
ZTRTN	DEV*, DEV+1!
ZTSAVE	DEV*, DEV+1!
ZTSK	DEV+1!
ZTUCI	DEV*, DEV+1!

Customize PDF page

Package: IHS Patient Registration

Routine: AGFIX7A

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END1
COMMENT	; This routine is a one-time-only run. ; It reads thru the 'B' index of the MEDICAID ELIGIBLE ; file (^AUPNMCD) to look for patients who are eligible for MEDICAID, ; fix their eligibility numbers if necessary, and ; flag them for inclusion with next export. ; RPMS/GTH
END
FACILITY
READ
DEV
START
DFN	;
QUE
USER
IEN	;
MSG
ENTRY	; EP - TaskMan.