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

Package: E Claims Management Engine

Routine: BPSRES1


Information

BPSRES1 ;AITC/MRD - ECME SCREEN RESUBMIT W/EDITS ;10/23/17

Source Information

Source file <BPSRES1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 NOW^%DTC  ^DIC  UPDATE^DIE  $$GET1^DIQ  ^DIR  
E Claims Management Engine 3 $$BPS^BPSOSCB  $$YESNO^BPSSCRRS  $$SELLINE^BPSSCRU4  
Kernel 1 ($$FMTE,$$HL7TFM)^XLFDT  
List Manager 1 RE^VALM4  
Outpatient Pharmacy 1 ($$RXFLDT,$$RXRLDT)^PSOBPSUT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
E Claims Management Engine 1 BPSRES  
Outpatient Pharmacy 1 PSOBPSU3  

Entry Points

Name Comments DBIA/ICR reference
ADDLFLDS(BPS02,BPS59,BPSADDLFLDS,BPSDOS) ; Add fields to a claim.
; This function allows the user to add to claim fields not on payer
; sheet. It is used by the RED/Resubmit with Edits Action on the
; ECME User Screen and by the PRO Option (Process Secondary/TRICARE
; Rx to ECME).
; Input: BPS02 = Pointer to BPS CLAIMS
; BPS59 = Pointer to BSP TRANSACTION
; BPSDOS = Date of Service; if passed in, then display
; when listing fields to be added to claim
; This function will return:
; 1 - If user entered additional fields.
; 0 - If user added no fields.
; -1 - If user exited out via "^".
; This function will also set up the array BPSADDFLDS if the user
; chooses to add any fields to the claim.
; BPSADDLFLDS(Field IEN) = Value to Send
A1 ; Prompt user for an NCPDP field to add to the claim.
A2 ; User is done selecting fields to add.
ARRAYS(BPS02,BPSPAYER,BPSSEGMENT)
CHECK(BPSY,BPSPAYER,BPSSEGMENT) ; Screen for BPS NCPDP FIELD DEFS lookup. See ADDLFLDS above.
; This function is called for a given entry in the file BPS
; NCPDP FIELD DEFS, where +Y will be the IEN. If this function
; returns a 1, then this entry is a valid choice. If this
; function returns a 0, then this entry will not be displayed to
; the user when listing possible choices and this entry will not
; be a valid choice for the user.
SAVE(BPSACTION,BPS59,BPSADDLFLDS,BPSOVRIEN) ; Save into BPS NCPDP OVERRIDES (#9002313.511)
ASKLINE(BPROMPT,BPERRMES) ;
EDITDT(DFLT,BPRXIEN,BPRXR,BP02) ;Prompt User to choose correct Date of Service

External References

Name Field # of Occurrence
NOW^%DTC SAVE+16
$$BPS^BPSOSCB ADDLFLDS+56
$$YESNO^BPSSCRRS ADDLFLDS+25, A1+31
$$SELLINE^BPSSCRU4 ASKLINE+3
^DIC A1+11
UPDATE^DIE SAVE+46
$$GET1^DIQ A2+12, A2+13, A2+14, ARRAYS+8, SAVE+43, EDITDT+17
^DIR SAVE+53, EDITDT+25
$$RXFLDT^PSOBPSUT EDITDT+16
$$RXRLDT^PSOBPSUT EDITDT+15
RE^VALM4 ASKLINE+6
$$FMTE^XLFDT ADDLFLDS+26, A2+9, EDITDT+22, EDITDT+23, EDITDT+24
$$HL7TFM^XLFDT EDITDT+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDLFLDS+24
Function Call: WRITE
  • Prompt: !!,"Fields entered to transmit:",!,?4,"Date of Service: ",$$FMTE^XLFDT(BPSDOS,"5D")
  • Line Location: ADDLFLDS+26
Function Call: WRITE
  • Prompt: !,$P(X,U,2),".",!,"Fields may not be added at this time."
  • Line Location: ADDLFLDS+57
Function Call: WRITE
  • Prompt: !!,"Enter a valid NCPDP Field name or number. Enter '??' for"
  • Line Location: ADDLFLDS+61
Function Call: WRITE
  • Prompt: !,"a list of possible choices. Fields already on the payer sheet"
  • Line Location: ADDLFLDS+62
Function Call: WRITE
  • Prompt: !,"are excluded from the list of possible choices. Also excluded"
  • Line Location: ADDLFLDS+63
Function Call: WRITE
  • Prompt: !,"are any fields that do not have logic to pull data from VistA"
  • Line Location: ADDLFLDS+64
Function Call: WRITE
  • Prompt: !,"(i.e. fields that will always be <blank>)."
  • Line Location: ADDLFLDS+65
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+10
Function Call: WRITE
  • Prompt: !,?4,"This field has already been added to the claim.",*7
  • Line Location: A1+22
Function Call: WRITE
  • Prompt: !,?4,"Value to transmit: ",BPS("X")
  • Line Location: A1+30
Function Call: WRITE
  • Prompt: !!,"Fields entered to transmit:"
  • Line Location: A2+8
Function Call: WRITE
  • Prompt: !,?4,"Date of Service: ",$$FMTE^XLFDT(BPSDOS,"5D")
  • Line Location: A2+9
Function Call: WRITE
  • Prompt: !,?4,$$GET1^DIQ(9002313.91,BPSFIELD,.01),"-"
  • Line Location: A2+12
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9002313.91,BPSFIELD,.06)," "
  • Line Location: A2+13
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9002313.91,BPSFIELD,.03),": "
  • Line Location: A2+14
