Routine: ABSPICPY

Information

ABSPICPY ; IHS/OIT/CASSevern/Pieran ran 9/19/2011 - Copy Insurance default Profiles

Source Information

Source file <ABSPICPY.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
IHS Patient Registration	1	$$INSTYP^AGUTL
Pharmacy Point of Sale	1	LOG^ABSPOSL2
VA Fileman	1	UPDATE^DIE

Entry Points

Name	Comments	DBIA/ICR reference
CAIDCOPY(ABSPINS)	;Read through the CAIDTAB table and load those settings
POPSPEC(ABSPINS,ABSPSPEC)	;Now populate the Special Code stuff
POPFLD(ABSPINS,ABSPSPFL)	;Next we populate the suppressed fields
CARECOPY(ABSPINS)	;Read through the CARETAB table and load those settings
PRIVCOPY(ABSPINS)	;Read through the PRIVTAB table and load those settings
CARETAB	;;TYPE;NCPDP FIELD #;COMMENT;VALUE
POPSEG(ABSPINS,ABSPSPSG)	;Next we populate the suppressed segments
PRIVTAB	;;TYPE;NCPDP FIELD #;COMMENT;VALUE
RDLINE(LINE,ABSPINS)	;Go through the line and populate the array
PROCESS(ABSPINS,TYP)	;Process the INSURER here
DEFCOPY(ABSPINS)	;Read through the DEFTAB table and load those settings
DEFTAB	;;TYPE;NCPDP FIELD #;FIELD NAME;VALUE
EN(ABSPINS)	;EP
CAIDTAB	;;TYPE;NCPDP FIELD #;COMMENT;VALUE

External References

Name	Field # of Occurrence
LOG^ABSPOSL2	PROCESS+8, POPSPEC+13, POPSEG+9, POPFLD+9
$$INSTYP^AGUTL	EN+14
UPDATE^DIE	PROCESS+7, POPSPEC+12, POPSEG+8, POPFLD+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Is this Insurer a 1.) Medicaid, 2.) Medicare or 3.) Private Insurer?" Line Location: EN+5
Function Call: WRITE	Prompt: !,"That is not a valid choice, please enter ""1"", ""2"", ""3"", or ""^""" Line Location: EN+8
Routine Call	DIE Line Location: PROCESS+7 POPSPEC+12 POPSEG+8 POPFLD+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPEI - [#9002313.4]	RDLINE+2, POPSPEC+2, POPSEG+2, POPFLD+2

Label References

Name	Line Occurrences
CAIDCOPY	PROCESS+3
CARECOPY	PROCESS+4
DEFCOPY	PROCESS+2
POPFLD	PROCESS+11
POPSEG	PROCESS+10
POPSPEC	PROCESS+9
PRIVCOPY	PROCESS+5
PROCESS	EN+16
RDLINE	DEFCOPY+4, CAIDCOPY+4, CARECOPY+4, PRIVCOPY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSPINS	EN~, EN+14, EN+16, PROCESS~, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+9, PROCESS+10 , PROCESS+11, DEFCOPY~, DEFCOPY+4, CAIDCOPY~, CAIDCOPY+4, CARECOPY~, CARECOPY+4, PRIVCOPY~, PRIVCOPY+4, RDLINE~ , RDLINE+2, RDLINE+9, POPSPEC~, POPSPEC+2, POPSPEC+9, POPSPEC+10, POPSEG~, POPSEG+2, POPSEG+6, POPFLD~ , POPFLD+2, POPFLD+6
ABSPSPEC	PROCESS+1~, PROCESS+9, POPSPEC~
ABSPSPEC(	RDLINE+6*, POPSPEC+5, POPSPEC+8
ABSPSPFL	PROCESS+1~, PROCESS+11, POPFLD~
ABSPSPFL(	RDLINE+8*, POPFLD+5
ABSPSPSG	PROCESS+1~, PROCESS+10, POPSEG~
ABSPSPSG(	RDLINE+7*, POPSEG+5
FILE	RDLINE+1~, RDLINE+2*, RDLINE+9
FLDNUM	RDLINE+1~
INS	PROCESS+1~, POPSPEC+3~, POPSEG+3~
INS(1	PROCESS+7, RDLINE+9, POPSPEC+9, POPSPEC+10, POPSEG+6, POPFLD+6*
L	DEFCOPY+1~, DEFCOPY+2, CAIDCOPY+1~, CAIDCOPY+2, CARECOPY+1~, CARECOPY+2, PRIVCOPY+1~, PRIVCOPY+2
LINE	DEFCOPY+1~, DEFCOPY+3, DEFCOPY+4, CAIDCOPY+1~, CAIDCOPY+3, CAIDCOPY+4, CARECOPY+1~, CARECOPY+3, CARECOPY+4, PRIVCOPY+1~ , PRIVCOPY+3, PRIVCOPY+4, RDLINE~, RDLINE+3, RDLINE+4, RDLINE+5
NCPDPCD	RDLINE+4, RDLINE+6, RDLINE+8, RDLINE+9, POPSPEC+3~, POPSPEC+4, POPSPEC+5, POPSPEC+7, POPSPEC+8, POPSPEC+9 , POPFLD+3~, POPFLD+4, POPFLD+5*, POPFLD+6
OK	EN+1~, EN+2*
SEGCD	POPSEG+3~, POPSEG+4, POPSEG+5, POPSEG+6
STRING	POPSPEC+3~, POPSPEC+8*, POPSPEC+10
TYP	EN+1~, EN+14, EN+15, EN+16, PROCESS~, PROCESS+3, PROCESS+4, PROCESS+5
TYPE	RDLINE+1~, RDLINE+3*, RDLINE+6, RDLINE+7, RDLINE+8, RDLINE+9
VAL	RDLINE+1~, RDLINE+5*, RDLINE+6, RDLINE+7, RDLINE+9
ZERR	PROCESS+1~, PROCESS+8, POPSPEC+3~, POPSPEC+13, POPSEG+3~, POPSEG+9, POPFLD+3~, POPFLD+9

Marked Items

Name	Field # of Occurrence
$T(CAIDTAB+L	CAIDCOPY+2, CAIDCOPY+3
$T(CARETAB+L	CARECOPY+2, CARECOPY+3
$T(DEFTAB+L	DEFCOPY+2, DEFCOPY+3
$T(PRIVTAB+L	PRIVCOPY+2, PRIVCOPY+3

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPICPY

Call Graph Total: 3