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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: BPSSCRU5

Package: E Claims Management Engine

Routine: BPSSCRU5


Information

BPSSCRU5 ;BHAM ISC/SS - ECME SCREEN UTILITIES ;05-APR-05

Source Information

Source file <BPSSCRU5.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
E Claims Management Engine 3 $$NEXTINS^BPSSCRCL  SETLINE^BPSSCRLG  $$YESNO^BPSSCRRS  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 DD^%DT  

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: 5

Package Total Caller Graph
E Claims Management Engine 5 BPSSCR03  BPSSCRCL  BPSSCRL1  BPSSCRLG  BPSSCRU6  

Entry Points

Name Comments DBIA/ICR reference
DATETIME(Y) ;EP - convert fileman date.time to printable
MKHIST(BP59,BPHIST) ;
TRTYPE(BPTRCD) ;
LNDC(BPIEN02) ;
REJCODES(BPIEN03,BPRCODES) ;
RESPSTAT(BPIEN03) ;
B1PYRIEN(BP57) ;
B2PYRIEN(BP57) ;
B3PYRIEN(BP57) ;
WRAPLN(BPLN,BPX,BPMLEN,BPPREFX,BPMARG) ;
SPACES(BPN) ;
WRAPLN2(BPN,BPARR,BPX,BPMLEN,BPPREFX,BPMARG) ;
SETLN(BPN,BPARR,BPTXT) ;
CH2NDINS(BP59,BPPATNAM,BPINSNAM,BPRXINFO) ;
PRN(BPPATNAM,BPRETV,BPRXINFO,BPPRNFL) ;
MS2NDINS ;
PRINT(TXTSRC,DESCR,SAVEVARS) ;
DEVICE ;

External References

Name Field # of Occurrence
DD^%DT MS2NDINS+8
^%ZIS DEVICE+4
HOME^%ZIS DEVICE+14
^%ZISC PRINT+5
^%ZTLOAD DEVICE+12
$$NEXTINS^BPSSCRCL CH2NDINS+2
SETLINE^BPSSCRLG WRAPLN+5, WRAPLN+11
$$YESNO^BPSSCRRS CH2NDINS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: CH2NDINS+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: !,"This patient has ADDITIONAL insurance with Rx Coverage that may be"
  • Line Location: MS2NDINS+2
Function Call: WRITE
  • Prompt: !,"used to bill this claim. The system will change the CT entry to a"
  • Line Location: MS2NDINS+3
Function Call: WRITE
  • Prompt: !,"NON-BILLABLE Episode. If appropriate, please go to the ECME Pharmacy"
  • Line Location: MS2NDINS+4
Function Call: WRITE
  • Prompt: !,"COB menu and use the PRO - Process Secondary/TRICARE Rx to ECME"
  • Line Location: MS2NDINS+5
Function Call: WRITE
  • Prompt: !,"option to create an ePharmacy secondary claim."
  • Line Location: MS2NDINS+6
Function Call: WRITE
  • Prompt: !!,"Patient: ",?18,BPPATNAM
  • Line Location: MS2NDINS+7
Function Call: WRITE
  • Prompt: !,"Date of service: ",?18,Y
  • Line Location: MS2NDINS+9
Function Call: WRITE
  • Prompt: !,"Insurance: ",?18,$P(BPRETV,U,2)
  • Line Location: MS2NDINS+10
Function Call: WRITE
  • Prompt: !,"Group number: ",?18,$P(BPRETV,U,3)
  • Line Location: MS2NDINS+11
Function Call: WRITE
  • Prompt: !,BPRXINFO(Z)
  • Line Location: MS2NDINS+12