Function Call: WRITE
  • Prompt: BPSADDLFLDS(BPSFIELD)
  • Line Location: A2+15
Function Call: WRITE
  • Prompt: !!,"Could not save override information into BPS NCPDP OVERRIDE file.",!
  • Line Location: SAVE+49
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLINE+5
Function Call: WRITE
  • Prompt: $S($G(BPERRMES)]"":BPERRMES,1:" Invalid line number")
  • Line Location: ASKLINE+8
Function Call: WRITE
  • Prompt: "Please select Patient's summary line."
  • Line Location: ASKLINE+10
Function Call: WRITE
  • Prompt: "Please specify RX line."
  • Line Location: ASKLINE+11
Function Call: WRITE
  • Prompt: "Incorrect format."
  • Line Location: ASKLINE+12
Routine Call
  • DIC
  • Line Location:
    • A1+11
Routine Call
  • DIE
  • Line Location:
    • SAVE+46
Routine Call
  • DIR
  • Line Location:
    • SAVE+53
    • EDITDT+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSC - [#9002313.02] GET1^DIQ
^BPSF(9002313.91 - [#9002313.91] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPSF(9002313.9 - [#9002313.9] CHECK+16
^BPSF(9002313.91 - [#9002313.91] A1+29, CHECK+15, CHECK+28, SAVE+23, SAVE+24, SAVE+25, SAVE+26, SAVE+27, SAVE+28, SAVE+29
, SAVE+30, SAVE+31, SAVE+32
^BPSF(9002313.92 - [#9002313.92] ARRAYS+11, ARRAYS+14, ARRAYS+15

Label References

Name Line Occurrences
A1 A1+22, A1+32, A1+39
A2 A1+15
ARRAYS ADDLFLDS+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SAVE+17
BP02 EDITDT~, EDITDT+17
>> BPCLCD1 SAVE+27
>> BPCLCD2 SAVE+27
>> BPCLCD3 SAVE+27
BPCNT ASKLINE+1~, ASKLINE+2*, ASKLINE+5*, ASKLINE+6*
BPCUR EDITDT+14~, EDITDT+17*, EDITDT+22
>> BPDIAGNOSIS SAVE+32
>> BPDLYRS SAVE+30
BPERRMES ASKLINE~, ASKLINE+8
BPFIL EDITDT+14~, EDITDT+16*, EDITDT+19, EDITDT+23
>> BPGENDER SAVE+31
>> BPPHSRV SAVE+29
>> BPPREAUT SAVE+25
>> BPPRETYP SAVE+26
>> BPPSNCD SAVE+23
>> BPPTRES SAVE+28
>> BPRELCD SAVE+24
BPRET ASKLINE+1~, ASKLINE+2*, ASKLINE+3*, ASKLINE+7, ASKLINE+8, ASKLINE+9, ASKLINE+10, ASKLINE+11, ASKLINE+12, ASKLINE+13
BPRLS EDITDT+14~, EDITDT+15*, EDITDT+20, EDITDT+23, EDITDT+24
BPROMPT ASKLINE~, ASKLINE+3
BPRXIEN EDITDT~, EDITDT+15, EDITDT+16
BPRXR EDITDT~, EDITDT+15, EDITDT+16
BPS ADDLFLDS+17~
BPS( ADDLFLDS+55*
BPS("X" A1+26*, A1+30, A1+37
BPS02 ADDLFLDS~, ADDLFLDS+37, ARRAYS~, ARRAYS+8
BPS59 ADDLFLDS~, ADDLFLDS+54, SAVE~, SAVE+15
BPSACTION SAVE~, SAVE+22
BPSADDLFLDS ADDLFLDS~, ADDLFLDS+31!, A1+33!, A2+4, SAVE~
BPSADDLFLDS( A1+22, A1+37*, A2+11, A2+15, SAVE+40
BPSCNT SAVE+13~, SAVE+21*, SAVE+33*, SAVE+41*, SAVE+42, SAVE+43
BPSDOS ADDLFLDS~, ADDLFLDS+26, A2+4, A2+9
BPSFDA SAVE+13~
BPSFDA( SAVE+15*, SAVE+17*, SAVE+23*, SAVE+24*, SAVE+25*, SAVE+26*, SAVE+27*, SAVE+28*, SAVE+29*, SAVE+30*
, SAVE+31*, SAVE+32*, SAVE+42*, SAVE+43*
BPSFIELD ADDLFLDS+17~, A1+18*, A1+22, A1+29, A1+37, A2+10*, A2+11*, A2+12, A2+13, A2+14
, A2+15, ARRAYS+6~, ARRAYS+15*, ARRAYS+16, SAVE+13~, SAVE+23*, SAVE+24*, SAVE+25*, SAVE+26*, SAVE+27*
, SAVE+28*, SAVE+29*, SAVE+30*, SAVE+31*, SAVE+32*, SAVE+39*, SAVE+40*, SAVE+42, SAVE+43
BPSGETCODE ADDLFLDS+17~, A1+28*, A1+29*
BPSMSG SAVE+13~
BPSMSG("DIERR" SAVE+48
BPSORDER ARRAYS+6~, ARRAYS+13*, ARRAYS+14*, ARRAYS+15
BPSOVRIEN SAVE~
BPSPAYER ADDLFLDS+17~, ADDLFLDS+37, ADDLFLDS+38, ARRAYS~, ARRAYS+8*, ARRAYS+9, ARRAYS+11, ARRAYS+14, ARRAYS+15, CHECK~
BPSPAYER( ARRAYS+16*, CHECK+10
BPSQ ADDLFLDS+17~, ADDLFLDS+25*, ADDLFLDS+26, ADDLFLDS+27, A1+31*, A1+32, A1+33
BPSSEGMENT ADDLFLDS+17~, ADDLFLDS+37, ARRAYS~, ARRAYS+10*, ARRAYS+11, ARRAYS+12, ARRAYS+14, ARRAYS+15, CHECK~, CHECK+15*
, CHECK+16*, CHECK+17, CHECK+18, CHECK+24
BPSSEGMENT( ARRAYS+12*, CHECK+18
BPSY CHECK~, CHECK+10, CHECK+15, CHECK+28
DFLT EDITDT~, EDITDT+18*, EDITDT+19, EDITDT+20
DIC ADDLFLDS+18~, A1+2!, A1+4*
DIC("A" A1+6*
DIC("S" A1+7*
DIC("T" A1+8*
DIC(0 A1+5*
DIR SAVE+50~, EDITDT+14~
DIR("A" SAVE+52*, EDITDT+18*
DIR("B" EDITDT+18*, EDITDT+19*, EDITDT+20*
DIR(0 SAVE+51*, EDITDT+22*, EDITDT+23*, EDITDT+24*
DIROUT EDITDT+14~
DIRUT EDITDT+14~, EDITDT+26
DT EDITDT+23, EDITDT+24
DTOUT EDITDT+14~
DUOUT EDITDT+14~
MEDN ADDLFLDS+18~, A1+27*
OPT EDITDT+14~, EDITDT+21*, EDITDT+22, EDITDT+23*, EDITDT+24*
TMP EDITDT+14~
TMP( EDITDT+22*, EDITDT+23*, EDITDT+24*, EDITDT+27
TRANLIST ADDLFLDS+18~
TRANLIST( ADDLFLDS+54*
U ADDLFLDS+57
>> VALMAR ASKLINE+3
X ADDLFLDS+18~, ADDLFLDS+56*, ADDLFLDS+57, A1+15, EDITDT+14~
Y ADDLFLDS+18~, A1+17, A1+18, EDITDT+14~, EDITDT+26*, EDITDT+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All