Routine: ABSPOSCG

Information

ABSPOSCG ; IHS/SD/RLT - Set up ABSP() - CONT; [ 05/22/2006 9:00 AM ]

Source file <ABSPOSCG.m>

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSCC

Name	Comments	DBIA/ICR reference
MDFLG()	;EP ^ABSPOSCC
GETMDPOL()	;EP Called from ^ABSPOSCC ; /IHS/OIT/RAM ; 15 DEC 2017 ; Total rewrite to account for Medicare Bendficiary Identifier, or MBI. ; /IHS/OIT/RAM ; 21 MAR 18 ; update to # logic - scan for Medicare Part D first, return that from the original area if it exists. ; Does the individual have a new MBI? If so, get it and return.... Do we care? This isn't date specific, so everything is 'Today'... just get the info...
PHARNPI(X,Y)	;EP
RRNAME()	;EP ^ABSPOSCC
RRDFLG()	;EP ^ABSPOSCC
GETRRD()	;EP ^ABSPOSCC
OLDGETMDPOL()	;EP ^ABSPOSCC
RRDOB()	;EP ^ABSPOSCC
GETRRDPL()	;EP ^ABSPOSCC
GETMDIEN()	;EP ^ABSPOSCC

FileNo	Call Tags
^ABSPEI - [#9002313.4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.56 - [#9002313.56]	PHARNPI+7
^ABSP(9002313.99 - [#9002313.99]	RRDFLG+3, MDFLG+3
^ABSPEI - [#9002313.4]	RRDFLG+6, MDFLG+6
^ABSPF(9002313.92 - [#9002313.92]	RRDFLG+7, MDFLG+7
^AUPNMCR - [#9000003]	OLDGETMDPOL+3, OLDGETMDPOL+6, GETMDPOL+6, GETMDPOL+14
^AUPNRRE - [#9000005]	GETRRDPL+5, GETRRDPL+13, RRNAME+2, RRNAME+4, RRDOB+2, RRDOB+5
^PS(59 - [#59]	PHARNPI+9

Name	Field # of Occurrence
DOB	RRDOB+1~, RRDOB+2, RRDOB+6, RRDOB+7
FMTIEN	RRDFLG+1~, RRDFLG+6, RRDFLG+7, MDFLG+1~, MDFLG+6, MDFLG+7
>> INSIEN	RRDFLG+4, RRDFLG+6, MDFLG+4, MDFLG+6
INST	PHARNPI+6~, PHARNPI+9*, PHARNPI+10, PHARNPI+11
MDFLG	OLDGETMDPOL+6, GETMDPOL+6, MDFLG+1~, MDFLG+4, MDFLG+7, MDFLG+8
>> MDIEN	OLDGETMDPOL+6, GETMDPOL+6
MDPOL	OLDGETMDPOL+2~, OLDGETMDPOL+4, OLDGETMDPOL+6, OLDGETMDPOL+7, GETMDPOL+4~, GETMDPOL+6, GETMDPOL+8
NAME	RRNAME+1~, RRNAME+2, RRNAME+5, RRNAME+6
NPI	PHARNPI+6~, PHARNPI+11*, PHARNPI+12
OPSITE	PHARNPI+6~, PHARNPI+7*, PHARNPI+8, PHARNPI+9
>> PINSDA	GETRRDPL+5, GETRRDPL+9, GETRRDPL+13, RRNAME+2, RRNAME+4, RRDOB+2, RRDOB+5, OLDGETMDPOL+3, OLDGETMDPOL+6, GETMDPOL+6 , GETMDPOL+10, GETMDPOL+14
POL	GETRRDPL+1~, GETRRDPL+9, GETRRDPL+11, GETRRDPL+13, GETRRDPL+15, OLDGETMDPOL+2~, OLDGETMDPOL+3, OLDGETMDPOL+7, OLDGETMDPOL+8, GETMDPOL+4~ , GETMDPOL+10, GETMDPOL+12, GETMDPOL+14, GETMDPOL+16
RRDDOB	RRDOB+1~, RRDOB+3, RRDOB+5, RRDOB+6
RRDFLG	GETRRDPL+5, RRNAME+4, RRDOB+5, RRDFLG+1~, RRDFLG+4, RRDFLG+7, RRDFLG+8
>> RRDIEN	GETRRDPL+5, RRNAME+4, RRDOB+5
RRDNAME	RRNAME+1~, RRNAME+3, RRNAME+4, RRNAME+5
RRDPOL	GETRRDPL+1~, GETRRDPL+5, GETRRDPL+7
U	GETRRDPL+5, GETRRDPL+13, RRNAME+2, RRNAME+4, RRDOB+2, RRDOB+5, RRDFLG+6, RRDFLG+7, OLDGETMDPOL+3, OLDGETMDPOL+6 , GETMDPOL+6, GETMDPOL+14, MDFLG+6, MDFLG+7, PHARNPI+7, PHARNPI+9, PHARNPI+11
X	PHARNPI~, PHARNPI+4, PHARNPI+7
Y	PHARNPI~, PHARNPI+5, PHARNPI+7