Routine: ABSPOSFC

Package	Total	Call Graph
IHS Patient Registration	1	($$GETMCR,$$GETRRE)^AGUTL
Pharmacy Point of Sale	1	IMPOSS^ABSPOSUE

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSFB

Entry Points

Name	Comments	DBIA/ICR reference
INSGRP()	; Insurer Group #
GETMDIEN()
INSPOL()	; /IHS/OIT/RAM ; 15 DEC 17 - IT APPEARS THAT THIS ROUTINE HAS NOT BEEN KEPT UP ; I WONDER IF IT'S EVEN IN USE...
CARENAME()
PERSON()	; Person Code ; For now, it's a simple translation from relationship code: ; 1->"01", 2->"02", etc.
GETMDPOL()	;EP ; /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...
INSREL()	; a single digit, 1, 2, 3, 4 = self,spouse,child,other
INSMBRNM()
WORKREL()	; this is copied from ABSPOS26+/- ; changed ABSBVISI to VSTIEN ; is VSTIEN a worker's comp visit? ; If so, return value is true = pointer to ^AUPNVPOV which has ; the CAUSE OF DX listed as EMPLOYMENT RELATED
INSDNAME(N)	; Insured's name
INSIEN()	; get pointer to ^AUTNINS ; (But shouldn't we directly get this from the IEN59?)
CAIDNAME()
INS3PPH()
ELGCLAR()
OLDGETMDPOL()
INSWORK	; get worker's comp-related info
AUTTRLSH()
GETINFO(DIALOUT,PATIEN,VSTIEN,PINS,INSIEN)	;EP

External References

Name	Field # of Occurrence
IMPOSS^ABSPOSUE	INSIEN+7, AUTTRLSH+2, INSDNAME+9, INSPOL+10
$$GETMCR^AGUTL	GETMDPOL+9
$$GETRRE^AGUTL	INSPOL+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.56 - [#9002313.56]	GETINFO+23, GETINFO+29, GETINFO+32, GETINFO+35, GETINFO+46, GETINFO+88, GETINFO+89, GETINFO+90
^ABSP(9002313.99 - [#9002313.99]	GETINFO+114
^ABSPEI - [#9002313.4]	GETINFO+97
^ABSPF(9002313.81 - [#9002313.81]	INSREL+4, INSREL+5
^ABSPF(9002313.92 - [#9002313.92]	GETINFO+100
^ABSPTL - [#9002313.57]	GETINFO+22
^AUPN3PPH - [#9000003.1]	INSGRP+10, INSDNAME+8, INSWORK+3, INSPOL+12
^AUPNMCD - [#9000004]	INSIEN+2, INSPOL+2, CAIDNAME
^AUPNMCR - [#9000003]	INSIEN+4, INSGRP+5, OLDGETMDPOL+3, OLDGETMDPOL+5, GETMDPOL+5, GETMDPOL+13, CARENAME+4, CARENAME+6, GETMDIEN+6, GETMDIEN+7
^AUPNPRVT - [#9000006]	INSIEN+3, AUTTRLSH+1, INS3PPH, INSPOL+13, INSMBRNM+4
^AUPNRRE - [#9000005]	INSIEN+5
^AUPNVPOV - [#9000010.07]	GETINFO+111, WORKREL+6
^AUPNVPOV("AD"	WORKREL+5
^AUTNEGRP - [#9999999.77]	INSGRP+6, INSGRP+11, INSGRP+12
^AUTNEMPL - [#9999999.75]	INSWORK+4
^AUTTRLSH - [#9999999.36]	INSREL+3
^AUTTRLSH("B"	AUTTRLSH+2
^DIC(5 - [#5]	INSWORK+10
^DPT - [#2]	GETINFO+53

Label References

Name	Line Occurrences
$$AUTTRLSH	INSREL+1
$$CAIDNAME	GETINFO+57, INSDNAME+2
$$CARENAME	GETINFO+59, INSDNAME+3
$$GETMDIEN	GETINFO+13
$$GETMDPOL	INSPOL+5
$$INS3PPH	INSGRP+9, INSDNAME+6, INSWORK+2, INSPOL+11
$$INSDNAME	GETINFO+75, GETINFO+76
$$INSGRP	GETINFO+80
$$INSMBRNM	GETINFO+83
$$INSPOL	GETINFO+81
$$INSREL	GETINFO+77, PERSON+3
$$PERSON	GETINFO+78
$$WORKREL	GETINFO+109, GETINFO+111
INSWORK	GETINFO+110

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETINFO+56~, GETINFO+57, GETINFO+59, GETINFO+60, GETINFO+61, GETINFO+62
A	WORKREL+4~, WORKREL+5, WORKREL+6, WORKREL+7
>> ABSP("Cardholder"	GETINFO+75, GETINFO+76
>> ABSP("Date of	Injury" , GETINFO+111*
>> ABSP("Employer"	INSWORK+5, INSWORK+6, INSWORK+7, INSWORK+10, INSWORK+11, INSWORK+12
>> ABSP("Envoy T	erminal ID" , GETINFO+26*
>> ABSP("Insurer"	GETINFO+74, GETINFO+77, GETINFO+78, GETINFO+80, GETINFO+81, GETINFO+83
>> ABSP("NCPDP"	GETINFO+99, GETINFO+103, GETINFO+104, GETINFO+105, GETINFO+106, GETINFO+108
>> ABSP("Patient"	GETINFO+54, GETINFO+62, GETINFO+63, GETINFO+64, GETINFO+65*, INSDNAME+4, INSDNAME+10
>> ABSP("SPECIAL"	GETINFO+114*
>> ABSP("Site"	GETINFO+24, GETINFO+25, GETINFO+27, GETINFO+28, GETINFO+30, GETINFO+31, GETINFO+33, GETINFO+36, GETINFO+37, GETINFO+38 , GETINFO+39, GETINFO+40, GETINFO+41, GETINFO+42, GETINFO+43, GETINFO+50, GETINFO+51, GETINFO+87, GETINFO+90, GETINFO+94 , GETINFO+95
>> ABSP("VisitIEN"	GETINFO+6*
ABSPMNUM	INSMBRNM+2~, INSMBRNM+3, INSMBRNM+4, INSMBRNM+5
ADDR	GETINFO+35~*, GETINFO+36, GETINFO+37, GETINFO+38, GETINFO+39, GETINFO+40, GETINFO+41, GETINFO+42
D1	GETMDIEN+3~, GETMDIEN+5, GETMDIEN+6, GETMDIEN+7, GETMDIEN+9
DIALOUT	GETINFO~
GRPIEN	INSGRP+3~, INSGRP+4, INSGRP+5, INSGRP+6
IEN57	GETINFO+21~*, GETINFO+22
INSIEN	GETINFO~, GETINFO+74*, GETINFO+88, GETINFO+89, GETINFO+97
>> MDFLG	GETMDPOL+5
MDFND	GETMDIEN+3~, GETMDIEN+4, GETMDIEN+6, GETMDIEN+8, GETMDIEN+10
MDIEN	GETINFO+11~, GETINFO+12, GETINFO+13, INSGRP+5, OLDGETMDPOL+5, GETMDPOL+5, CARENAME+6, GETMDIEN+9*, GETMDIEN+11
MDNAME	CARENAME+3~, CARENAME+5, CARENAME+6, CARENAME+7
MDPOL	OLDGETMDPOL+2~, OLDGETMDPOL+4, OLDGETMDPOL+5, OLDGETMDPOL+6, GETMDPOL+3~, GETMDPOL+5, GETMDPOL+7
N	GETINFO+48~, GETINFO+49, GETINFO+50, GETINFO+51, INSDNAME~, INSDNAME+11, INSDNAME+12
NAME	CARENAME+3~, CARENAME+4, CARENAME+7, CARENAME+8
NRECIEN	GETINFO+1~, GETINFO+97*, GETINFO+99, GETINFO+100
P	INSWORK+2~*, INSWORK+3
PATIEN	GETINFO~, GETINFO+53, GETINFO+54
PHARMACY	GETINFO+19~, GETINFO+22*, GETINFO+23, GETINFO+29, GETINFO+32, GETINFO+35, GETINFO+46, GETINFO+88, GETINFO+89, GETINFO+90
PINS	GETINFO~, GETINFO+4, GETINFO+5
PINSDA	GETINFO+4~*, INSIEN+2, INSIEN+3, INSIEN+4, INSIEN+5, AUTTRLSH+1, INSGRP+5, INS3PPH, INSPOL+2, INSPOL+8 , INSPOL+13, INSMBRNM+4, OLDGETMDPOL+3, OLDGETMDPOL+5, GETMDPOL+5, GETMDPOL+9, GETMDPOL+13, CAIDNAME, CARENAME+4, CARENAME+6 , GETMDIEN+6, GETMDIEN+7
PINSDA1	GETINFO+4~, GETINFO+5*, INSIEN+3, AUTTRLSH+1, INS3PPH, INSPOL+13, INSMBRNM+4
PINSTYPE	GETINFO+4~*, GETINFO+5, GETINFO+13, GETINFO+56, GETINFO+58, GETINFO+94, INSIEN+2, INSIEN+3, INSIEN+4, INSIEN+5 , INSIEN+6, INSIEN+7, AUTTRLSH+1, INSGRP+5, INSGRP+8, INSDNAME+2, INSDNAME+3, INSDNAME+4, INSDNAME+5, INSDNAME+9 , INSWORK+1, INSPOL+2, INSPOL+5, INSPOL+8, INSPOL+9, INSPOL+10, INSMBRNM+4
POL	OLDGETMDPOL+2~, OLDGETMDPOL+3, OLDGETMDPOL+6, OLDGETMDPOL+7, GETMDPOL+3~, GETMDPOL+9, GETMDPOL+11, GETMDPOL+13*, GETMDPOL+15
RET	WORKREL+4~, WORKREL+5, WORKREL+7, WORKREL+8
ST	INSWORK+9~, INSWORK+10
T	INSDNAME+6~*, INSDNAME+7, INSDNAME+8
>> TRANSACT(""	GETINFO+21
U	GETINFO+22, GETINFO+24, GETINFO+25, GETINFO+26, GETINFO+27, GETINFO+28, GETINFO+30, GETINFO+31, GETINFO+33, GETINFO+36 , GETINFO+37, GETINFO+38, GETINFO+39, GETINFO+40, GETINFO+41, GETINFO+42, GETINFO+47, GETINFO+48, GETINFO+50, GETINFO+51 , GETINFO+61, GETINFO+63, GETINFO+64, GETINFO+65, GETINFO+90, GETINFO+97, GETINFO+102, GETINFO+103, GETINFO+104, GETINFO+105 , GETINFO+106, GETINFO+107, GETINFO+108, GETINFO+111, GETINFO+114, WORKREL+6, INSIEN+2, INSIEN+3, INSIEN+4, INSIEN+5 , INSREL+3, INSREL+5, AUTTRLSH+1, INSGRP+5, INSGRP+6, INSGRP+10, INSGRP+11, INSGRP+12, INSDNAME+8, INSWORK+3 , INSWORK+5, INSWORK+6, INSWORK+7, INSWORK+10, INSWORK+11, INSWORK+12, INS3PPH, INSPOL+2, INSPOL+12, INSPOL+13 , OLDGETMDPOL+3, OLDGETMDPOL+5, GETMDPOL+5, GETMDPOL+13, CAIDNAME, CARENAME+4, CARENAME+6, GETMDIEN+7
VSTIEN	GETINFO~, GETINFO+6, WORKREL+5
X	GETINFO+46~, GETINFO+47, GETINFO+48, GETINFO+50, GETINFO+51, GETINFO+89~, GETINFO+90, INSREL+1~, INSREL+3, INSREL+4* , INSREL+5, INSREL+6, AUTTRLSH+2~, INSGRP+9~, INSGRP+10, INSDNAME+1~, INSDNAME+2, INSDNAME+3, INSDNAME+4, INSDNAME+7* , INSDNAME+8, INSDNAME+10, INSDNAME+11, INSDNAME+12, INSDNAME+13, INSWORK+3~, INSWORK+4, INSWORK+5, INSWORK+6, INSWORK+7 , INSWORK+11, INSWORK+12, INSPOL+11~*, INSPOL+12
XDATA	GETINFO+1~, GETINFO+23, GETINFO+24, GETINFO+25, GETINFO+26, GETINFO+27, GETINFO+28, GETINFO+29, GETINFO+30, GETINFO+31 , GETINFO+32, GETINFO+33, GETINFO+53, GETINFO+61, GETINFO+63, GETINFO+64, GETINFO+65, GETINFO+100, GETINFO+101, GETINFO+102* , GETINFO+103, GETINFO+104, GETINFO+105, GETINFO+106, GETINFO+107*, GETINFO+108
Y	INSGRP+10~, INSGRP+11, INSGRP+12, INSPOL+12~
Z	INSGRP+11~, INSGRP+12, INSGRP+13

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSFC

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items