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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGDATA

Package: IHS Patient Registration

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