Routine: ABSPDE1

Package	Total	Call Graph
VA Fileman	7	DD^%DT C^%DTC ^DIC (,WP)^DIE ^DIK $$GET1^DIQ ^DIR
Pharmacy Point of Sale	5	($$ANFF,$$DTF1,$$NFF)^ABSPECFM SEND^ABSPOSAE DISPLAY^ABSPOSE1 LOG^ABSPOSL2 $$DATE^ABSPOSU1
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
GETDATE()	; Prompt for service date.
GETPHARM()	; Prompt for pharmacy.
PATIENT	; Patient Seg
INSURER	; Insurance Seg
PROCESS	;
CRTE1	; Creates transmission record, updates ^ABSPE.
DISPLAY(E1IEN)	;EP - E1 result
PARSE504(INS504,COVER)	;
RAWTRANS	; Raw trans in ^ABSPE
HEADER	; Header Seg
PRMPT(E1IEN)	;Display previous response and prompt to send again.
DATE(CCYYMMDD)	;
PARSE526(INS526,COVER)	;
GETPAT()	; Prompt for patient.
MAIN	;EP
GETABSPE()	; If E1 previously sent, find it and prompt to send again. ; If doesn't exist, create new one.

External References

Name	Field # of Occurrence
DD^%DT	GETDATE+4, GETDATE+11, GETDATE+18, DATE+4
C^%DTC	GETDATE+8, GETDATE+15
$$ANFF^ABSPECFM	HEADER+15, HEADER+21, PATIENT+29, PATIENT+34, PATIENT+39, PATIENT+44, PATIENT+52, PATIENT+58, INSURER+10
$$DTF1^ABSPECFM	HEADER+18, PATIENT+14
$$NFF^ABSPECFM	PATIENT+21
SEND^ABSPOSAE	PROCESS+24
DISPLAY^ABSPOSE1	DISPLAY+14
LOG^ABSPOSL2	RAWTRANS+6
$$DATE^ABSPOSU1	GETDATE+23
^DIC	GETPAT+15, GETPHARM+16, GETABSPE+9, GETABSPE+29
^DIE	CRTE1+16
WP^DIE	RAWTRANS+5
^DIK	GETABSPE+20
$$GET1^DIQ	PRMPT+5, PRMPT+9, HEADER+15, INSURER+7, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11 , DISPLAY+12
^DIR	PRMPT+21
^XBFMK	DATE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Transmitting eligibility check, please stand by.....",!! Line Location: PROCESS+23
Function Call: WRITE	Prompt: !!! Line Location: GETPAT+10
Function Call: WRITE	Prompt: ! Line Location: GETPAT+16
Function Call: WRITE	Prompt: !! Line Location: GETPHARM+11
Function Call: WRITE	Prompt: ! Line Location: GETPHARM+17
Function Call: WRITE	Prompt: !,"Accept the default current date of ",CURDISP," or" Line Location: GETDATE+21
Function Call: WRITE	Prompt: !,"Enter a date between ",BEGDISP," and ",ENDDISP,! Line Location: GETDATE+22
Function Call: WRITE	Prompt: !!!,"A check was previously submitted for this patient: " Line Location: PRMPT+14
Function Call: WRITE	Prompt: !,"On: ",ABSP03 Line Location: DISPLAY+18
Function Call: WRITE	Prompt: !,"Patient Name: ",ABSPPNAM Line Location: DISPLAY+19
Function Call: WRITE	Prompt: !,"Medicare ID: ",ABSP302 Line Location: DISPLAY+20
Function Call: WRITE	Prompt: !,"Status: ",ABSP112 Line Location: DISPLAY+21
Function Call: WRITE	Prompt: !,"Authorization #: ",ABSP503 Line Location: DISPLAY+22
Function Call: WRITE	Prompt: !,"Result:" Line Location: DISPLAY+25
Function Call: WRITE	Prompt: ?18,$E(ABSP504,ABSPSTR,ABSPSTR+50),!," " Line Location: DISPLAY+36
Function Call: WRITE	Prompt: ?18,$E(ABSP526,ABSPSTR,ABSPSTR+50),!," " Line Location: DISPLAY+47
Function Call: WRITE	Prompt: !!,"PATIENT INFORMATION" Line Location: DISPLAY+51
Function Call: WRITE	Prompt: !," LAST NAME : ",COVER(1,"LAST NAME") Line Location: DISPLAY+52
Function Call: WRITE	Prompt: !," FIRST NAME : ",COVER(1,"FIRST NAME") Line Location: DISPLAY+53
Function Call: WRITE	Prompt: !," DOB : ",$$DATE(COVER(1,"DOB")) Line Location: DISPLAY+54
Function Call: WRITE	Prompt: !!,"MEDICARE D INFORMATION" Line Location: DISPLAY+55
Function Call: WRITE	Prompt: !," Insurance Level : ",COVER(1,"INS LVL") Line Location: DISPLAY+56
Function Call: WRITE	Prompt: !," BIN : ",COVER(1,"BIN") Line Location: DISPLAY+57
Function Call: WRITE	Prompt: !," PCN : ",COVER(1,"PCN") Line Location: DISPLAY+58
Function Call: WRITE	Prompt: !," GROUP : ",COVER(1,"GROUP") Line Location: DISPLAY+59
Function Call: WRITE	Prompt: !," CARDHOLDER ID : ",COVER(1,"CARD ID") Line Location: DISPLAY+60
Function Call: WRITE	Prompt: !," PERSON CODE : ",COVER(1,"PERSON CD") Line Location: DISPLAY+61
Function Call: WRITE	Prompt: !," PHONE NUMBER : ",COVER(1,"PHONE #") Line Location: DISPLAY+62
Function Call: WRITE	Prompt: !," CONTRACT ID : ",COVER(1,"CONTRACT ID") Line Location: DISPLAY+63
Function Call: WRITE	Prompt: !," RX BENEFIT PLAN : ",COVER(1,"PBP") Line Location: DISPLAY+64
Function Call: WRITE	Prompt: !," EFFECTIVE DATE : ",$$DATE(COVER(1,"EFF DATE")) Line Location: DISPLAY+65
Function Call: WRITE	Prompt: !," TERMINATION DATE: ",$$DATE(COVER(1,"TRM DATE")) Line Location: DISPLAY+66
Function Call: WRITE	Prompt: !," LOW-INCOME COST : ",COVER(1,"LICS") Line Location: DISPLAY+67
Function Call: WRITE	Prompt: !," FORMULARY ID : ",COVER(1,"FORMULARY ID") Line Location: DISPLAY+68
Function Call: WRITE	Prompt: !!,"FUTURE MEDICARE PART D INFORMATION:" Line Location: DISPLAY+69
Function Call: WRITE	Prompt: !," EFFECTIVE DATE : ",$$DATE(COVER(1,"FUTURE EFF DATE")) Line Location: DISPLAY+70
Function Call: WRITE	Prompt: !," TERMINATION DATE: ",$$DATE(COVER(1,"FUTURE TRM DATE")) Line Location: DISPLAY+71
Function Call: WRITE	Prompt: !!,"OTHER COVERAGE INFORMATION" Line Location: DISPLAY+73
Function Call: WRITE	Prompt: !,"Secondary Coverage" Line Location: DISPLAY+74
Function Call: WRITE	Prompt: !," None" Line Location: DISPLAY+76
Function Call: WRITE	Prompt: !," Insurance Level : ",COVER(2,"INS LVL") Line Location: DISPLAY+78
Function Call: WRITE	Prompt: !," BIN : ",COVER(2,"BIN") Line Location: DISPLAY+79
Function Call: WRITE	Prompt: !," PCN : ",COVER(2,"PCN") Line Location: DISPLAY+80
Function Call: WRITE	Prompt: !," GROUP : ",COVER(2,"GROUP") Line Location: DISPLAY+81
Function Call: WRITE	Prompt: !," CARDHOLDER ID : ",COVER(2,"CARD ID") Line Location: DISPLAY+82
Function Call: WRITE	Prompt: !," PERSON CODE : ",COVER(2,"PERSON CD") Line Location: DISPLAY+83
Function Call: WRITE	Prompt: !," RELATIONSHIP CD : ",COVER(2,"RELATIONSHIP CD") Line Location: DISPLAY+84
Function Call: WRITE	Prompt: !," PHONE NUMBER : ",COVER(2,"PHONE #") Line Location: DISPLAY+85
Function Call: WRITE	Prompt: !,"Tertiary Coverage" Line Location: DISPLAY+87
Function Call: WRITE	Prompt: !," None" Line Location: DISPLAY+89
Function Call: WRITE	Prompt: !!," Insurance Level : ",COVER(3,"INS LVL") Line Location: DISPLAY+91
Function Call: WRITE	Prompt: !," BIN : ",COVER(3,"BIN") Line Location: DISPLAY+92
Function Call: WRITE	Prompt: !," PCN : ",COVER(3,"PCN") Line Location: DISPLAY+93
Function Call: WRITE	Prompt: !," GROUP : ",COVER(3,"GROUP") Line Location: DISPLAY+94
Function Call: WRITE	Prompt: !," CARDHOLDER ID : ",COVER(3,"CARD ID") Line Location: DISPLAY+95
Function Call: WRITE	Prompt: !," PERSON CODE : ",COVER(3,"PERSON CD") Line Location: DISPLAY+96
Function Call: WRITE	Prompt: !," RELATIONSHIP CD : ",COVER(3,"RELATIONSHIP CD") Line Location: DISPLAY+97
Function Call: WRITE	Prompt: !," PHONE NUMBER : ",COVER(3,"PHONE #") Line Location: DISPLAY+98
Routine Call	DIE Line Location: CRTE1+16
Routine Call	DIC Line Location: GETPAT+15 GETPHARM+16 GETABSPE+9 GETABSPE+29
Routine Call	DIR Line Location: PRMPT+21
Routine Call	DIE Line Location: RAWTRANS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
9002313.5601	GET1^DIQ
^ABSPE - [#9002313.7]	Classic Fileman Calls, GET1^DIQ, WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.56 - [#9002313.56]	GETPHARM+6, GETPHARM+13, HEADER+4
^DIC(5 - [#5]	PATIENT+51
^DPT - [#2]	PATIENT+7, PATIENT+8

Label References

Name	Line Occurrences
$$DATE	DISPLAY+54, DISPLAY+65, DISPLAY+66, DISPLAY+70, DISPLAY+71
$$GETABSPE	PROCESS+15
$$GETDATE	PROCESS+18
$$GETPAT	PROCESS+5
$$GETPHARM	PROCESS+11
$$PRMPT	GETABSPE+13
CRTE1	PROCESS+22
DISPLAY	PRMPT+15
HEADER	CRTE1+10
INSURER	CRTE1+12
PARSE504	DISPLAY+15
PARSE526	DISPLAY+16
PATIENT	CRTE1+11
PROCESS	MAIN+4
RAWTRANS	CRTE1+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSP03	DISPLAY+3~, DISPLAY+7*, DISPLAY+18
ABSP112	DISPLAY+2~, DISPLAY+4, DISPLAY+8, DISPLAY+21, DISPLAY+24, DISPLAY+50
ABSP301	INSURER+2~
ABSP302	INSURER+2~, INSURER+7, INSURER+8, INSURER+9, INSURER+10, INSURER+11, INSURER+12, DISPLAY+3~, DISPLAY+9*, DISPLAY+20
ABSP304	PATIENT+2~, PATIENT+14*, PATIENT+15, PATIENT+16
ABSP305	PATIENT+2~, PATIENT+19, PATIENT+20, PATIENT+21*, PATIENT+22, PATIENT+23
>> ABSP307	PATIENT+63*, PATIENT+64
ABSP310	PATIENT+2~, PATIENT+29*, PATIENT+30, PATIENT+31
ABSP311	PATIENT+2~, PATIENT+34*, PATIENT+35, PATIENT+36
>> ABSP322	PATIENT+39*, PATIENT+40, PATIENT+41
ABSP323	PATIENT+2~, PATIENT+44*, PATIENT+45, PATIENT+46
ABSP324	PATIENT+2~, PATIENT+49, PATIENT+51, PATIENT+52*, PATIENT+53, PATIENT+54
ABSP325	PATIENT+3~, PATIENT+58*, PATIENT+59, PATIENT+60
ABSP326	PATIENT+3~
ABSP332	PATIENT+2~
ABSP503	DISPLAY+3~, DISPLAY+4, DISPLAY+10, DISPLAY+22
ABSP504	DISPLAY+2~, DISPLAY+4, DISPLAY+11, DISPLAY+13, DISPLAY+15, DISPLAY+30, DISPLAY+32, DISPLAY+33, DISPLAY+36
ABSP526	DISPLAY+2~, DISPLAY+12*, DISPLAY+13, DISPLAY+16, DISPLAY+41, DISPLAY+43, DISPLAY+44, DISPLAY+47
>> ABSP536	DISPLAY+4*
ABSPCID	INSURER+2~
ABSPCUT	DISPLAY+3~, DISPLAY+35, DISPLAY+46
ABSPDUZ2	GETPAT+2~, GETPAT+8*, GETPAT+19
>> ABSPINS	DISPLAY+13*, DISPLAY+14
ABSPNAM	PATIENT+3~, PATIENT+26*, PATIENT+29, PATIENT+34
ABSPPNAM	DISPLAY+2~, DISPLAY+4, DISPLAY+6, DISPLAY+19
ABSPSTR	DISPLAY+3~, DISPLAY+31, DISPLAY+36, DISPLAY+37, DISPLAY+42, DISPLAY+47, DISPLAY+48
>> BEGDISP	GETDATE+12*, GETDATE+22
BEGDT	GETDATE+1~, GETDATE+9*, GETDATE+23
CCYYMMDD	DATE~, DATE+1, DATE+3
COVER	DISPLAY+2~, DISPLAY+15, DISPLAY+16, PARSE504~, PARSE526~
COVER(1	DISPLAY+52, DISPLAY+53, DISPLAY+54, DISPLAY+56, DISPLAY+57, DISPLAY+58, DISPLAY+59, DISPLAY+60, DISPLAY+61, DISPLAY+62 , DISPLAY+63, DISPLAY+64, DISPLAY+65, DISPLAY+66, DISPLAY+67, DISPLAY+68, DISPLAY+70, DISPLAY+71, PARSE504+2, PARSE504+3 , PARSE504+4, PARSE504+5, PARSE504+6, PARSE504+7, PARSE504+8, PARSE504+9, PARSE504+10, PARSE504+11, PARSE504+12, PARSE504+13 , PARSE504+14, PARSE504+15, PARSE504+16, PARSE504+17, PARSE504+18, PARSE504+19
COVER(2	DISPLAY+75, DISPLAY+78, DISPLAY+79, DISPLAY+80, DISPLAY+81, DISPLAY+82, DISPLAY+83, DISPLAY+84, DISPLAY+85, PARSE526+2* , PARSE526+3, PARSE526+4, PARSE526+5, PARSE526+6, PARSE526+7, PARSE526+8, PARSE526+9, PARSE526+10
COVER(3	DISPLAY+88, DISPLAY+91, DISPLAY+92, DISPLAY+93, DISPLAY+94, DISPLAY+95, DISPLAY+96, DISPLAY+97, DISPLAY+98, PARSE526+12* , PARSE526+13, PARSE526+14, PARSE526+15, PARSE526+16, PARSE526+17, PARSE526+18, PARSE526+19, PARSE526+20
CRTNWE1	GETABSPE+3~, GETABSPE+6, GETABSPE+12, GETABSPE+22*, GETABSPE+25
CURDISP	GETDATE+1~, GETDATE+5*, GETDATE+21
DA	GETABSPE+17~, GETABSPE+19, GETABSPE+21!, CRTE1+3~, CRTE1+7
DIC	GETPAT+2~, GETPAT+12, GETPAT+18!, GETPHARM+2~, GETPHARM+12, GETABSPE+3~, GETABSPE+4, GETABSPE+10!, GETABSPE+26
DIC("A"	GETPAT+13, GETPHARM+14
DIC("B"	GETPHARM+13*
DIC(0	GETPAT+12, GETPHARM+12, GETABSPE+4, GETABSPE+28
DIE	CRTE1+3~, CRTE1+7*
DIK	GETABSPE+17~, GETABSPE+18*, GETABSPE+21!
DIR	PRMPT+2~
DIR("A"	PRMPT+17*
DIR("B"	PRMPT+19*
DIR(0	PRMPT+20*
DLAYGO	GETABSPE+3~, GETABSPE+28*
DR	CRTE1+3~, PATIENT+16, PATIENT+23, PATIENT+31, PATIENT+36, PATIENT+41, PATIENT+46, PATIENT+54, PATIENT+60, INSURER+12*
DT	GETDATE+3, GETDATE+7, GETDATE+14, GETDATE+23
>> DTOUT	GETPAT+17, GETPHARM+18
>> DUOUT	GETPAT+17, GETPHARM+18
DUZ(2	GETPAT+8, GETPAT+19
E1DATE	PROCESS+1~, PROCESS+18*, PROCESS+19, HEADER+18
E1DT	GETDATE+1~, GETDATE+23, GETDATE+24, GETDATE+25
E1IEN	PROCESS+1~, PROCESS+15, PROCESS+16, PROCESS+24, GETABSPE+3~, GETABSPE+11, GETABSPE+12, GETABSPE+13, GETABSPE+19, PRMPT~ , PRMPT+5, PRMPT+9, PRMPT+15, CRTE1+7, RAWTRANS+5, DISPLAY~, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9 , DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+14
E1PHARM	PROCESS+1~, PROCESS+11*, PROCESS+12, HEADER+4
E1PIEN	PROCESS+1~, PROCESS+7*, GETABSPE+5, GETABSPE+27, PATIENT+7, PATIENT+8, INSURER+7
E1PINFO	PROCESS+1~, PROCESS+5*, PROCESS+6, PROCESS+7, PROCESS+8
E1PNAM	PROCESS+1~, PROCESS+8*
>> ENDDISP	GETDATE+19*, GETDATE+22
ENDDT	GETDATE+1~, GETDATE+16*, GETDATE+23
FS	CRTE1+2~, CRTE1+8*, HEADER+23, PATIENT+11, PATIENT+15, PATIENT+22, PATIENT+30, PATIENT+35, PATIENT+40, PATIENT+45 , PATIENT+53, PATIENT+59, PATIENT+64, INSURER+4
HLDPHARM	GETPHARM+2~, GETPHARM+8*, GETPHARM+9, GETPHARM+13
I	RAWTRANS+2~, RAWTRANS+4*
INS504	PARSE504~, PARSE504+2, PARSE504+3, PARSE504+4, PARSE504+5, PARSE504+6, PARSE504+7, PARSE504+8, PARSE504+9, PARSE504+10 , PARSE504+11, PARSE504+12, PARSE504+13, PARSE504+14, PARSE504+15, PARSE504+16, PARSE504+17, PARSE504+18, PARSE504+19
INS526	PARSE526~, PARSE526+2, PARSE526+3, PARSE526+4, PARSE526+5, PARSE526+6, PARSE526+7, PARSE526+8, PARSE526+9, PARSE526+12 , PARSE526+13, PARSE526+14, PARSE526+15, PARSE526+16, PARSE526+17, PARSE526+18, PARSE526+19
LINECNT	DISPLAY+27~, DISPLAY+28, DISPLAY+33, DISPLAY+34, DISPLAY+35, DISPLAY+39, DISPLAY+44, DISPLAY+45, DISPLAY+46
NEWE1	GETABSPE+3~, GETABSPE+6, GETABSPE+13, GETABSPE+16
PATDONE	GETPAT+2~, GETPAT+6, GETPAT+14, GETPAT+17
PDONE	GETPHARM+2~, GETPHARM+4, GETPHARM+15, GETPHARM+18
PHARM	GETPHARM+2~, GETPHARM+4, GETPHARM+6, GETPHARM+8
PHMCNT	GETPHARM+2~, GETPHARM+4, GETPHARM+7, GETPHARM+8, GETPHARM+9
POP	MAIN+1~, MAIN+2, MAIN+4, PROCESS+3, PROCESS+25*
RESULT	PRMPT+2~, PRMPT+5*, PRMPT+6
SS	CRTE1+2~, CRTE1+8*, HEADER+23, PATIENT+64
STATUS	PRMPT+2~, PRMPT+9*, PRMPT+10
STCODE	PATIENT+5~, PATIENT+50*, PATIENT+51
>> TDATA	PROCESS+24, CRTE1+6, HEADER+8, HEADER+10, HEADER+12, HEADER+15, HEADER+18, HEADER+21, HEADER+23, PATIENT+11* , PATIENT+15, PATIENT+22, PATIENT+30, PATIENT+35, PATIENT+40, PATIENT+45, PATIENT+53, PATIENT+59, PATIENT+64, INSURER+4 , INSURER+11*, RAWTRANS+4
U	PROCESS+7, PROCESS+8, GETPHARM+13, PATIENT+14, PATIENT+19, PATIENT+26, PATIENT+39, PATIENT+44, PATIENT+50, PATIENT+51 , PATIENT+58
WP	RAWTRANS+2~
WP(	RAWTRANS+4*
X	GETPAT+3~, GETPAT+4, GETPAT+17, GETDATE+9, GETDATE+10, GETDATE+16, GETDATE+17, GETABSPE+3~, GETABSPE+5, GETABSPE+27*
X1	GETDATE+1~, GETDATE+7, GETDATE+14
X2	GETDATE+1~, GETDATE+7, GETDATE+14
XDATA	HEADER+2~, HEADER+4, PATIENT+3~, PATIENT+7, PATIENT+14, PATIENT+19, PATIENT+26
XDATA11	PATIENT+3~, PATIENT+8*, PATIENT+39, PATIENT+44, PATIENT+50, PATIENT+58
Y	GETPAT+2~, GETPAT+7, GETPAT+17, GETPAT+21, GETPHARM+2~, GETPHARM+4, GETPHARM+18, GETPHARM+20, GETDATE+3, GETDATE+5 , GETDATE+10, GETDATE+12, GETDATE+17, GETDATE+19, GETABSPE+3~, GETABSPE+11, GETABSPE+31, PRMPT+23, DATE+3, DATE+5
ZERR	RAWTRANS+2~, RAWTRANS+6

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPDE1

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: