Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSCG

Package: Pharmacy Point of Sale

Routine: ABSPOSCG


Information

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

Source Information

Source file <ABSPOSCG.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient Registration 1 ($$GETMCR,$$GETRRE)^AGUTL  
Kernel 1 $$NPI^XUSNPI  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSCC  

Entry Points

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

External References

Name Field # of Occurrence
$$GETMCR^AGUTL GETMDPOL+10
$$GETRRE^AGUTL GETRRDPL+9
$$GET1^DIQ RRDFLG+4, MDFLG+4
$$NPI^XUSNPI PHARNPI+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All