Routine: AGRPTINS

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

Customize PDF page

Package: IHS Patient Registration

Routine: AGRPTINS

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items