Routine: ABSPOSR7

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	^DIC ^DIR
IHS Patient Registration	1	$$GETMCR^AGUTL

Entry Points

Name	Comments	DBIA/ICR reference
DISP(ABSPNAME)	;display list of insurers
OUTPUT(ABSPTYPE,ABSPELDT,ABSPDTL,ABSPNAME,ABSPCNT,ABSPTOT,ABSPSU)	;
EN
HDR(ABSPNAME,ABSPELDT,ABSPTYPE,ABSPPG)
INACT()	;include inactive/deceased pts?
INS(ABSPTYPE)	; SELECT THE INSURER OR CHOOSE ALL INSURERS
MEDICARE(ABSPLIST,ABSPELDT,ABSPDEAD,ABSPCNT,ABSPTOT,ABSPSU)	;
COUNTIT(ABSPLIST,ABSPTYPE,ABSPELDT,ABSPDEAD,ABSPCNT,ABSPTOT,ABSPSU)	;do counts for selected insurers
INSTYPE()
SUHDR(ABSPDTL,ABSPSU,ABSPSRV)
DETAILQ()	;
GETINS(ABSPINS,ABSPTYPE,ABSPLIST,ABSPNAME)	;RETURN info on specified insurer or all of identified type
PRIVATE(ABSPLIST,ABSPELDT,ABSPDEAD,ABSPCNT,ABSPTOT,ABSPSU)
DEVSEL	; SELECT DEVICE
ELIGDT()	;get list for what date-default to today
MEDICAID(ABSPLIST,ABSPELDT,ABSPDEAD,ABSPCNT,ABSPTOT,ABSPSU)	;
MESSAGE	;
CENTER(X)
DETAIL(ABSPNAME,ABSPSU,ABSPSRV,ABSPINS,ABSPELDT,ABSPTYPE,ABSPPG)

External References

