Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGERRAUD

Package: IHS Patient Registration

Routine: AGERRAUD


Information

AGERRAUD ;IHS/ASDS/TPF - EDIT CHECK ERROR AUDIT CAPTURE AND PRINT ROUTINE;

Source Information

Source file <AGERRAUD.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All