Routine: AGERRAUD

Package	Total	Call Graph
VA Fileman	5	DD^%DT (,NOW)^%DTC ^DIC ^DIE ^DIR
Kernel	2	^%ZIS ^%ZISC
IHS Patient Registration	1	(CENTER,DETHDR,HDR,PRTHDR,SUMMARY)^AGERRAU1

Package	Total	Caller Graph
IHS Patient Registration	1	AGFULAUD

Entry Points

Name	Comments	DBIA/ICR reference
ASKSOME	;EP
NEWERR(ERRCODE,PTREC,DTREC)	;EP - ADD ERRORS
LOCSEL	;EP - DETERMINE IF ALL LOCATIONS OR SELECTED LOCATIONS
ASKEWB	;EP - ASK IF ERRORS ONLY, WARNINGS ONLY, OR BOTH
EXIT	;EP - CLEANUP AND EXIT
EDENTRY(ERRCODE,PDFN)	;EP
ASKDATE	;EP - ASK FOR BEGINNING DATE FOR THE REPORT. THE DEFAULT WILL
ASKAGAIN	;SHOW DEFAULT DATE AND CONFIRM
DTAGAIN	;EP - PROMPT TO CHANGE BEGINNING DATE
DETAIL	;EP
ASKLOC	;EP - ASK IF ALL LOCATIONS OR LET USER SELECT LOCATIONS
CAPTURE(AUDITERR,PDFN)	;EP
ASKTYPE	;EP
PRTALL(ASKSOME)	;EP
PRINT	;EP
ERRSITE()	;EP
NEWPT(DTREC,PDFN)	;ADD PATIENT
ASKERR	;EP
EXITCAP	;EP - CLEANUP CAPTURE VARS

External References