Name	Field # of Occurrence
^%ZIS	DEVSEL+3, DEVSEL+4
^%ZISC	DEVSEL+6
$$GETMCR^AGUTL	MEDICARE+30
^DIC	INS+6
^DIR	INSTYPE+5, ELIGDT+7, INACT+6, DETAILQ+6, OUTPUT+31, DETAIL+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Reporting For Insurance Type: "_ABSPTYPE Line Location: EN+12
Function Call: WRITE	Prompt: !,"Gathering data...",! Line Location: EN+23
Function Call: WRITE	Prompt: !?2,"This option will print information about the number of registered patients" Line Location: MESSAGE+1
Function Call: WRITE	Prompt: !?2,"who are currently enrolled in an insurance type that you will select." Line Location: MESSAGE+2
Function Call: WRITE	Prompt: !?2,"You will be asked if you wish to include only active patients." Line Location: MESSAGE+3
Function Call: WRITE	Prompt: !?2,"You will be asked to select a particular POS insurance company of the type selected" Line Location: MESSAGE+4
Function Call: WRITE	Prompt: !?2,"PATIENT DETAIL can be selected unless ALL insurance companies are specified" Line Location: MESSAGE+5
Function Call: WRITE	Prompt: !!?2,"You will be asked to enter an ""As of"" date to be used in determining" Line Location: MESSAGE+6
Function Call: WRITE	Prompt: !?2,"those patients who are ""actively"" enrolled in a plan of the selected type." Line Location: MESSAGE+7
Function Call: WRITE	Prompt: !," The following POS Insurer(s) will be included on this report:" Line Location: DISP+2
Function Call: WRITE	Prompt: !,"No POS Insurers Found" Line Location: DISP+4
Function Call: WRITE	Prompt: !," "_ABSPNAM Line Location: DISP+5
Function Call: WRITE	Prompt: ! Line Location: ELIGDT+2
Function Call: WRITE	Prompt: " ("_Y(0)_")" Line Location: ELIGDT+11
Function Call: WRITE	Prompt: ! Line Location: INACT+1
Function Call: WRITE	Prompt: ! Line Location: DETAILQ+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,Y,?68,"Page ",ABSPPG Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+14
Function Call: WRITE	Prompt: !!?2,"Service Unit: "_ABSPSRV_" "_$G(ABSPSU(ABSPSRV)),! Line Location: SUHDR+1
Function Call: WRITE	Prompt: !?2,"PLAN NAME",?50,"COUNT" Line Location: SUHDR+2
Function Call: WRITE	Prompt: !,ABSPLINE,! Line Location: SUHDR+5
Function Call: WRITE	Prompt: ?CENTER-($L(X)/2),X Line Location: CENTER+2
Routine Call	DIC Line Location: INS+6
Routine Call	DIR Line Location: INSTYPE+5 ELIGDT+7 INACT+6 DETAILQ+6 OUTPUT+31 DETAIL+18
Routine Call	%ZIS Line Location: DEVSEL+3 DEVSEL+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPEI - [#9002313.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPEI - [#9002313.4]	GETINS+5, GETINS+6
^AUPN3PPH - [#9000003.1]	PRIVATE+19
^AUPNMCD - [#9000004]	MEDICAID+4, MEDICAID+5, MEDICAID+8, MEDICAID+9, MEDICAID+11, MEDICAID+19, MEDICAID+23, MEDICAID+24, MEDICAID+38
^AUPNMCR - [#9000003]	MEDICARE+4, MEDICARE+5, MEDICARE+9, MEDICARE+10, MEDICARE+12, MEDICARE+16, MEDICARE+17
^AUPNPAT - [#9000001]	MEDICARE+20, MEDICARE+21, MEDICARE+31, PRIVATE+12, PRIVATE+13, PRIVATE+20, MEDICAID+28, MEDICAID+29, MEDICAID+39
^AUPNPRVT - [#9000006]	PRIVATE+3, PRIVATE+5, PRIVATE+6, PRIVATE+8, PRIVATE+9, PRIVATE+19
^AUTNINS - [#9999999.18]	GETINS+6, GETINS+7, GETINS+11, MEDICARE+27, PRIVATE+17, MEDICAID+10, MEDICAID+14, MEDICAID+15, MEDICAID+16, MEDICAID+35
^AUTTLOC - [#9999999.06]	MEDICARE+23, MEDICARE+24, MEDICARE+25, PRIVATE+15, PRIVATE+16, MEDICAID+31, MEDICAID+32, MEDICAID+33
^AUTTSU - [#9999999.22]	MEDICARE+23, PRIVATE+15, MEDICAID+31
^DD("DD"	HDR+4, HDR+7, HDR+15, DETAIL+7, DETAIL+10
^DIC(5 - [#5]	MEDICARE+26, PRIVATE+16, MEDICAID+34
^DPT - [#2]	MEDICARE+6, MEDICARE+7, MEDICARE+15, MEDICAID+6, MEDICAID+7, MEDICAID+22, DETAIL+5
^TMP($J	MEDICARE+28, MEDICARE+32, PRIVATE+18, PRIVATE+21, MEDICAID+37, MEDICAID+40*, OUTPUT+5, OUTPUT+32!, DETAIL+3, DETAIL+4 , DETAIL+6, DETAIL+9, DETAIL+12

Label References

Name	Line Occurrences
$$DETAIL	OUTPUT+22
$$DETAILQ	EN+20
$$ELIGDT	EN+15
$$INACT	EN+17
$$INS	EN+10
$$INSTYPE	EN+6
CENTER	HDR+10, HDR+13, HDR+16
COUNTIT	EN+24
DEVSEL	EN+22, DEVSEL+10
DISP	EN+14
GETINS	EN+13
HDR	OUTPUT+13, OUTPUT+19, DETAIL+21
MEDICAID	COUNTIT+1
MEDICARE	COUNTIT+3
MESSAGE	EN+4
OUTPUT	EN+25
PRIVATE	COUNTIT+2
SUHDR	OUTPUT+19, DETAIL+21

Naked Globals

Name	Field # of Occurrence
^(	MEDICARE+7, MEDICAID+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSPALL	INACT+2~, INACT+8, INACT+9, INACT+10
ABSPCNT	EN+2~, EN+24, EN+25, COUNTIT~, COUNTIT+1, COUNTIT+2, COUNTIT+3, MEDICARE~, PRIVATE~, MEDICAID~ , OUTPUT~
ABSPCNT(	MEDICARE+33, PRIVATE+22, MEDICAID+41, OUTPUT+9, OUTPUT+14, OUTPUT+16, OUTPUT+18, OUTPUT+21
ABSPCOV	MEDICARE+1~, MEDICARE+10*, MEDICARE+11, MEDICAID+1~
ABSPDEAD	EN+1~, EN+17*, EN+18, EN+24, COUNTIT~, COUNTIT+1, COUNTIT+2, COUNTIT+3, MEDICARE~, MEDICARE+15 , MEDICARE+22, PRIVATE~, PRIVATE+14, MEDICAID~, MEDICAID+22, MEDICAID+30
ABSPDPT	MEDICARE+2~, MEDICARE+5, MEDICARE+6, MEDICARE+7, MEDICARE+28, MEDICARE+32, MEDICAID+2~, MEDICAID+5, MEDICAID+6, MEDICAID+7 , MEDICAID+37, MEDICAID+40
ABSPDTL	EN+1~, EN+5, EN+20, EN+21, EN+25, DETAILQ+2~, DETAILQ+8, DETAILQ+9, DETAILQ+10, OUTPUT~ , OUTPUT+19, OUTPUT+22, SUHDR~, SUHDR+3
ABSPEDT	MEDICARE+1~, MEDICARE+17, MEDICARE+18, MEDICARE+32, PRIVATE+1~, PRIVATE+9, PRIVATE+10, PRIVATE+21, MEDICAID+1~, MEDICAID+24* , MEDICAID+26, MEDICAID+40
ABSPEIEN	MEDICARE+1~, MEDICARE+8, MEDICARE+9, MEDICARE+10, MEDICARE+12, MEDICARE+16, MEDICARE+17, MEDICAID+1~, MEDICAID+18, MEDICAID+19 , MEDICAID+23, MEDICAID+24, OUTPUT+2~
ABSPELDT	EN+1~, EN+15, EN+16, EN+24, EN+25, ELIGDT+1~, ELIGDT+10, ELIGDT+12, COUNTIT~, COUNTIT+1 , COUNTIT+2, COUNTIT+3, MEDICARE~, MEDICARE+7, MEDICARE+18, MEDICARE+30, PRIVATE~, PRIVATE+10, MEDICAID~, MEDICAID+7 , MEDICAID+26, OUTPUT~, OUTPUT+13, OUTPUT+19, OUTPUT+22, HDR~, HDR+7, HDR+15, DETAIL~, DETAIL+21
ABSPEN	MEDICARE+1~, MEDICARE+3, MEDICARE+4, MEDICARE+5, MEDICARE+9, MEDICARE+10, MEDICARE+12, MEDICARE+15, MEDICARE+16, MEDICARE+17 , MEDICARE+20, MEDICARE+21, MEDICARE+30, MEDICARE+31, PRIVATE+1~, PRIVATE+4, PRIVATE+5, PRIVATE+6, PRIVATE+8, PRIVATE+9 , PRIVATE+19, MEDICAID+1~, MEDICAID+3, MEDICAID+4, MEDICAID+5, MEDICAID+8, MEDICAID+9, MEDICAID+11, MEDICAID+19, MEDICAID+22 , MEDICAID+23, MEDICAID+24, MEDICAID+28, MEDICAID+29, MEDICAID+38, MEDICAID+39, OUTPUT+2~
>> ABSPFND	MEDICAID+13, MEDICAID+14, MEDICAID+17
ABSPHRN	MEDICARE+1~, MEDICARE+19, MEDICARE+20, MEDICARE+21, MEDICARE+22, MEDICARE+23, MEDICARE+24, MEDICARE+25, MEDICARE+31, PRIVATE+1~ , PRIVATE+11, PRIVATE+12, PRIVATE+13, PRIVATE+15, PRIVATE+16, PRIVATE+20, MEDICAID+1~, MEDICAID+27, MEDICAID+28, MEDICAID+29 , MEDICAID+30, MEDICAID+31, MEDICAID+32, MEDICAID+33, MEDICAID+39
ABSPHRNN	MEDICARE+1~, MEDICARE+31, MEDICARE+32, PRIVATE+1~, PRIVATE+20, PRIVATE+21, MEDICAID+1~, MEDICAID+39*, MEDICAID+40
ABSPHRNS	MEDICARE+1~, MEDICARE+21, PRIVATE+1~, PRIVATE+13, PRIVATE+14, MEDICAID+1~, MEDICAID+29*
ABSPINS	EN+1~, EN+10, EN+11, EN+13, EN+19, EN+20, INS+1~, INS+8, INS+9*, INS+10 , GETINS~, GETINS+4, GETINS+10, GETINS+11, GETINS+12, GETINS+13, DETAIL~, DETAIL+3, DETAIL+4, DETAIL+6 , DETAIL+9, DETAIL+12
ABSPINSN	MEDICAID+1~
>> ABSPINSP	MEDICAID+9*, MEDICAID+10, MEDICAID+14, MEDICAID+15, MEDICAID+16
ABSPIT	OUTPUT+2~
ABSPLINE	EN+1~, EN+3*, SUHDR+5
ABSPLIST	EN+1~, EN+13, EN+24, GETINS~, COUNTIT~, COUNTIT+1, COUNTIT+2, COUNTIT+3, MEDICARE~, PRIVATE~ , MEDICAID~
ABSPLIST(	GETINS+8, GETINS+12, MEDICARE+14, PRIVATE+7, MEDICAID+21
>> ABSPMFI	MEDICAID+12, MEDICAID+14, MEDICAID+15, MEDICAID+16
ABSPNAM	GETINS+2~, GETINS+7, GETINS+8, GETINS+9, GETINS+11, GETINS+12, GETINS+13, DISP+1~, DISP+3, DISP+5 , MEDICARE+1~, MEDICARE+27, MEDICARE+33, PRIVATE+1~, PRIVATE+17, PRIVATE+22, MEDICAID+1~, MEDICAID+35, MEDICAID+41, OUTPUT+2~ , OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+9, OUTPUT+15, OUTPUT+16, OUTPUT+18, OUTPUT+20, OUTPUT+21, HDR+1~ , HDR+8, HDR+9*, HDR+11, HDR+13
ABSPNAME	EN+2~, EN+13, EN+14, EN+25, GETINS~, DISP~, OUTPUT~, OUTPUT+13, OUTPUT+19, OUTPUT+22 , HDR~, DETAIL~, DETAIL+21
ABSPNAME(	GETINS+9, GETINS+13, DISP+5, OUTPUT+7, OUTPUT+8, HDR+9, HDR+11
ABSPNAME(""	DISP+4
ABSPNS	GETINS+2~, GETINS+3, GETINS+5, GETINS+6, GETINS+7, GETINS+8, GETINS+9, PRIVATE+1~, PRIVATE+6, PRIVATE+7 , PRIVATE+17, PRIVATE+18, PRIVATE+21, PRIVATE+22, OUTPUT+2~, OUTPUT+8, OUTPUT+9, OUTPUT+17, OUTPUT+18, OUTPUT+21 , OUTPUT+22
ABSPPG	OUTPUT+2~, OUTPUT+12, OUTPUT+13, OUTPUT+19, OUTPUT+22, HDR~, HDR+3, HDR+5, DETAIL~, DETAIL+21
ABSPPIEN	MEDICARE+1~, MEDICARE+12, MEDICARE+13, MEDICARE+14, MEDICARE+27, MEDICARE+28, MEDICARE+32, MEDICARE+33, MEDICAID+2~, MEDICAID+16 , MEDICAID+20, MEDICAID+21, MEDICAID+35, MEDICAID+37, MEDICAID+40, MEDICAID+41, OUTPUT+2~
ABSPPN	MEDICARE+2~, MEDICARE+30, MEDICARE+32, PRIVATE+1~, PRIVATE+19, PRIVATE+21, MEDICAID+1~, MEDICAID+2~, MEDICAID+38*, MEDICAID+40
ABSPPT	DETAIL+1~, DETAIL+2, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+9, DETAIL+12
ABSPQUIT	MEDICARE+1~, MEDICARE+3, MEDICARE+13, MEDICARE+14, MEDICARE+15, MEDICARE+22, MEDICAID+1~, MEDICAID+3, MEDICAID+20, MEDICAID+21 , MEDICAID+22, MEDICAID+30, OUTPUT+2~, OUTPUT+3, OUTPUT+18, OUTPUT+22, OUTPUT+24, OUTPUT+27, OUTPUT+31, DETAIL+1~ , DETAIL+2, DETAIL+3, DETAIL+14, DETAIL+19*, DETAIL+20, DETAIL+22
ABSPSDT	MEDICARE+1~, MEDICARE+16, MEDICARE+18, MEDICARE+32, PRIVATE+1~, PRIVATE+8, PRIVATE+10, PRIVATE+21, MEDICAID+1~, MEDICAID+23* , MEDICAID+25, MEDICAID+26, MEDICAID+40
ABSPSRV	SUHDR~, SUHDR+1, DETAIL~, DETAIL+3, DETAIL+4, DETAIL+6, DETAIL+9, DETAIL+12, DETAIL+21
ABSPSTOP	DEVSEL+1~, DEVSEL+2, DEVSEL+7, DEVSEL+8
>> ABSPSTP	MEDICAID+11*, MEDICAID+15
ABSPSU	EN+2~, EN+24, EN+25, COUNTIT~, COUNTIT+1, COUNTIT+2, COUNTIT+3, MEDICARE~, MEDICARE+23, MEDICARE+26 , MEDICARE+28, MEDICARE+32, MEDICARE+33, MEDICARE+34, PRIVATE~, PRIVATE+15, PRIVATE+16, PRIVATE+18, PRIVATE+21, PRIVATE+22 , PRIVATE+23, MEDICAID~, MEDICAID+31*, MEDICAID+34, MEDICAID+37, MEDICAID+40, MEDICAID+41, MEDICAID+42, OUTPUT~, OUTPUT+19 , OUTPUT+22, SUHDR~, DETAIL~, DETAIL+21
ABSPSU(	MEDICARE+26, PRIVATE+16, MEDICAID+34*, SUHDR+1
ABSPSU2	OUTPUT+2~, OUTPUT+10, OUTPUT+19
ABSPSUC	MEDICARE+2~, MEDICARE+24, MEDICARE+26, MEDICAID+2~, MEDICAID+32, MEDICAID+34, OUTPUT+2~
ABSPSUS	MEDICARE+2~, MEDICARE+25, MEDICARE+26, MEDICAID+2~, MEDICAID+33, MEDICAID+34, OUTPUT+2~
ABSPSVC	OUTPUT+2~, OUTPUT+4, OUTPUT+5, OUTPUT+9, OUTPUT+11, OUTPUT+14, OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+21 , OUTPUT+22, OUTPUT+25, OUTPUT+26
ABSPTIEN	PRIVATE+1~, PRIVATE+2, PRIVATE+3, PRIVATE+5, PRIVATE+6, PRIVATE+8, PRIVATE+9, PRIVATE+12, PRIVATE+13, PRIVATE+18 , PRIVATE+19, PRIVATE+20, PRIVATE+21
ABSPTOT	EN+2~, EN+24, EN+25, COUNTIT~, COUNTIT+1, COUNTIT+2, COUNTIT+3, MEDICARE~, PRIVATE~, MEDICAID~ , OUTPUT~
ABSPTOT(	MEDICARE+34, PRIVATE+23, MEDICAID+42*, OUTPUT+26
ABSPTOT("TOTAL"	MEDICARE+35, PRIVATE+24, MEDICAID+43*, OUTPUT+29
ABSPTYPE	EN+1~, EN+6, EN+7, EN+8, EN+9, EN+12, EN+24, EN+25, INS~, INS+5 , GETINS~, GETINS+6, COUNTIT~, COUNTIT+1, COUNTIT+2, COUNTIT+3, OUTPUT~, OUTPUT+13, OUTPUT+19, OUTPUT+22 , HDR~, HDR+10, DETAIL~, DETAIL+21
ABSPTYPI	EN+1~, EN+8*, EN+10, EN+13
>> CENTER	CENTER+1*, CENTER+2
DIC	INS+1~, INS+4*, INS+6!, ELIGDT+3!, INACT+2~, DETAILQ+2~
DIC("A"	INS+3*
DIC("S"	INS+5*
DIC(0	INS+2*
DIE	ELIGDT+3!, INACT+2~, DETAILQ+2~
DIR	ELIGDT+3!, ELIGDT+8!, INACT+2~, DETAILQ+2~, OUTPUT+31!, DETAIL+16!
DIR("A"	INSTYPE+4, ELIGDT+5, INACT+4, DETAILQ+4
DIR("B"	INSTYPE+3, ELIGDT+6, INACT+5, DETAILQ+5
DIR(0	INSTYPE+2, ELIGDT+4, INACT+3, DETAILQ+3, OUTPUT+31, DETAIL+17
>> DIROUT	INSTYPE+6, INS+7, ELIGDT+9, INACT+7, DETAILQ+7
>> DIRUT	INSTYPE+6, INS+7, ELIGDT+9, INACT+7, DETAILQ+7
DIX	INSTYPE+1~
DR	ELIGDT+3!, INACT+2~, DETAILQ+2~
DT	HDR+4
>> DTOUT	INSTYPE+6, INS+7, ELIGDT+9, INACT+7, DETAILQ+7
>> DUOUT	INSTYPE+6, INS+7, ELIGDT+9, INACT+7, DETAILQ+7, DEVSEL+5
IO("S"	OUTPUT+31, DETAIL+15
IOF	HDR+2
IOM	CENTER+1
IOSL	DETAIL+13
IOST	OUTPUT+31, DETAIL+13
>> POP	DEVSEL+4, DEVSEL+9
U	GETINS+6, GETINS+7, GETINS+11, MEDICARE+5, MEDICARE+7, MEDICARE+10, MEDICARE+12, MEDICARE+15, MEDICARE+16, MEDICARE+17 , MEDICARE+21, MEDICARE+23, MEDICARE+24, MEDICARE+25, MEDICARE+26, MEDICARE+27, MEDICARE+31, MEDICARE+32, PRIVATE+6, PRIVATE+8 , PRIVATE+9, PRIVATE+13, PRIVATE+15, PRIVATE+16, PRIVATE+17, PRIVATE+19, PRIVATE+20, PRIVATE+21, MEDICAID+5, MEDICAID+7 , MEDICAID+9, MEDICAID+10, MEDICAID+11, MEDICAID+15, MEDICAID+16, MEDICAID+22, MEDICAID+23, MEDICAID+24, MEDICAID+29, MEDICAID+31 , MEDICAID+32, MEDICAID+33, MEDICAID+34, MEDICAID+35, MEDICAID+38, MEDICAID+39, MEDICAID+40, OUTPUT+31, DETAIL+4, DETAIL+5 , DETAIL+6, DETAIL+9, DETAIL+12, DETAIL+19
X	INSTYPE+1~, INSTYPE+7, INS+1~, ELIGDT+3!, INACT+2~, DETAILQ+2~, OUTPUT+31, CENTER~, CENTER+2, DETAIL+19
Y	INSTYPE+1~, INS+1~, INS+8, INS+9, ELIGDT+3!, ELIGDT+10, INACT+2~, INACT+8, DETAILQ+2~, DETAILQ+8 , HDR+1~, HDR+4, HDR+5, HDR+7, HDR+15, HDR+16, DETAIL+1~, DETAIL+6, DETAIL+8, DETAIL+9* , DETAIL+11
Y(0	INSTYPE+7, ELIGDT+11

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSR7

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: