Routine: ABSPOS26

Information

ABSPOS26 ; IHS/FCS/DRS - put insurance in order ;

Source Information

Source file <ABSPOS26.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
IHS Patient Registration	1	$$INSTYP^AGUTL
Pharmacy Point of Sale	1	IMPOSS^ABSPOSUE

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOS28 ABSPOSPE

Entry Points

External References

Name	Field # of Occurrence
IMPOSS^ABSPOSUE	SEARHC0+6, WORKCOMP+13
$$INSTYP^AGUTL	WCINS+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	ISBEN+1
^ABSPCOMB - [#9002313.1]	COMBREC
^ABSPEI - [#9002313.4]	WCINS+2
^AUPN3PPH - [#9000003.1]	THRUEMPL+1, PHOLDDOB+1
^AUPNPAT - [#9000001]	AUTTBEN+2
^AUPNPAT("B"	AUTTBEN+1
^AUPNVPOV - [#9000010.07]	WORKREL+5
^AUPNVPOV("AD"	WORKREL+4
^AUTTRLSH - [#9999999.36]	RELATION+2

Label References

Name	Line Occurrences
$$AUTTBEN	ISBEN+1
$$COMBREC	PHOLDER, RELATION+1
$$FINDTYPE	SEARHC0+1, SEARHC0+2, SEARHC0+3, SEARHC0+5
$$INSIEN	WCINS+2, WCINS+4
$$INSTYPE	FINDTYPE+4, EMPLOY1+5, EMPLOY2+2, SELFRULE+2, BIRTHDAY+9
$$ISBEN	SEARHC0+4
$$ISCHILD	BIRTHDAY+11
$$PHOLDDOB	BIRTHDAY+15
$$PHOLDER	THRUEMPL, PHOLDDOB
$$PTS	PTSADD
$$RELATION	ISSPOUSE, ISCHILD, ISSELF, EMPLOY2+3, SELFRULE+3
$$THRUEMPL	EMPLOY1+6, EMPLOY2+3, BIRTHDAY+10
$$WCINS	WORKCOMP+4
$$WORKREL	WORKCOMP+1
PTSADD	PTSSUB, EMPLOY1+7, EMPLOY2+4, SELFRULE+3, BIRTHDAY+16
PTSSET	PTSADD, SEARHC0+7, WORKCOMP+7, WORKCOMP+11
PTSSUB	EMPLOY1+9
RULESET	SEARHC0+7, WORKCOMP+7, WORKCOMP+11, EMPLOY1+7, EMPLOY1+9, EMPLOY2+4, SELFRULE+3, BIRTHDAY+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%1	SELFRULE~
%2	SELFRULE~
%3	SELFRULE~
%4	SELFRULE~
A	WORKREL+3~, WORKREL+4, WORKREL+5, NULL~
ABSBPATI	COMBREC, ISBEN+1, SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY2~, BIRTHDAY~
ABSBVISI	WORKREL+4, SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY2~, BIRTHDAY~
ARRAY	SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY2~, SELFRULE~, BIRTHDAY~
ARRAY(	INSIEN, INSTYPE, COMBREC, PTS, PTSSET, RULESET, RULESET+1
ARRAY(0	FINDTYPE+3, WORKCOMP+3, EMPLOY1+4, EMPLOY2+1, SELFRULE+1, BIRTHDAY+8
AUPNPAT	AUTTBEN+1~*, AUTTBEN+2
B	NULL~
C	NULL~
D	NULL~
DELTA	PTSADD~, PTSSUB~
E	NULL~
I	FINDTYPE+2~, FINDTYPE+3, FINDTYPE+4, WORKCOMP+3~, WORKCOMP+4, WORKCOMP+7, WORKCOMP+11, EMPLOY1+4~, EMPLOY1+5, EMPLOY1+6 , EMPLOY1+7, EMPLOY1+9, EMPLOY2+1~, EMPLOY2+2, EMPLOY2+3, EMPLOY2+4, SELFRULE+1~, SELFRULE+2, SELFRULE+3, BIRTHDAY+8~* , BIRTHDAY+9, BIRTHDAY+10, BIRTHDAY+11, BIRTHDAY+15, BIRTHDAY+16, BIRTHDAY+17
N	INSIEN~, INSTYPE~, COMBREC~, FINDTYPE+2~, WCINS~, WCINS+2, WCINS+4, PHOLDER~, THRUEMPL~, PHOLDDOB~ , RELATION~, RELATION+1, ISSPOUSE~, ISCHILD~, ISSELF~, PTS~, PTSSET~, PTSADD~, PTSSUB~, RULESET~ , RULESET+1
PATDFN	AUTTBEN~, AUTTBEN+1
POINTS	PTSSET~
PTSMINUS	SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY1+9, EMPLOY2~, BIRTHDAY~
PTSPLUS	SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY1+7, EMPLOY2~, EMPLOY2+4, SELFRULE+3, BIRTHDAY~, BIRTHDAY+16
RET	FINDTYPE+2~, FINDTYPE+3, FINDTYPE+4, FINDTYPE+5, WORKREL+3~, WORKREL+4, WORKREL+5, WORKREL+6
RULE	RULESET~, RULESET+1
TYPE	FINDTYPE~, FINDTYPE+1*, FINDTYPE+4
U	INSIEN, INSTYPE, COMBREC, WCINS+2, PHOLDER, THRUEMPL+1, PHOLDDOB+1, RELATION+1, RELATION+2, PTS , PTSSET, RULESET, RULESET+1, AUTTBEN+2, WORKREL+5
WCINS	WORKCOMP+2~, WORKCOMP+4*, WORKCOMP+5, WORKCOMP+8, WORKCOMP+9, WORKCOMP+13
WCVISIT	WORKCOMP+1~*, WORKCOMP+7, WORKCOMP+11
X	WCINS+2~, WCINS+4, WCINS+5, WCINS+6, THRUEMPL~, THRUEMPL+1, PHOLDDOB~, PHOLDDOB+1, RELATION+1~, RELATION+2* , RELATION+3, ISSPOUSE~, ISSPOUSE+1, ISCHILD~, ISCHILD+1, ISCHILD+2, RULESET~, RULESET+1, AUTTBEN+2~, AUTTBEN+4 , AUTTBEN+5, SEARHC0+5~, SEARHC0+7, BIRTHDAY+15~, BIRTHDAY+16

Marked Items

Name	Field # of Occurrence
$T(	SEARHC0+6, WORKCOMP+13

Name	Comments	DBIA/ICR reference
RULESET(N,RULE)
PHOLDDOB(N)
WORKREL()
SEARHC0(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS)
WORKCOMP(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS)
PTSSET(N,POINTS)
INSIEN(N)
PTSADD(N,DELTA)
THRUEMPL(N)
PHOLDER(N)
NULL(A,B,C,D,E)	; ABSP1.0T710 ; This rule does nothing.
WCINS(N)
PTS(N)
EMPLOY1(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS)	; ; Insurance through employment takes precedence over ; insurance through private purchase ; Give it a plus, in the neighborhood of 10 points
ISBEN()	; Is ABSBPATI a "Beneficiary" according to local definition?
INSTYPE(N)
EMPLOY2(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS)
AUTTBEN(PATDFN)	;EP - return beneficiary code, from ^AUPNPAT
RELATION(N)
ISCHILD(N)
ISSELF(N)
ISSPOUSE(N)
BIRTHDAY(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS)
COMBREC(N)
SELFRULE(ARRAY,%1,%2,%3,%4)	; new with ABSP1.0T79
FINDTYPE(TYPE)
PTSSUB(N,DELTA)

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOS26

Call Graph Total: 2

Caller Graph Total: 2