Routine: AUPNMCDF

Package	Total	Call Graph
VA Fileman	4	$$GET1^DID (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	2	($$DT,$$FMTE,$$NOW)^XLFDT ($$CJ,$$REPEAT,$$TITLE)^XLFSTR
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDM
IHS Patient	1	AUPN9924
IHS Patient Registration	1	AG9924
Third Party Billing	1	ABMMCDCU

Entry Points

Name	Comments	DBIA/ICR reference
CHKPREV	; CHECK IF ANCILLARIES RAN ON CORRECTED RECORDS
SETANC	; BUILD ANCILLARY GLOBAL
GETANC(AUPNA,AUPNF)	; REPLACE GLOBAL READ ; FLAG=(V)ERSION, (R)OUTINE, DEFAULTS TO BOTH
CHKONE(AUPNI,AUPNO,AUPNR,AUPNV)	; DATA INTEGRITY CHECK, OVERRIDE WILL IGNORE COVERAGE OVERLAP WARNINGS
RPT3	; EXCLUSION REPORT
PRC	; PROCESS RESULTS FROM A SCAN
SCAN	; SCAN MCD ELIGIBILITY RECORDS FOR NON-DINUMED SUB-RECORDS
RPT1	; SUMMARY REPORT
RPT2	; DETAILED REPORT
CONT	; PROMPT TO CONTINUE
ANCIL	; LIST OF ANCILLARY CLEANUPS
GETFIX(AUPNS,AUPNF)	; REPLACE GLOBAL READ ; FLAG=(C)OUNT, DA(T)E, (U)SER, (O)VERRIDE, DEFAULTS TO ALL
INC(RES,CNT,SUB)	; INCREMENT A TOTAL
AUPN(AUPNI,AUPNO,AUPNFX)	; AUPN MAIN CLEANUP
ASK(MSG,DEF)	; PROMPT USER INPUT
LOG(AUPNFL,AUPNI,AUPNFLD,AUPNO)	; EP - LOG RESULTS ; FL=FILE I=IEN FLD=FIELD # O=OLD VALUE
REC(AUPNP,AUPNI,AUPNFX,AUPNEX,AUPNV)	; PROCESS A SINGLE RECORD
MAIN	; EP - MAIN MENU
ANC(AUPNFX,AUPNS,AUPNAL)	; RUN ANCILLARY CLEANUP ROUTINES ; ANCILLARY LIST DEFAULTS TO ALL, CAN BE USED TO SEND SPECIFIC CLEANUPS (CHKPREV)

External References

Name	Field # of Occurrence
$$GET1^DID	RPT2+16, RPT2+25
FILE^DIE	AUPN+6
UPDATE^DIE	AUPN+13, AUPN+21
$$GET1^DIQ	AUPN+17
^DIR	MAIN+11, ASK+5, CONT+2
^XBFMK	ANC+11
$$DT^XLFDT	AUPN+18, AUPN+20
$$FMTE^XLFDT	MAIN+5, CHKPREV+9, RPT1+7, RPT2+7, RPT2+12
$$NOW^XLFDT	SCAN+4, PRC+7
$$CJ^XLFSTR	RPT1+4, RPT2+3, RPT3+3
$$REPEAT^XLFSTR	RPT1+4, RPT2+3, RPT3+3
$$TITLE^XLFSTR	RPT2+16, RPT2+24, RPT2+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?8,"Medicaid Eligibility Fix" Line Location: MAIN+4
Function Call: WRITE	Prompt: !,?23,"Scan last run at: ",$S($G(^AUPNTMP("SCAN","DT")):$$FMTE^XLFDT($G(^AUPNTMP("SCAN","DT"))),1:"Never") Line Location: MAIN+5
Function Call: WRITE	Prompt: !,?10,"(S)can",?25,"Scan and fix corrupt entries" Line Location: MAIN+6
Function Call: WRITE	Prompt: !,?10,"(V)erify",?25,"Verify results of previous scans" Line Location: MAIN+7
Function Call: WRITE	Prompt: !,?10,"(R)esults",?25,"Display scan results" Line Location: MAIN+8
Function Call: WRITE	Prompt: !!,"Scanning AUPNMCD global" Line Location: SCAN+3
Function Call: WRITE	Prompt: "." Line Location: SCAN+7
Function Call: WRITE	Prompt: "Completed!",?40,"Total records scanned: ",+$G(@AUPNSC@("TOT")) Line Location: SCAN+15
Function Call: WRITE	Prompt: !,"No issues found to correct!" Line Location: SCAN+16
Function Call: WRITE	Prompt: !,?10,"Record count: ",+$G(@AUPNSC@("REC")),?40,"Entry count: ",+$G(@AUPNSC@("SUB")) Line Location: SCAN+17
Function Call: WRITE	Prompt: !!,"Processing ",$G(@AUPNSC@("SUB"))," entries in the MEDICAID ELIGIBILE file..." Line Location: PRC+6
Function Call: WRITE	Prompt: "Completed!" Line Location: PRC+11
Function Call: WRITE	Prompt: !,+$G(@AUPNFX@(0))," entries successfully processed" Line Location: PRC+12
Function Call: WRITE	Prompt: !,+$G(@AUPNEX)," entries were excluded - See report for details" Line Location: PRC+13
Function Call: WRITE	Prompt: !,"Scanning corrected records for additional cleanup" Line Location: CHKPREV+4
Function Call: WRITE	Prompt: !,?2,"Ancillary cleanup (",AUPNA,") did not run on: ",$$FMTE^XLFDT($$GETFIX(AUPNS,"T")) Line Location: CHKPREV+9
Function Call: WRITE	Prompt: !,?4,"Processing (",$TR($E(AUPNR,1,$L(AUPNR)-1),U,","),") cleanup on ",$$GETFIX(AUPNS,"C")," records..." Line Location: CHKPREV+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("REPORT (CORRECTED RECORDS)",80),!,$$REPEAT^XLFSTR("*",80) Line Location: RPT1+4
Function Call: WRITE	Prompt: !,AUPNS,")",?4,"Run Date: ",$$FMTE^XLFDT($$GETFIX(AUPNS,"T")),?40,"User: ",$$GETFIX(AUPNS,"U"),?60,"Override: ",$S($$GETFIX(AUPNS,"O"):"YES",1:"NO"),! Line Location: RPT1+7
Function Call: WRITE	Prompt: !,?2,"Patient: ",AUPNP Line Location: RPT1+8
Function Call: WRITE	Prompt: ?21,"MCD Entry: ",AUPNI Line Location: RPT1+9
Function Call: WRITE	Prompt: ! Line Location: RPT1+10
Function Call: WRITE	Prompt: ?39,"Old: ",$P($G(@AUPNFX@(AUPNS2)),U,3),?56,"New: ",$P($G(@AUPNFX@(AUPNS2)),U,4) Line Location: RPT1+11
Function Call: WRITE	Prompt: ?75,"OVR" Line Location: RPT1+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("REPORT (CORRECTED RECORDS - DETAILED)",80),!,$$REPEAT^XLFSTR("*",80) Line Location: RPT2+3
Function Call: WRITE	Prompt: !,AUPNS,")",?4,"Run Date: ",$$FMTE^XLFDT($$GETFIX(AUPNS,"T")),?40,"User: ",$$GETFIX(AUPNS,"U"),?60,"Override: ",$S($$GETFIX(AUPNS,"O"):"Yes",1:"No"),! Line Location: RPT2+7
Function Call: WRITE	Prompt: !,"Patient: ",AUPNP,?20,"MCD Entry: ",AUPNI Line Location: RPT2+10
Function Call: WRITE	Prompt: ?40,"Last updated: ",$$FMTE^XLFDT($P($G(@AUPNFX@(AUPNS2,9000004,1)),";",3)) Line Location: RPT2+12
Function Call: WRITE	Prompt: !,?2,"* Old: ",$P($G(@AUPNFX@(AUPNS2)),U,3),?22,"New: ",$P($G(@AUPNFX@(AUPNS2)),U,4) Line Location: RPT2+13
Function Call: WRITE	Prompt: !,?4," ",+$G(@AUPNFX@(AUPNS2,AUPNFL,0))," addtl record(s) from ",$$TITLE^XLFSTR($$GET1^DID(AUPNFL,,,"NAME"))," file (#",AUPNFL,")" Line Location: RPT2+16
Function Call: WRITE	Prompt: !,?8 Line Location: RPT2+23
Function Call: WRITE	Prompt: $$TITLE^XLFSTR($P($G(^DD(AUPNT,0)),U))," (#",AUPNT,"), " Line Location: RPT2+24
Function Call: WRITE	Prompt: $$TITLE^XLFSTR($$GET1^DID(AUPNT,AUPNT2,,"LABEL"))," field (#",AUPNT2,")" Line Location: RPT2+25
Function Call: WRITE	Prompt: !,?8,"- Record: ",$P(AUPND,";") Line Location: RPT2+26
Function Call: WRITE	Prompt: ?39,"Old: ",$P(AUPND,";",3) Line Location: RPT2+27
Function Call: WRITE	Prompt: ! Line Location: RPT2+28
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("REPORT (EXCLUDED RECORDS)",80),!,$$REPEAT^XLFSTR("*",80) Line Location: RPT3+3
Function Call: WRITE	Prompt: !,?10,"PATIENT",?20,"RECORD",?30,"ENTRY",?40,"TYPE",?50,"REASON",?65,"CONFLICT ENTRY" Line Location: RPT3+4
Function Call: WRITE	Prompt: !,?10,"-------",?20,"------",?30,"-----",?40,"----",?50,"------",?65,"--------------" Line Location: RPT3+5
Function Call: WRITE	Prompt: !,?10,AUPNP Line Location: RPT3+6
Function Call: WRITE	Prompt: ?20,AUPNI Line Location: RPT3+7
Function Call: WRITE	Prompt: ?30,AUPNI2 Line Location: RPT3+8
Function Call: WRITE	Prompt: ?40,$S(AUPNTYP="E":"ERROR",AUPNTYP="W":"WARNING",1:"") Line Location: RPT3+9
Function Call: WRITE	Prompt: ?50,AUPNEXC Line Location: RPT3+10
Function Call: WRITE	Prompt: ?65,$P($G(@AUPNEX@(AUPNP,AUPNI,AUPNI2,AUPNTYP,AUPNEXC)),U,AUPNI3),! Line Location: RPT3+11
Routine Call	DIE Line Location: AUPN+13 AUPN+21
Routine Call	DIE Line Location: AUPN+6
Routine Call	DIR Line Location: MAIN+11 ASK+5 CONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNMCD - [#9000004]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	SCAN+5, SCAN+6, SCAN+8, SCAN+9, REC+5, REC+6, CHKONE+3, CHKONE+4, CHKONE+5, AUPN+3
^AUPNTMP("ANCILLARY"	SETANC+4*, GETANC+4, GETANC+6
^AUPNTMP("CURRENT"	REC+11, REC+16!, CHKPREV+14, CHKPREV+16!, LOG+3
^AUPNTMP("EXCLUDE"	PRC+4, RPT3+2
^AUPNTMP("FIXED"	PRC+3, PRC+4, CHKPREV+3, RPT1+5, RPT1+6, RPT2+5, RPT2+6, GETFIX+4
^AUPNTMP("SCAN"	MAIN+5, SCAN+2, PRC+2
^DD(	RPT2+24

Label References

Name	Line Occurrences
$$ASK	SCAN+18, PRC+5, CHKPREV+10, RPT2+4
$$CHKONE	REC+7
$$GETANC	CHKPREV+3, CHKPREV+7, CHKPREV+8, ANC+4, ANC+6
$$GETFIX	PRC+4, CHKPREV+2, CHKPREV+9, CHKPREV+12, RPT1+3, RPT1+7, RPT2+2, RPT2+7
@(	ANC+9
ANC	REC+15, CHKPREV+15
AUPN	REC+13
CHKPREV	MAIN+14
CONT	MAIN+13, MAIN+14, MAIN+15
INC	SCAN+7, SCAN+10, SCAN+11, SCAN+12, SCAN+13, PRC+3, REC+8, REC+18, LOG+4
LOG	AUPN+21
PRC	SCAN+18
REC	PRC+10
RPT1	AUPNMCDF+11, MAIN+15
RPT2	AUPNMCDF+11, MAIN+15
RPT3	AUPNMCDF+11, MAIN+15
SCAN	AUPNMCDF+11, MAIN+13
SETANC	AUPNMCDF+11, MAIN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUPNA	REC+1~, CHKPREV+1~, CHKPREV+6, CHKPREV+7, CHKPREV+8, CHKPREV+9, CHKPREV+10, ANC+2~, ANC+5, ANC+6 , ANC+10, RPT1+1~, RPT2+1~, SETANC+1~, SETANC+3, SETANC+4, GETANC~, GETANC+3, GETANC+5, GETANC+6
AUPNAL	ANC~, ANC+4*, ANC+5
AUPNC	CHKONE+1~, CHKONE+4, CHKONE+5, CHKONE+6, CHKONE+7, CHKONE+9, CHKONE+10, CHKPREV+1~, CHKPREV+6, ANC+2~ , ANC+5, SETANC+1~, SETANC+2, GETANC+2~, GETANC+4*, GETANC+5, GETANC+6
AUPNCHG	REC+1~, REC+2, REC+3, REC+5, REC+14*, REC+18
AUPND	CHKONE+1~, CHKONE+5, CHKONE+7, CHKONE+8, CHKONE+9, CHKONE+10, ANC+2~, ANC+7, ANC+8, RPT1+1~ , RPT2+1~, RPT2+19, RPT2+21, RPT2+22, RPT2+26, RPT2+27, SETANC+1~, SETANC+3, SETANC+4
AUPNDT	SCAN+1~, SCAN+9*, SCAN+10, RPT1+1~, RPT2+1~
AUPNE	REC+4~, REC+18
AUPNE(	REC+12!, REC+18
AUPNEX	PRC+1~, PRC+4, PRC+10, PRC+13, REC~, REC+2, REC+18, RPT3+1~, RPT3+2*, RPT3+6 , RPT3+7, RPT3+8, RPT3+9, RPT3+10, RPT3+11
AUPNEXC	RPT3+1~, RPT3+10*, RPT3+11
AUPNF	RPT2+1~, RPT2+4, RPT2+17, GETANC~, GETANC+3, GETANC+6, GETFIX~, GETFIX+3*, GETFIX+5
AUPNFL	RPT2+1~, RPT2+14, RPT2+15, RPT2+16, RPT2+18, RPT2+19, RPT2+21, RPT2+24, LOG~, LOG+3 , LOG+4, LOG+5
AUPNFLD	LOG~, LOG+3*, LOG+5
AUPNFX	PRC+1~, PRC+4, PRC+7, PRC+10, PRC+12, REC~, REC+2, REC+8, REC+9, REC+10 , REC+11, REC+12, REC+13, REC+15, CHKPREV+1~, CHKPREV+3, CHKPREV+5, CHKPREV+8, CHKPREV+13, CHKPREV+14 , CHKPREV+15, AUPN~, AUPN+2, AUPN+7, AUPN+14, AUPN+15, ANC~, ANC+3, ANC+7, ANC+10 , RPT1+1~, RPT1+6, RPT1+8, RPT1+9, RPT1+10, RPT1+11, RPT1+12, RPT2+1~, RPT2+6, RPT2+8 , RPT2+9, RPT2+11, RPT2+12, RPT2+13, RPT2+14, RPT2+15, RPT2+16, RPT2+18, RPT2+19, LOG+2~ , LOG+3, LOG+4, LOG+5
AUPNI	SCAN+1~, SCAN+5, SCAN+6, SCAN+8, SCAN+9, SCAN+12, SCAN+14, PRC+1~, PRC+9, PRC+10 , REC~, REC+2, REC+5, REC+6, REC+7, REC+9, REC+10, REC+13, REC+18, CHKONE~ , CHKONE+2, CHKONE+3, CHKONE+4, CHKONE+5, AUPN~, AUPN+2, AUPN+3, AUPN+5, AUPN+9, AUPN+10 , AUPN+11, AUPN+17, AUPN+20, AUPN+21, ANC+2~, ANC+8, RPT1+1~, RPT1+2~, RPT1+9, RPT1+10 , RPT2+1~, RPT2+9, RPT2+10, RPT2+11, RPT3+1~, RPT3+7, RPT3+8, RPT3+9, RPT3+10, RPT3+11 , LOG~, LOG+3, LOG+5
AUPNI2	SCAN+1~, SCAN+8, SCAN+9, RPT2+1~, RPT2+18, RPT2+19, RPT2+20, RPT3+1~, RPT3+8*, RPT3+9 , RPT3+10, RPT3+11
AUPNI3	RPT3+1~, RPT3+11*
AUPNN	REC+1~, REC+6, REC+9, CHKONE+1~, CHKONE+3, CHKONE+6, CHKONE+8, CHKONE+9, CHKONE+10, AUPN+1~ , AUPN+3, AUPN+9, AUPN+10, AUPN+11, AUPN+12, AUPN+14, ANC+2~, ANC+8
AUPNO	REC+1~, REC+5, REC+6, REC+7, REC+9, REC+12, REC+13, REC+18, CHKONE~, CHKONE+2* , CHKONE+3, CHKONE+6, CHKONE+9, CHKONE+10, AUPN~, AUPN+2, AUPN+3, AUPN+5, ANC+2~, ANC+8 , LOG~, LOG+3*, LOG+5
AUPNP	SCAN+1~, SCAN+6, SCAN+11, SCAN+12, SCAN+14, PRC+1~, PRC+8, PRC+9, PRC+10, REC~ , REC+2, REC+9, REC+10, REC+18, ANC+2~, ANC+8, RPT1+2~, RPT1+8, RPT1+9, RPT1+10 , RPT2+8, RPT2+9, RPT2+10, RPT2+11, RPT3+1~, RPT3+6*, RPT3+7, RPT3+8, RPT3+9, RPT3+10 , RPT3+11
AUPNQ	AUPNMCDF+10~*, ASK+1, CONT+1
AUPNR	SCAN+1~, CHKONE~, CHKONE+2, CHKONE+6, CHKONE+9, CHKONE+10, CHKPREV+1~, CHKPREV+5, CHKPREV+10, CHKPREV+11 , CHKPREV+12, CHKPREV+15, GETANC+2~, GETANC+3, GETANC+5, GETANC+6, GETANC+7, GETFIX+2~, GETFIX+3, GETFIX+4 , GETFIX+5*, GETFIX+6
AUPNRO	REC+1~, ANC+2~, ANC+6*, ANC+9
AUPNS	REC+1~, REC+8, REC+9, REC+10, REC+11, REC+12, REC+13, REC+15, CHKPREV+1~, CHKPREV+5 , CHKPREV+8, CHKPREV+9, CHKPREV+12, CHKPREV+13, CHKPREV+14, CHKPREV+15, ANC~, ANC+3, ANC+7, RPT1+1~ , RPT1+5, RPT1+6, RPT1+7, RPT2+1~, RPT2+5, RPT2+6, RPT2+7, GETFIX~, GETFIX+3, GETFIX+4
AUPNS2	CHKPREV+1~, CHKPREV+13, CHKPREV+14, CHKPREV+15, RPT1+2~, RPT1+10, RPT1+11, RPT1+12, RPT2+11*, RPT2+12 , RPT2+13, RPT2+14, RPT2+15, RPT2+16, RPT2+18, RPT2+19
AUPNSC	SCAN+1~, SCAN+2, SCAN+4, SCAN+7, SCAN+10, SCAN+11, SCAN+12, SCAN+13, SCAN+14, SCAN+15 , SCAN+16, SCAN+17, SCAN+18, PRC+1~, PRC+2, PRC+6, PRC+8, PRC+9
AUPNT	CHKONE+1~, CHKONE+2, CHKONE+6, CHKONE+11, CHKPREV+1~, CHKPREV+3, CHKPREV+6, AUPN+1~, AUPN+17, AUPN+18 , AUPN+21, RPT2+1~, RPT2+21, RPT2+24, RPT2+25, SETANC+1~, SETANC+2, SETANC+3
AUPNT2	CHKONE+1~, CHKONE+2, CHKONE+9, CHKONE+10, CHKONE+11, RPT2+1~, RPT2+22, RPT2+25
AUPNTYP	RPT3+1~, RPT3+9*, RPT3+10, RPT3+11
AUPNV	PRC+1~, PRC+5, PRC+7, PRC+10, REC~, REC+2, REC+7, REC+12, CHKONE~, CHKONE+2* , CHKONE+11
AUPNVR	ANC+2~, ANC+6*, ANC+10
AUPNW	RPT1+1~
CNT	INC~, INC+1, INC+2
DEF	ASK~, ASK+1, ASK+3
DIR	MAIN+1~, MAIN+16!, ASK+2~, ASK+5!, CONT+2!
DIR("A"	MAIN+10, ASK+4, CONT+2*
DIR("B"	ASK+3*
DIR(0	MAIN+9, ASK+3, CONT+2*
DIROUT	MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DIRUT	MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DTOUT	MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DUOUT	MAIN+1~, MAIN+3, MAIN+12, MAIN+16!
DUZ	PRC+7
ERR	AUPN+1~, AUPN+4!, AUPN+7, AUPN+8!, AUPN+15
FDA	AUPN+1~, AUPN+4!, AUPN+8!, AUPN+19!
FDA(	AUPN+5, AUPN+9, AUPN+10, AUPN+11
FDA(9000004	AUPN+20*
FDAIEN	AUPN+1~, AUPN+8!
FDAIEN(1	AUPN+12*, AUPN+14
MSG	ASK~, ASK+4
RES	INC~, INC+1*, INC+2
SUB	INC~, INC+1
U	SCAN+6, SCAN+9, PRC+7, REC+6, REC+9, CHKONE+5, CHKONE+6, CHKONE+8, CHKONE+9, CHKONE+10 , CHKPREV+6, CHKPREV+10, CHKPREV+12, AUPN+9, AUPN+10, AUPN+11, AUPN+12, AUPN+14, ANC+5, ANC+8 , RPT1+11, RPT2+13, RPT2+24, RPT3+11, SETANC+4, GETANC+5, GETANC+6, GETFIX+5, INC+1
Y	MAIN+13, MAIN+14, MAIN+15, ASK+2~, ASK+6

Customize PDF page

Package: IHS Patient

Routine: AUPNMCDF

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(@(4)	CHKPREV+8
$T(@AUPNRO	ANC+6
$T(ANCIL+AUPNC	SETANC+2