Name	Field # of Occurrence
DD^%DT	PRTALL+7
^%DTC	PRINT+16
NOW^%DTC	PRTALL+7
^%ZIS	PRTALL+5
^%ZISC	PRINT+10, PRTALL+15, PRTALL+20, PRTALL+21, DETAIL+4, DETAIL+5, DETAIL+38
CENTER^AGERRAU1	PRINT+31
DETHDR^AGERRAU1	DETAIL+13, DETAIL+30, DETAIL+33
HDR^AGERRAU1	PRINT+5
PRTHDR^AGERRAU1	DETAIL+13, DETAIL+30, DETAIL+33
SUMMARY^AGERRAU1	PRTALL+58
^DIC	NEWPT+6, NEWERR+7
^DIE	EDENTRY+7
^DIR	ASKEWB+4, ASKTYPE+4, ASKERR+4, ASKSOME+5, DETAIL+4, DETAIL+5, DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36 , DETAIL+37, LOCSEL+7, ASKLOC+3, ASKAGAIN+9, DTAGAIN+4, DTAGAIN+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO RECORDS FOUND IN 'AG ERROR/WARNING AUDIT' FILE",!,"YOU MUST FIRST CHOOSE THE FAUD 'FAUD FULL PATIENT FILE AUDIT' OPTION FIRST!!" Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,"NO ERRORS WERE FOUND." Line Location: PRINT+10
Function Call: WRITE	Prompt: !! Line Location: PRINT+28
Function Call: WRITE	Prompt: ! Line Location: PRINT+32
Function Call: WRITE	Prompt: !,"THIS IS NOT A ",ERRRESP," CODE" Line Location: ASKSOME+14
Function Call: WRITE	Prompt: !,"NO RECORDS FOUND IN 'AG ERROR/WARNING AUDIT' FILE" Line Location: PRTALL+14
Function Call: WRITE	Prompt: !,"NO RECORDS FOUND IN 'AG ERROR/WARNING AUDIT' FILE" Line Location: PRTALL+15
Function Call: WRITE	Prompt: !,"NO ERRORS FOUND" Line Location: PRTALL+18
Function Call: WRITE	Prompt: !,"NO ERRORS FOUND FOR SITE '"_$P($G(^DIC(4,$$ERRSITE,0)),U)_"'" Line Location: PRTALL+19
Function Call: WRITE	Prompt: !,"NO ERRORS FOUND IN THE 'AG ERROR/WARNING AUDIT' FILE" Line Location: PRTALL+20
Function Call: WRITE	Prompt: !,"NO ERRORS FOUND FOR SITE '"_$P($G(^DIC(4,$$ERRSITE,0)),U)_"' IN THE 'AG ERROR/WARNING AUDIT' FILE" Line Location: PRTALL+21
Function Call: WRITE	Prompt: !!,"The audit pulls all patients who are active in at least one facility," Line Location: ASKDATE+4
Function Call: WRITE	Prompt: !,"not deceased, have a last updated date of not more than three years" Line Location: ASKDATE+5
Function Call: WRITE	Prompt: !,"ago, and have some form of an active insurance eligibility in" Line Location: ASKDATE+6
Function Call: WRITE	Prompt: !,"Medicare, Medicaid, Private or Railroad insurance." Line Location: ASKDATE+7
Function Call: WRITE	Prompt: !!,"Those patients whose DATE OF LAST REG UPDATE field is greater than" Line Location: ASKDATE+8
Function Call: WRITE	Prompt: !,MINDT," are not included in this audit!" Line Location: ASKDATE+9
Function Call: WRITE	Prompt: ! Line Location: ASKDATE+10
Function Call: WRITE	Prompt: !!,"The date must be between ",MINDT," and TODAY" Line Location: DTAGAIN+5
Function Call: WRITE	Prompt: !!,"You have entered ",Y,! Line Location: DTAGAIN+9
Routine Call	DIE Line Location: EDENTRY+7
Routine Call	DIC Line Location: NEWPT+6 NEWERR+7
Routine Call	DIR Line Location: ASKEWB+4 ASKTYPE+4 ASKERR+4 ASKSOME+5 DETAIL+4 DETAIL+5 DETAIL+30 DETAIL+34 DETAIL+35 DETAIL+36 DETAIL+37 LOCSEL+7 ASKLOC+3 ASKAGAIN+9 DTAGAIN+4 DTAGAIN+14
Routine Call	%ZIS Line Location: PRTALL+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGEDERRS - [#9009061.5]	ASKSOME+12, PRTALL+25
^AGERRAUD - [#9009061.6]	PRINT+14, PRINT+15, PRINT+26, PRTALL+30
^AGERRAUD("B"	EDENTRY+2, PRINT+6, PRINT+13, PRTALL+13, PRTALL+16
^AGERRAUD("C"	CAPTURE+2, CAPTURE+3, EDENTRY+3
^AGERRAUD("D"	CAPTURE+9, PRTALL+20, PRTALL+21, PRTALL+23, PRTALL+29
^AGERRAUD("E"	NEWPT+18*, PRINT+9, PRTALL+34, PRTALL+35, PRTALL+36, PRTALL+40, PRTALL+41, PRTALL+46, PRTALL+47, PRTALL+48 , PRTALL+52, PRTALL+53
^AGERRAUD(1	PRINT+11, ERRSITE+2
^AUPNPAT - [#9000001]	NEWPT+10, NEWPT+11, NEWPT+16, DETAIL+19
^AUPNPAT(0	PRINT+11
^DD("DD"	PRINT+19, PRINT+27, DETAIL+24, ASKDATE+2, DTAGAIN+8
^DIC(4 - [#4]	PRTALL+21, DETAIL+23
^DPT - [#2]	DETAIL+17, DETAIL+18
^XTMP("AGERRAUD"	PRTALL+9!, PRTALL+37, PRTALL+42, PRTALL+49, PRTALL+54, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+8, DETAIL+10 , DETAIL+15, DETAIL+16, DETAIL+30, DETAIL+33, DETAIL+34, DETAIL+35, DETAIL+36, EXIT+3!

Label References

Name	Line Occurrences
$$ERRSITE	PRTALL+21
$$NEWERR	CAPTURE+9
$$NEWPT	CAPTURE+2
ASKDATE	PRTALL+4
ASKLOC	PRTALL+1
ASKSOME	ASKSOME+12, ASKSOME+15
ASKTYPE	ASKERR+5
DETAIL	PRTALL+55
DTAGAIN	DTAGAIN+5, DTAGAIN+15
EXIT	ASKEWB+5, ASKTYPE+5
EXITCAP	CAPTURE+4, CAPTURE+11
LOCSEL	PRTALL+3
PRINT	ASKERR+7, ASKSOME+6, ASKSOME+7, ASKSOME+16, PRTALL+2, PRTALL+3
PRTALL	ASKERR+7, ASKSOME+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRTALL+7
>> AGLINE("EQ"	PRINT+2*
AORONE	PRTALL+2, PRTALL+3, PRTALL+32, PRTALL+38, PRTALL+44, PRTALL+50, ASKLOC+1!, ASKLOC+5*
ASKSOME	ASKERR+7, ASKERR+8!, ASKSOME+2, ASKSOME+6, ASKSOME+7, ASKSOME+15, PRTALL~, PRTALL+24, EXIT+1!
AUDITERR	CAPTURE~
AUDITERR(	CAPTURE+6, CAPTURE+7
CENTER	EXIT+1!
>> CODEOLD	DETAIL+9, DETAIL+13
CODETYPE	ASKEWB+6*, ASKSOME+3, ASKSOME+12, ASKSOME+13, PRTALL+27, EXIT+3!
DA	NEWPT+1!, NEWERR+1!, EDENTRY+1!, EDENTRY+3*
DA(1	NEWPT+2, NEWPT+3, NEWERR+3, NEWERR+5
DA(2	NEWERR+2*, NEWERR+5
DIC	NEWPT+1!, NEWPT+3, NEWERR+1!, NEWERR+5, EDENTRY+1!
DIC(0	NEWPT+4, NEWERR+4
DIE	NEWPT+1!, NEWERR+1!, EDENTRY+1!, EDENTRY+4*
DIR	ASKEWB+1!, ASKTYPE+1!, ASKERR+1!, ASKSOME+1!, DETAIL+4!, DETAIL+5!, DETAIL+30!, DETAIL+34!, DETAIL+35!, DETAIL+36! , DETAIL+37!, LOCSEL+2!, LOCSEL+10!, ASKLOC+1!, ASKAGAIN+1!, DTAGAIN+1!, DTAGAIN+10!
DIR("A"	ASKEWB+3, ASKTYPE+3, ASKERR+2, ASKSOME+2, LOCSEL+4, ASKAGAIN+2, ASKAGAIN+3, ASKAGAIN+4, ASKAGAIN+5, ASKAGAIN+7 , DTAGAIN+12*
DIR("B"	ASKAGAIN+6, DTAGAIN+2, DTAGAIN+11*
DIR("S"	ASKSOME+3, LOCSEL+5
DIR(0	ASKEWB+2, ASKTYPE+2, ASKERR+3, ASKSOME+4, DETAIL+4, DETAIL+5, DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36 , DETAIL+37, LOCSEL+6, ASKLOC+2, ASKAGAIN+8, DTAGAIN+3, DTAGAIN+13
>> DIROUT	ASKEWB+5, ASKTYPE+5, ASKERR+5, LOCSEL+3, ASKLOC+4, ASKAGAIN+10, DTAGAIN+6
>> DIRUT	ASKEWB+5, ASKTYPE+5, ASKERR+5
DR	NEWPT+1!, NEWERR+1!, EDENTRY+1!, EDENTRY+5*
DR(2	EDENTRY+6*
DT	NEWPT+17, EDENTRY+2, PRINT+16, ASKDATE+2, ASKAGAIN+11, DTAGAIN+5
>> DTIEN	EDENTRY+2*, EDENTRY+3, EDENTRY+4
>> DTOUT	ASKEWB+5, ASKTYPE+5, ASKERR+5, LOCSEL+3, ASKLOC+4, ASKAGAIN+10, DTAGAIN+6
DTREC	CAPTURE+2, CAPTURE+3, CAPTURE+9, EXITCAP+1!, NEWPT~, NEWPT+2, NEWERR~, NEWERR+2, PRINT+13, PRINT+14 , PRINT+15, PRINT+26, PRTALL+16, PRTALL+29, PRTALL+30
>> DUOUT	ASKEWB+5, ASKTYPE+5, ASKERR+5, LOCSEL+3, ASKLOC+4, ASKAGAIN+10, DTAGAIN+6
>> DURATION	PRINT+16*, PRINT+21, PRINT+22
DUZ(0	DETAIL+22
>> E	PRINT+9*, PRINT+10
ERRCODE	CAPTURE+8, CAPTURE+9, EXITCAP+1!, NEWERR~, NEWERR+6, EDENTRY~, PRTALL+22, PRTALL+23, PRTALL+24, PRTALL+25 , PRTALL+29, PRTALL+37, PRTALL+42, PRTALL+49, PRTALL+54, DETAIL+9, DETAIL+10*, DETAIL+13, DETAIL+15, DETAIL+16 , DETAIL+30, DETAIL+33, DETAIL+34, EXIT+1!
ERRDESCR	EXIT+1!
>> ERRDT	PRINT+6, PRINT+7, PRINT+13, PRTALL+13, PRTALL+15, PRTALL+16
ERRNODE	PRTALL+25*, PRTALL+26, EXIT+1!
ERRREC	CAPTURE+5, CAPTURE+6, CAPTURE+7, CAPTURE+8, CAPTURE+9, CAPTURE+11, EXITCAP+1!, NEWERR+10, NEWERR+11, EXIT+1!
ERRRESP	ASKSOME+11!, ASKSOME+13*, ASKSOME+14, EXIT+3!
ERRTYP	PRTALL+8*, EXIT+1!
ERRTYPE	PRTALL+26, PRTALL+27, PRTALL+37, PRTALL+42, PRTALL+49, PRTALL+54, DETAIL+7, DETAIL+8*, DETAIL+10, DETAIL+15 , DETAIL+16, DETAIL+30, DETAIL+33, DETAIL+34, DETAIL+35, EXIT+1!
ESCAPE	DETAIL+1, DETAIL+6, DETAIL+8, DETAIL+10, DETAIL+15, DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36, DETAIL+37 , EXIT+1!
FAC	NEWPT+9, NEWPT+10, NEWPT+18, NEWPT+19!, PRTALL+33, PRTALL+34, PRTALL+35, PRTALL+36, PRTALL+37, PRTALL+39* , PRTALL+40, PRTALL+41, PRTALL+42, PRTALL+45, PRTALL+46, PRTALL+47, PRTALL+48, PRTALL+49, PRTALL+51, PRTALL+52 , PRTALL+53, PRTALL+54, DETAIL+2, DETAIL+5, DETAIL+6*, DETAIL+8, DETAIL+10, DETAIL+15, DETAIL+16, DETAIL+19 , DETAIL+23, DETAIL+30, DETAIL+33, DETAIL+34, DETAIL+35, DETAIL+36, EXIT+3!
>> FACSEL	PRTALL+3, PRTALL+39, PRTALL+51, DETAIL+4, LOCSEL+1, LOCSEL+8, LOCSEL+9*
>> I	LOCSEL+3*
IO	PRTALL+6
IO("S"	DETAIL+4, DETAIL+5, DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36, DETAIL+37
IO("SD"	DETAIL+4
IOSL	DETAIL+30, DETAIL+33, DETAIL+34, DETAIL+35, DETAIL+36
IOST	DETAIL+4, DETAIL+5, DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36, DETAIL+37
>> LASTBEG	PRINT+14, PRINT+16, PRINT+19, PRINT+20
>> LASTFIN	PRINT+15*, PRINT+16, PRINT+17
>> LASTRUN	PRINT+26, PRINT+27, PRINT+31
>> MINDT	ASKDATE+3*, ASKDATE+9, DTAGAIN+2, DTAGAIN+5
NEWMIN	PRTALL+36, PRTALL+41, PRTALL+48, PRTALL+53, ASKAGAIN+11, DTAGAIN+1!, DTAGAIN+7
>> NOERR	PRINT+1, PRINT+10, ASKERR+7, ASKSOME+7, PRTALL+15, PRTALL+20, PRTALL+21, DETAIL+4, DETAIL+5*
NUMPT	PRTALL+29, DETAIL+16, EXIT+1!
>> OLDERR	DETAIL+7*
PDFN	CAPTURE~, CAPTURE+2, CAPTURE+3, EXITCAP+1!, NEWPT~, NEWPT+5, NEWPT+10, NEWPT+11, NEWPT+16, NEWPT+18 , EDENTRY~, EDENTRY+3, PRTALL+30, PRTALL+35, PRTALL+36, PRTALL+37, PRTALL+40, PRTALL+41, PRTALL+42, PRTALL+47 , PRTALL+48, PRTALL+52, PRTALL+53, DETAIL+14, DETAIL+15*, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+19, DETAIL+22 , DETAIL+30, DETAIL+33, ERRSITE+1~, EXIT+1!
PDOB	DETAIL+18, DETAIL+24, DETAIL+25, EXIT+1!
PFAC	EXIT+2!
PGNUM	ASKEWB+7*, EXIT+3!
PHRN	DETAIL+19*, DETAIL+21, EXIT+2!
PNAME	DETAIL+17*, DETAIL+20, EXIT+2!
POP	PRTALL+5, EXIT+2!
PTREC	CAPTURE+2, CAPTURE+3, CAPTURE+4, CAPTURE+9, EXITCAP+1!, NEWPT+8, NEWPT+20, NEWERR~, NEWERR+3, EDENTRY+3 , EDENTRY+4, PRTALL+28, PRTALL+29, PRTALL+30, EXIT+2!
REPTIME	PRTALL+7*, EXIT+2!
RPTTYPE	ASKTYPE+6*, PRTALL+31, PRTALL+43, PRTALL+55, EXIT+2!
>> SEL	PRTALL+39, PRTALL+51
U	NEWPT+11, NEWPT+16, PRINT+11, PRINT+14, PRINT+15, PRINT+26, ASKSOME+7, ASKSOME+12, ASKSOME+15, PRTALL+21 , PRTALL+24, PRTALL+26, PRTALL+30, PRTALL+49, PRTALL+54, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+19, DETAIL+23 , DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36, DETAIL+37, ERRSITE+2
UPDDATE	NEWPT+11, NEWPT+16, NEWPT+17*, NEWPT+18, EXIT+3!
>> X	NEWPT+5, NEWERR+6, PRINT+16, ASKSOME+6, ASKSOME+7, DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36, DETAIL+37 , LOCSEL+3, ASKLOC+5
>> X1	PRINT+16*
>> X2	PRINT+16*
>> Y	NEWPT+7, NEWPT+8, NEWERR+9, NEWERR+10, PRINT+19, PRINT+27, ASKEWB+6, ASKTYPE+6, ASKERR+7, ASKSOME+12 , ASKSOME+15, PRTALL+7, DETAIL+24, LOCSEL+7, LOCSEL+8, LOCSEL+9, ASKLOC+3, ASKDATE+2*, ASKDATE+3, ASKAGAIN+11 , DTAGAIN+5, DTAGAIN+7, DTAGAIN+9, DTAGAIN+15
>> ZTQUEUED	CAPTURE+4, CAPTURE+11

Customize PDF page

Package: IHS Patient Registration

Routine: AGERRAUD

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: