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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGRPTINS

Package: IHS Patient Registration

Routine: AGRPTINS


Information

AGRPTINS ; IHS/SD/TPF - REPORT OF TOP 'N' INSURERS

Source Information

Source file <AGRPTINS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$CJ^XLFSTR  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
GENCOMPL(GLO,TARDATE,NONACT) ;EP - LETS DO THE OTHER INSURERS. PASS
EN ;EP
MAINHDR ;EP
HDR ;EP
ISACTIVE(EFFDT,ENDDT,TARDATE) ;
RUN(TARDATE,NONACT) ;EP
PRINTMAX(GLO) ;EP - PRINT THE MAX COUNTS OUT
ASKENTRY ;EP
ASKDT ;EP - ASK FOR THE 'POINT IN TIME'
CENTER(X) ;
SORTMAX(GLO) ;EP - GO THROUGH TEMP GLOBAL AND RE-SORT BY MAX
EXIT ;EP - CLEANUP VARS
ASKFAC ;EP - ASK FOR A SPECIFIC FACILITY OR ALL
ASKACTPT ;EP - ASK WHETHER TO DISREGARD NON-ACTIVE PATIENTS
QUE ;EP
ASKDEV ;EP
COMPILE(TARDATE,NONACT,MAXDISP) ;EP - GO THROUGH THE PRVT ELG FILE AND

External References

Name Field # of Occurrence
DD^%DT ASKENTRY+9, RUN+2
NOW^%DTC ASKENTRY+9, RUN+2
^%ZIS ASKDEV+2
^%ZISC ASKENTRY+16
^%ZTLOAD QUE+10
^DIR ASKFAC+4, ASKDT+5, ASKACTPT+4, ASKENTRY+5, PRINTMAX+14, PRINTMAX+20
$$CJ^XLFSTR HDR+8, HDR+9, HDR+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKDT+1
Function Call: WRITE
  • Prompt: !,"NO INSURANCE MEMBERS FOUND FOR ",$P($G(^DIC(4,TARFAC,0)),U)," FACILITES"
  • Line Location: RUN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("*** NOTE: IF YOU EDIT A PATIENT AND SEE THEIR NAME IN REVERSE VIDEO ***",IOM)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** WITH '(RHI)' BLINKING NEXT TO IT, IT MEANS THEY HAVE RESTRICTED ***",IOM)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*** HEALTH INFORMATION ***",IOM)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?CENTER-($L(X)/2),X
  • Line Location: CENTER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTMAX+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAINHDR+2
Function Call: WRITE
  • Prompt: !,$P($G(^VA(200,DUZ,0)),U)
  • Line Location: MAINHDR+3
Function Call: WRITE
  • Prompt: ?73,"Page ",PAGENO
  • Line Location: MAINHDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAINHDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MAINHDR+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAINHDR+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAINHDR+12
Function Call: WRITE
  • Prompt: !?2,"INSURER",?26,"COVERAGE TYPE",?61,"COUNT"
  • Line Location: MAINHDR+13
Function Call: WRITE
  • Prompt: !,$G(AGLINE("EQ"))
  • Line Location: MAINHDR+14
