Routine: AGDATA

Information

AGDATA ;IHS/SD/EFG - Patient Registration 7.1 BAD DATA FIXER;

Source Information

Source file <AGDATA.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ^%ZTLOAD $$HTE^XLFDT (BMES,MES)^XPDUTL
VA Fileman	2	^DIE ^DIK

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
IHS Patient Registration	3	AG71A2 AGINS AGTXALL

Entry Points

Name	Comments	DBIA/ICR reference
POLHCREF(POLM,INFOONLY)	;EP
MCR1(PATPTR)	;EP
POLHCRE1(POLH,POLM,INFOONLY)	;EP
INSURER	;EP - DELETE DECIMAL IENS FROM INSURER FILE
PRVT1(PATPTR)	;EP - DELETE PRVT ENTRIES MISSING .01 FIELD
MCD2(PTR)	;EP
RRE1(PATPTR)	;EP
FIXALL(PATPTRS,NOMSG)	;EP - FIX ALL ELIGIBLITY KNOWN BAD DATA ISSUES
TS
KILL	;EP - KILL VARS
MCD1(RECNO)	;EP
GUAR1(PATPTR)	;EP - DELETE GUARANTOR ENTRIES WITH MISSING GUARANTORS OR DATES
RRE(PATPTRS)	;FIX "B" X-REF ENTRIES WITH NO ZERO RECORD
MCR(PATPTRS)	;EP - FIX MEDICARE WITH MISSING .01 FIELDS
PRVT(PATPTRS)	;EP - CLEAR ANY PRIVATE ELIG RECORDS MISSING INSURER POINTER
MCR2(PATPTR)	;EP
MCD(PATPTRS)	;EP - DELETE MCD RECORDS MISSING .01 FIELD
REDO	;
GUAR(PATPTRS)	;EP - CLEAR ANY GUARANTOR ENTRIES WITH NO GUARANTORS ORDATES
QUEFIX	;EP - QUEUE DATA FIX TO TASKMAN

External References