Function Call: WRITE
  • Prompt: !,"Cancelled"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+13
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPSC - [#9002313.02] MKHIST+12, MKHIST+13, MKHIST+27, MKHIST+28, LNDC+2
^BPSF(9002313.92 - [#9002313.92] B1PYRIEN+3, B2PYRIEN+3, B3PYRIEN+3
^BPSR - [#9002313.03] MKHIST+20, MKHIST+33, REJCODES+3, REJCODES+4, RESPSTAT+2
^BPSTL - [#9002313.57] MKHIST+8, MKHIST+24, B1PYRIEN+2, B2PYRIEN+2, B3PYRIEN+2
^BPSTL("B" MKHIST+6
^DD("DD" DATETIME+1

Label References

Name Line Occurrences
$$SPACES WRAPLN+11, WRAPLN2+11
@( PRINT+4
DEVICE PRINT+3
MS2NDINS PRN+1
PRINT PRN+2
PRN CH2NDINS+4, CH2NDINS+7
SETLN WRAPLN2+5, WRAPLN2+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+2~, DEVICE+3*
BP1 MKHIST+1~, MKHIST+12*, MKHIST+13*, MKHIST+16*, MKHIST+17, MKHIST+20*, MKHIST+21*, MKHIST+22, MKHIST+27*, MKHIST+28*
, MKHIST+29*, MKHIST+30, MKHIST+33*, MKHIST+34*, MKHIST+35, RESPSTAT+1~, RESPSTAT+2*, RESPSTAT+3, RESPSTAT+4, RESPSTAT+5
, RESPSTAT+6, RESPSTAT+7, RESPSTAT+8, RESPSTAT+9, RESPSTAT+10
BP57 MKHIST+1~, MKHIST+2*, MKHIST+6*, MKHIST+8, MKHIST+17, MKHIST+22, MKHIST+24, MKHIST+30, MKHIST+35, B1PYRIEN~
, B1PYRIEN+2, B2PYRIEN~, B2PYRIEN+2, B3PYRIEN~, B3PYRIEN+2
BP59 MKHIST~, MKHIST+6, CH2NDINS~, CH2NDINS+2
BPA REJCODES+1~, REJCODES+2*, REJCODES+3*, REJCODES+4
BPARR WRAPLN2~, WRAPLN2+5, WRAPLN2+11, SETLN~
BPARR( SETLN+1*
BPCLDT1 MKHIST+38~, MKHIST+39*, MKHIST+40*, MKHIST+41, MKHIST+42, MKHIST+44, MKHIST+47
BPCLDT2 MKHIST+38~, MKHIST+42*, MKHIST+43*, MKHIST+45
BPCLIEN MKHIST+38~, MKHIST+41*, MKHIST+47
BPDAT02 LNDC+1~
BPDAT02(400 LNDC+2*, LNDC+3
BPDAT57 MKHIST+1~
BPDAT57(0 MKHIST+8*, MKHIST+9, MKHIST+10, MKHIST+18
BPDAT57(4 MKHIST+24*, MKHIST+25, MKHIST+31
BPHIST MKHIST~
BPHIST("C" MKHIST+17*, MKHIST+30*, MKHIST+40, MKHIST+41, MKHIST+42, MKHIST+47*
BPHIST("R" MKHIST+22*, MKHIST+35*, MKHIST+45, MKHIST+46, MKHIST+47
BPIEN02 LNDC~, LNDC+2
BPIEN03 REJCODES~, REJCODES+3, REJCODES+4, RESPSTAT~, RESPSTAT+2
BPINSNAM CH2NDINS~, CH2NDINS+2
BPLEN WRAPLN+1~, WRAPLN+3*, WRAPLN+4, WRAPLN+6, WRAPLN+8*, WRAPLN+10, WRAPLN+12, WRAPLN2+1~, WRAPLN2+3*, WRAPLN2+4
, WRAPLN2+6, WRAPLN2+8*, WRAPLN2+10, WRAPLN2+12
BPLN WRAPLN~, WRAPLN+5, WRAPLN+11
BPLSTCLM MKHIST+1~, MKHIST+10*, MKHIST+11, MKHIST+12, MKHIST+13, MKHIST+16, MKHIST+17, MKHIST+21, MKHIST+25*, MKHIST+26
, MKHIST+27, MKHIST+28, MKHIST+29, MKHIST+30, MKHIST+34
BPLSTRSP MKHIST+1~, MKHIST+18*, MKHIST+19, MKHIST+20, MKHIST+21, MKHIST+22, MKHIST+31*, MKHIST+32, MKHIST+33, MKHIST+34
, MKHIST+35
BPMARG WRAPLN~, WRAPLN+8, WRAPLN+11, WRAPLN2~, WRAPLN2+8, WRAPLN2+11
BPMLEN WRAPLN~, WRAPLN+3, WRAPLN+8, WRAPLN2~, WRAPLN2+3, WRAPLN2+8
BPN SPACES~, SPACES+2, WRAPLN2~, WRAPLN2+5, WRAPLN2+11, SETLN~, SETLN+1*
BPNDC LNDC+1~, LNDC+3*, LNDC+4*, LNDC+5
BPPATNAM CH2NDINS~, CH2NDINS+4, CH2NDINS+7, PRN~, MS2NDINS+7
BPPREFX WRAPLN~, WRAPLN+3, WRAPLN+5, WRAPLN2~, WRAPLN2+3, WRAPLN2+5
BPPRNFL PRN~, PRN+1
BPQ WRAPLN+1~, WRAPLN+2*, WRAPLN+9, WRAPLN+13*, WRAPLN2+1~, WRAPLN2+2*, WRAPLN2+9, WRAPLN2+13*
BPR REJCODES+1~, REJCODES+4*, REJCODES+5
BPRCODES REJCODES~
BPRCODES( REJCODES+5*
BPRETV CH2NDINS+1~, CH2NDINS+2*, CH2NDINS+3, CH2NDINS+4, CH2NDINS+7, PRN~, MS2NDINS+8, MS2NDINS+10, MS2NDINS+11
BPRSDT1 MKHIST+38~, MKHIST+44*, MKHIST+45*, MKHIST+46, MKHIST+47
BPRSIEN MKHIST+38~, MKHIST+46*, MKHIST+47
BPRXINFO CH2NDINS~, CH2NDINS+4, CH2NDINS+7, PRN~
BPRXINFO( MS2NDINS+12
BPSARR02 MKHIST+3~
BPSARR02( MKHIST+16*, MKHIST+21*, MKHIST+29*, MKHIST+34*
BPSARR03 MKHIST+4~
BPSARR03( MKHIST+21, MKHIST+34
BPSSTDT MKHIST+1~, MKHIST+9*, MKHIST+16, MKHIST+21, MKHIST+29, MKHIST+34
BPTRCD TRTYPE~, TRTYPE+1, TRTYPE+2, TRTYPE+3, TRTYPE+4, TRTYPE+5, TRTYPE+6, TRTYPE+7, TRTYPE+8, TRTYPE+9
, TRTYPE+10, TRTYPE+11, TRTYPE+12, TRTYPE+13, TRTYPE+14
BPTXT SETLN~, SETLN+1
BPX B1PYRIEN+1~, B1PYRIEN+3*, B1PYRIEN+4, B2PYRIEN+1~, B2PYRIEN+3*, B2PYRIEN+4, B3PYRIEN+1~, B3PYRIEN+3*, B3PYRIEN+4, WRAPLN~
, WRAPLN+4, WRAPLN+6*, WRAPLN+7, WRAPLN+10, WRAPLN+12*, WRAPLN+13, SPACES+1~, SPACES+2*, SPACES+3, WRAPLN2~
, WRAPLN2+4, WRAPLN2+6*, WRAPLN2+7, WRAPLN2+10, WRAPLN2+12*, WRAPLN2+13
BPX2 B1PYRIEN+1~, B1PYRIEN+2*, B1PYRIEN+3, B2PYRIEN+1~, B2PYRIEN+2*, B2PYRIEN+3, B3PYRIEN+1~, B3PYRIEN+2*, B3PYRIEN+3
BPXX WRAPLN+1~, WRAPLN+4*, WRAPLN+5, WRAPLN+10*, WRAPLN+11, WRAPLN2+1~, WRAPLN2+4*, WRAPLN2+5, WRAPLN2+10*, WRAPLN2+11
DESCR PRINT~, DEVICE+11
DIR DEVICE+1~
DIRUT DEVICE+1~
IO DEVICE+15
IO("Q" DEVICE+3!, DEVICE+7
IOF PRN+1
ION DEVICE+9
IOST DEVICE+6
POP DEVICE+1~, DEVICE+5
QUITVAR PRINT+1~, PRINT+2*, PRINT+3, PRINT+6, DEVICE+5*, DEVICE+7*
SAVEVARS PRINT~, DEVICE+10
SCRFLAG PRINT+1~, PRINT+2*, DEVICE+6*
TXTSRC PRINT~, PRINT+4, DEVICE+8
U MKHIST+9, MKHIST+10, MKHIST+12, MKHIST+13, MKHIST+17, MKHIST+18, MKHIST+20, MKHIST+22, MKHIST+25, MKHIST+27
, MKHIST+28, MKHIST+30, MKHIST+31, MKHIST+33, MKHIST+35, LNDC+3, REJCODES+4, RESPSTAT+2, B1PYRIEN+2, B1PYRIEN+3
, B2PYRIEN+2, B2PYRIEN+3, B3PYRIEN+2, B3PYRIEN+3, MS2NDINS+8, MS2NDINS+10, MS2NDINS+11
Y DATETIME~, DATETIME+2, MS2NDINS+1~, MS2NDINS+8*, MS2NDINS+9, PRINT+1~
Z MS2NDINS+1~, MS2NDINS+12*
ZTDESC DEVICE+2~, DEVICE+11*
ZTIO DEVICE+2~, DEVICE+9*
ZTRTN DEVICE+2~, DEVICE+8*
ZTSAVE DEVICE+2~
ZTSAVE( DEVICE+10*
>> ZTSK DEVICE+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All