Routine Call
  • DIR
  • Line Location:
    • ASKFAC+4
    • ASKDT+5
    • ASKACTPT+4
    • ASKENTRY+5
    • PRINTMAX+14
    • PRINTMAX+20
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" HDR+1
^AUPNPAT - [#9000001] COMPILE+6, COMPILE+7, COMPILE+8, GENCOMPL+6, GENCOMPL+7, GENCOMPL+8
^AUPNPRVT - [#9000006] COMPILE+5, COMPILE+11, COMPILE+12, COMPILE+13, COMPILE+14, COMPILE+16
^AUTNINS - [#9999999.18] PRINTMAX+16
^AUTTPIC - [#9999999.65] COMPILE+14
^DIC(4 - [#4] RUN+7, HDR+5, MAINHDR+4
^VA(200 - [#200] MAINHDR+3
^XTMP( RUN+3!, RUN+7, COMPILE+18*, GENCOMPL+17*, SORTMAX+3, SORTMAX+5, SORTMAX+6, SORTMAX+7*, PRINTMAX+6, PRINTMAX+8
, PRINTMAX+10

Label References

Name Line Occurrences
$$ISACTIVE COMPILE+15, GENCOMPL+14
ASKACTPT ASKENTRY+6
ASKDEV ASKENTRY+10
ASKDT ASKACTPT+5
ASKFAC ASKDT+6
CENTER HDR+3, HDR+5, HDR+7, MAINHDR+4, MAINHDR+7, MAINHDR+9, MAINHDR+11
COMPILE RUN+4
EN ASKENTRY+11, ASKENTRY+17, RUN+7
EXIT ASKFAC+5
GENCOMPL RUN+6
HDR EN+3
MAINHDR PRINTMAX+1, PRINTMAX+20, PRINTMAX+21
PRINTMAX RUN+9
QUE ASKENTRY+12
RUN ASKENTRY+15
SORTMAX RUN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKENTRY+9, RUN+2
>> %ZIS ASKDEV+1*
AGLINE EXIT+1!
AGLINE("EQ" EN+2*, MAINHDR+14
CENTER CENTER+1*, CENTER+2, EXIT+1!
COVTYP COMPILE+14*, COMPILE+18, GENCOMPL+13*, GENCOMPL+17, SORTMAX+1~, SORTMAX+4*, SORTMAX+5*, SORTMAX+6, SORTMAX+7, PRINTMAX+9*
, PRINTMAX+10*, PRINTMAX+17, EXIT+1!
DIR ASKFAC+1!, ASKFAC+8!, ASKDT+2!, ASKDT+8!, ASKACTPT+1!, ASKACTPT+7!, ASKENTRY+1!, ASKENTRY+8!, PRINTMAX+14!, PRINTMAX+20!
, EXIT+1!
DIR("A" ASKFAC+2*, ASKDT+3*, ASKACTPT+2*, ASKENTRY+2*
DIR("B" ASKENTRY+3*
DIR(0 ASKFAC+3*, ASKDT+4*, ASKACTPT+3*, ASKENTRY+4*, PRINTMAX+14*, PRINTMAX+20*
DIROUT ASKFAC+1!, ASKFAC+5, ASKDT+2!, ASKDT+6, ASKACTPT+1!, ASKACTPT+5, ASKENTRY+1!, ASKENTRY+6
DIRUT ASKFAC+1!, ASKDT+2!, ASKDT+6, ASKACTPT+1!, ASKACTPT+5, ASKENTRY+1!, ASKENTRY+6
DTOUT ASKFAC+1!, ASKFAC+5, ASKDT+2!, ASKDT+6, ASKACTPT+1!, ASKACTPT+5, ASKENTRY+1!, ASKENTRY+6
DTREC GENCOMPL+9*, GENCOMPL+10*, GENCOMPL+11, GENCOMPL+12, GENCOMPL+13, EXIT+1!
DUOUT ASKFAC+1!, ASKFAC+5, ASKDT+2!, ASKDT+6, ASKACTPT+1!, ASKACTPT+5, ASKENTRY+1!, ASKENTRY+6
DUZ MAINHDR+3
DUZ(2 HDR+5, GENCOMPL+8, MAINHDR+4
EFFDT ISACTIVE~, ISACTIVE+2, ISACTIVE+6, ISACTIVE+7, ISACTIVE+8, EXIT+1!
ELIGCNT COMPILE+3*, COMPILE+17*, GENCOMPL+2~, GENCOMPL+3*, GENCOMPL+16*, EXIT+1!
ELIGDT COMPILE+12*, COMPILE+15, GENCOMPL+2~, GENCOMPL+11*, GENCOMPL+14, EXIT+1!
ENDDT ISACTIVE~, ISACTIVE+2, ISACTIVE+3*, ISACTIVE+5, ISACTIVE+7, ISACTIVE+8, EXIT+1!
ESCAPE PRINTMAX+3~, PRINTMAX+4*, PRINTMAX+6, PRINTMAX+8, PRINTMAX+10, PRINTMAX+13*, PRINTMAX+14, PRINTMAX+15, PRINTMAX+20*, EXIT+1!
EXPDT COMPILE+13*, COMPILE+15, GENCOMPL+2~, GENCOMPL+12*, GENCOMPL+14, EXIT+1!
GLO RUN+5*, RUN+6, GENCOMPL~, GENCOMPL+4, GENCOMPL+5, GENCOMPL+10, GENCOMPL+11, GENCOMPL+12, GENCOMPL+13, GENCOMPL+15
, SORTMAX~, PRINTMAX~, EXIT+1!
INS COMPILE+2~, COMPILE+10*, COMPILE+11*, COMPILE+12, COMPILE+13, COMPILE+14, COMPILE+16
INSPTR COMPILE+16*, COMPILE+18, GENCOMPL+15*, GENCOMPL+17, SORTMAX+1~, SORTMAX+2*, SORTMAX+3*, SORTMAX+5, SORTMAX+6, SORTMAX+7
, PRINTMAX+7*, PRINTMAX+8*, PRINTMAX+10, PRINTMAX+16
IO ASKENTRY+13, PRINTMAX+2
IO("Q" ASKENTRY+12, QUE+1!
IOF HDR+2, MAINHDR+2
IOM HDR+8, HDR+9, HDR+10, CENTER+1
IOSL PRINTMAX+20, PRINTMAX+21
IOST PRINTMAX+14, PRINTMAX+15, PRINTMAX+20
>> ITEM PRINTMAX+10*, PRINTMAX+11
LINE PRINTMAX+3~, PRINTMAX+4*, PRINTMAX+12*, PRINTMAX+13
MAX SORTMAX+6*, SORTMAX+7, PRINTMAX+3~, PRINTMAX+5*, PRINTMAX+6*, PRINTMAX+8, PRINTMAX+10, PRINTMAX+18
MAXDISP ASKENTRY+7*, COMPILE~, PRINTMAX+13, MAINHDR+7, QUE+2
NONACT ASKACTPT+6*, ASKENTRY+15, RUN~, RUN+4, RUN+6, COMPILE~, COMPILE+9, GENCOMPL~, MAINHDR+11, EXIT+1!
OPENEND ISACTIVE+1~, ISACTIVE+5*, ISACTIVE+6
PAGENO ASKENTRY+14*, MAINHDR+1*, MAINHDR+5, EXIT+1!
PDFN COMPILE+2~, COMPILE+4*, COMPILE+5*, COMPILE+6, COMPILE+7, COMPILE+8, COMPILE+11, COMPILE+12, COMPILE+13, COMPILE+14
, COMPILE+16, GENCOMPL+2~, GENCOMPL+3*, GENCOMPL+4*, GENCOMPL+5, GENCOMPL+6, GENCOMPL+7, GENCOMPL+8, GENCOMPL+10, GENCOMPL+11
, GENCOMPL+12, GENCOMPL+13, GENCOMPL+15
>> POP ASKENTRY+11
>> RANK PRINTMAX+6*
>> REPTIME ASKENTRY+9*, RUN+2*, MAINHDR+9
ROUTNAME EN+1*, RUN+3, RUN+7, RUN+8, RUN+9, COMPILE+18, GENCOMPL+17, SORTMAX+3, SORTMAX+5, SORTMAX+6
, SORTMAX+7, PRINTMAX+6, PRINTMAX+8, PRINTMAX+10, EXIT+1!
>> STATDT COMPILE+8*, COMPILE+9, GENCOMPL+8*
TARDATE ASKDT+7*, ASKENTRY+15, RUN~, RUN+4, RUN+6, COMPILE~, COMPILE+9, COMPILE+15, GENCOMPL~, GENCOMPL+14
, ISACTIVE~, ISACTIVE+6, ISACTIVE+7, ISACTIVE+8, EXIT+1!
TARFAC ASKFAC+1!, ASKFAC+6*, ASKFAC+7*, RUN+7, COMPILE+7, COMPILE+8, GENCOMPL+7, EXIT+1!
U RUN+7, HDR+5, COMPILE+8, COMPILE+12, COMPILE+13, COMPILE+14, COMPILE+16, GENCOMPL+8, GENCOMPL+11, GENCOMPL+12
, GENCOMPL+13, GENCOMPL+15, PRINTMAX+16, PRINTMAX+20, MAINHDR+3, MAINHDR+4
>> UCI HDR+1*
X ASKFAC+6, CENTER~, CENTER+2, PRINTMAX+20
>> Y ASKFAC+7, ASKDT+7, ASKACTPT+6, ASKENTRY+7, ASKENTRY+9*, RUN+2*, HDR+1
>> ZTDESC QUE+2*
>> ZTRTN QUE+2*
>> ZTSAVE("AGLINE" QUE+4*
>> ZTSAVE("MAXDISP" QUE+8*
>> ZTSAVE("NONACT" QUE+7*
>> ZTSAVE("PAGENO" QUE+9*
>> ZTSAVE("ROUTNAME" QUE+3*
>> ZTSAVE("TARDATE" QUE+6*
>> ZTSAVE("TARFAC" QUE+5*
>> ZTSK QUE+10

Marked Items

Name Field # of Occurrence
$T( EN+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All