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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPDE1

Package: Pharmacy Point of Sale

Routine: ABSPDE1


Information

ABSPDE1 ; IHS/OIT/CASSevern/Pieran ran 2/23/2011 - Handling of outgoing NCPDP Eligibility "E1" transactions for D.0

Source Information

Source file <ABSPDE1.m>

Call Graph

Call Graph Total: 13

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