Name	Field # of Occurrence
HOME^%ZIS	QUEFIX+10
^%ZTLOAD	QUEFIX+6
^DIE	MCD1+7
^DIK	REDO+3, REDO+9, PRVT1+7, MCR2+6
$$HTE^XLFDT	TS
BMES^XPDUTL	FIXALL+12, GUAR+1, PRVT+2, MCD+2, RRE+2, MCR+1, INSURER+1, POLHCREF+3
MES^XPDUTL	TS

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Cleanup canceled!" Line Location: QUEFIX+7
Function Call: WRITE	Prompt: !!?5,"Full patient audit queued as Task # ",ZTSK,"!" Line Location: QUEFIX+8
Routine Call	%ZIS Line Location: QUEFIX+10
Routine Call	DIE Line Location: MCD1+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNMCR - [#9000003]	Classic Fileman Calls
^AUPNMCD - [#9000004]	Classic Fileman Calls
^AUPNPRVT - [#9000006]	Classic Fileman Calls
^AUPNGUAR - [#9000043]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNGUAR - [#9000043]	GUAR+4, GUAR+7, REDO+1, REDO+6, REDO+7
^AUPNMCD - [#9000004]	MCD+13, MCD1+1!, MCD1+3, MCD1+10, MCD1+11!, MCD2+4!
^AUPNMCD("AB"	MCD+15, MCD2+1, MCD2+2, MCD2+3, MCD2+4!
^AUPNMCD("B"	MCD+7
^AUPNMCR - [#9000003]	MCR+3, MCR+6, MCR1+1!, MCR2+1, MCR2+2
^AUPNMCR("B"	MCR+8, MCR1+1!
^AUPNPRVT - [#9000006]	PRVT+5, PRVT+8, PRVT+20, PRVT1+1!, PRVT1+3, PRVT1+4!, PRVT1+6, POLHCRE1+5
^AUPNPRVT("B"	PRVT+10, PRVT1+1!
^AUPNPRVT("C"	PRVT+15, PRVT+17, PRVT+19, PRVT+20!, POLHCREF+9, POLHCREF+10, POLHCRE1+4, POLHCRE1+12!
^AUPNRRE - [#9000005]	RRE+5, RRE+10, RRE1+1!
^AUPNRRE("B"	RRE+8, RRE1+1!
^AUTNINS - [#9999999.18]	INSURER+3, INSURER+4!
^AUTNINS("B"	MCD1+5, INSURER+4!

Label References

Name	Line Occurrences
GUAR	FIXALL+8, FIXALL+17
GUAR1	GUAR+4, GUAR+7
INSURER	FIXALL+9
KILL	FIXALL+11, FIXALL+21
MCD	FIXALL+6, FIXALL+15
MCD1	MCD+9, MCD+13
MCD2	MCD+10, MCD+15
MCR	FIXALL+7, FIXALL+16
MCR1	MCR+3, MCR+6, MCR+8
MCR2	MCR+3, MCR+6
POLHCRE1	POLHCREF+11
POLHCREF	FIXALL+10, FIXALL+18
PRVT	FIXALL+4, FIXALL+13
PRVT1	PRVT+5, PRVT+8, PRVT+10
REDO	REDO+6
RRE	FIXALL+5, FIXALL+14
RRE1	RRE+5, RRE+8, RRE+10
TS	FIXALL+12, GUAR+1, PRVT+2, MCD+2, RRE+2, MCR+1, INSURER+1, POLHCREF+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	REDO+3!, REDO+9!, PRVT1+7!, MCD1+4!, MCD1+6, MCD1+8!, MCR2+3!, MCR2+4*, MCR2+7!
DA(1	REDO+9*
DFN	MCD+1~
DIC	REDO+3!, REDO+9!, PRVT1+7!, MCD1+4!, MCD1+8!, MCR2+3!, MCR2+7!
DIE	REDO+3!, REDO+9!, PRVT1+7!, MCD1+4!, MCD1+6*, MCD1+8!, MCR2+3!, MCR2+7!
DIK	REDO+3!, REDO+9!, PRVT1+7!, MCD1+4!, MCD1+8!, MCR2+5
DIR	MCR2+3!, MCR2+7!
DR	PRVT1+7!, MCD1+4!, MCD1+6*, MCD1+8!
ELIGREC	MCD1+9, MCD1+10, MCD1+11, KILL+1!
HRN	MCD+1~
INFOONLY	POLHCREF~, POLHCREF+4*, POLHCREF+11, POLHCRE1~, POLHCRE1+1, POLHCRE1+7
INSPTR	INSURER+2, INSURER+3, INSURER+4, KILL+1!
INSREC	PRVT1+2, PRVT1+3, PRVT1+4, KILL+1!
MCDNUM	MCD+1~, MCD2+2*, MCD2+3, MCD2+4
>> MCDPTR	MCD1+5*
NOMSG	QUEFIX+3*, FIXALL~, FIXALL+12, GUAR+1, PRVT+2, MCD+2, RRE+2, MCR+1, INSURER+1, POLHCREF+3
PATPTR	GUAR+6, GUAR+7, GUAR1~, REDO+1, REDO+3, REDO+6, REDO+7, REDO+9, PRVT+7, PRVT+8 , PRVT+9, PRVT+10, PRVT+16, PRVT+17, PRVT+19, PRVT+20, PRVT1~, PRVT1+1, PRVT1+3, PRVT1+4 , PRVT1+6, PRVT1+7, MCD+14, MCD+15, RRE+4, RRE+5, RRE+7, RRE+8, RRE+9, RRE+10 , RRE1~, RRE1+1, MCR+3, MCR+5, MCR+6, MCR+7, MCR+8, MCR1~, MCR1+1, MCR2~ , MCR2+1, MCR2+2, MCR2+4, KILL+1!
PATPTRS	QUEFIX+3*, FIXALL~, FIXALL+3, FIXALL+13, FIXALL+14, FIXALL+15, FIXALL+16, FIXALL+17, FIXALL+18, GUAR~ , GUAR+2, PRVT~, PRVT+3, PRVT+13, MCD~, MCD+4, RRE~, RRE+3, MCR~, MCR+2
PATPTRS(	GUAR+4, PRVT+5, MCD+6, RRE+5, MCR+3
POLH	POLHCREF+8, POLHCREF+9, POLHCREF+10, POLHCREF+11, POLHCRE1~, POLHCRE1+1, POLHCRE1+4, POLHCRE1+6, POLHCRE1+9, POLHCRE1+12
>> POLHPTR	PRVT+14, PRVT+15, PRVT+17, PRVT+19, PRVT+20
POLM	POLHCREF~, POLHCREF+5, POLHCREF+6*, POLHCREF+7, POLHCREF+10, POLHCREF+11, POLHCRE1~, POLHCRE1+1, POLHCRE1+4, POLHCRE1+5 , POLHCRE1+9, POLHCRE1+12
POLM(""	POLHCREF+6
PTR	GUAR+3, GUAR+4, PRVT+4, PRVT+5, MCD+1~, MCD+5, MCD+6, MCD+7, MCD2~, MCD2+1 , MCD2+2, MCD2+3, MCD2+4, RRE+5, MCR+3*, KILL+1!
>> REC	POLHCRE1+3, POLHCRE1+4, POLHCRE1+5, POLHCRE1+9, POLHCRE1+12
RECNO	PRVT+18, PRVT+19, PRVT+20, MCD+1~, MCD+7, MCD+8, MCD+9, MCD+10, MCD+12, MCD+13* , MCD1~, MCD1+1, MCD1+3, MCD1+6, MCD1+10, MCD1+11, MCD2+3*, MCD2+4, KILL+1!
REDO	GUAR1+1~, REDO+5, REDO+6, REDO+9
ST	MCD+1~, MCD2+1*, MCD2+2, MCD2+3, MCD2+4
SUB1	GUAR1+1~, REDO+1, REDO+2, REDO+5, REDO+6*, REDO+7, REDO+9
SUB11	GUAR1+1~, REDO+7*, REDO+8
>> TRUEPOLH	POLHCRE1+5*, POLHCRE1+6, POLHCRE1+10
U	PRVT1+1, PRVT1+4, MCD1+1, MCD1+3, MCD1+11, MCD2+4, RRE1+1, MCR1+1, MCR2+1, POLHCRE1+5
>> ZTDESC	QUEFIX+1*
>> ZTIO	QUEFIX+2*
>> ZTQUEUED	FIXALL+12, GUAR+1, PRVT+2, MCD+2, RRE+2, MCR+1, INSURER+1, POLHCREF+3
>> ZTRTN	QUEFIX+1*
>> ZTSAVE("NOMSG"	QUEFIX+5*
>> ZTSAVE("PATPTRS"	QUEFIX+4*
>> ZTSK	QUEFIX+7, QUEFIX+8

Customize PDF page

Package: IHS Patient Registration

Routine: AGDATA

Call Graph Total: 6

Caller Graph Total: 3