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

Package: E Claims Management Engine

Routine: BPSOS6M


Information

BPSOS6M ;BHAM ISC/FCS/DRS - Print log of claim ;06/01/2004

Source Information

Source file <BPSOS6M.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
E Claims Management Engine 7 ($$EXISTS,PRINTLOG)^BPSOSL1  RESPINFO^BPSOSQ4  $$STATI^BPSOSU  PRESSANY^BPSOSU5  ($$DATETIME,$$TIMEDIF)^BPSOSUD  $$INSNAME^BPSSCRU6  $$RXAPI1^BPSUTIL1  
Kernel 2 ^%ZIS  ^%ZISC  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
E Claims Management Engine 1 BPSSCRDV  

Entry Points

Name Comments DBIA/ICR reference
DISPRESP ;
CLAIMLOG(IEN59) ;EP - from BPSSCRDV

External References

Name Field # of Occurrence
^%ZIS CLAIMLOG+6
^%ZISC CLAIMLOG+75
$$EXISTS^BPSOSL1 CLAIMLOG+63
PRINTLOG^BPSOSL1 CLAIMLOG+67
RESPINFO^BPSOSQ4 DISPRESP+4
$$STATI^BPSOSU CLAIMLOG+41
PRESSANY^BPSOSU5 CLAIMLOG+69, CLAIMLOG+72
$$DATETIME^BPSOSUD CLAIMLOG+45, CLAIMLOG+46
$$TIMEDIF^BPSOSUD CLAIMLOG+47
$$INSNAME^BPSSCRU6 CLAIMLOG+32
$$RXAPI1^BPSUTIL1 CLAIMLOG+24
PAUSE^VALM1 CLAIMLOG+66

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLAIMLOG+18
Function Call: WRITE
  • Prompt: "Pharmacy ECME Log of activity for one prescription",!
  • Line Location: CLAIMLOG+19
Function Call: WRITE
  • Prompt: "Internal Prescription #",$P(REC(1),U,11)
  • Line Location: CLAIMLOG+22
Function Call: WRITE
  • Prompt: " Fill #",+$P(REC(1),U)
  • Line Location: CLAIMLOG+23
Function Call: WRITE
  • Prompt: !,"VA Prescription #",$$RXAPI1^BPSUTIL1(+$P(REC(1),U,11),.01)
  • Line Location: CLAIMLOG+24
Function Call: WRITE
  • Prompt: !,"Transaction #",IEN59
  • Line Location: CLAIMLOG+25
Function Call: WRITE
  • Prompt: !,"Patient: "
  • Line Location: CLAIMLOG+28
Function Call: WRITE
  • Prompt: X
  • Line Location: CLAIMLOG+29
Function Call: WRITE
  • Prompt: !,"Insurance: "_$$INSNAME^BPSSCRU6(IEN59)
  • Line Location: CLAIMLOG+32
Function Call: WRITE
  • Prompt: !,"RX Coord of Benefits: "
  • Line Location: CLAIMLOG+35
Function Call: WRITE
  • Prompt: $S(X=2:"Secondary",X=3:"Tertiary",1:"Primary")
  • Line Location: CLAIMLOG+37
Function Call: WRITE
  • Prompt: !!,"Status: "
  • Line Location: CLAIMLOG+40
Function Call: WRITE
  • Prompt: X," (",$$STATI^BPSOSU(X),")"
  • Line Location: CLAIMLOG+41
Function Call: WRITE
  • Prompt: !!,"Last started on "
  • Line Location: CLAIMLOG+45
Function Call: WRITE
  • Prompt: $$DATETIME^BPSOSUD(X1)
  • Line Location: CLAIMLOG+45
Function Call: WRITE
  • Prompt: !,"Last activity on "
  • Line Location: CLAIMLOG+46
Function Call: WRITE
  • Prompt: $$DATETIME^BPSOSUD(X2)
  • Line Location: CLAIMLOG+46
Function Call: WRITE
  • Prompt: " Elapsed time: "
  • Line Location: CLAIMLOG+47
Function Call: WRITE
  • Prompt: $$TIMEDIF^BPSOSUD(X1,X2)
  • Line Location: CLAIMLOG+47
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLAIMLOG+50
Function Call: WRITE
  • Prompt: "No entry"
  • Line Location: CLAIMLOG+52
Function Call: WRITE
  • Prompt: "See also entry `",X
  • Line Location: CLAIMLOG+53
Function Call: WRITE
  • Prompt: " in file BPS CLAIMS (#9002313.02)",!
  • Line Location: CLAIMLOG+54
Function Call: WRITE
  • Prompt: " but there is no entry"
  • Line Location: CLAIMLOG+57
Function Call: WRITE
  • Prompt: " and entry `",X
  • Line Location: CLAIMLOG+58
Function Call: WRITE
  • Prompt: " in file BPS RESPONSES (#9002313.03)",!
  • Line Location: CLAIMLOG+59
Function Call: WRITE
  • Prompt: !,"Log of this claim's activity: ",!
  • Line Location: CLAIMLOG+65
Function Call: WRITE
  • Prompt: !,"There is no log for this claim's activity.",!
  • Line Location: CLAIMLOG+71
Function Call: WRITE
  • Prompt: !,"Response Status-Header: ",$G(RSP("HDR"))
  • Line Location: DISPRESP+5
Function Call: WRITE
  • Prompt: !,"Response Status-Prescription: ",$G(RSP("RSP"))
  • Line Location: DISPRESP+6
Function Call: WRITE
  • Prompt: !?10,RSP("MSG")
  • Line Location: DISPRESP+7
Function Call: WRITE
  • Prompt: !?10,$G(RSP("REJ",I))
  • Line Location: DISPRESP+8
Function Call: WRITE
  • Prompt: !,"Result: ",RES
  • Line Location: DISPRESP+10
Function Call: WRITE
  • Prompt: " (",$P($P(REC(2),";",1),U,2,$L(REC(2),U)),")"
  • Line Location: DISPRESP+11
Routine Call
  • %ZIS
  • Line Location:
    • CLAIMLOG+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPST - [#9002313.59] CLAIMLOG+14
^DPT - [#2] CLAIMLOG+29

Label References

Name Line Occurrences
DISPRESP CLAIMLOG+42

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BPSCR CLAIMLOG+11~*, CLAIMLOG+18, CLAIMLOG+66, CLAIMLOG+69, CLAIMLOG+72
EXISTS CLAIMLOG+63~*, CLAIMLOG+64, CLAIMLOG+70
I CLAIMLOG+15~*, DISPRESP+8~*
IEN59 CLAIMLOG~, CLAIMLOG+2, CLAIMLOG+14, CLAIMLOG+25, CLAIMLOG+32, CLAIMLOG+63, CLAIMLOG+67, DISPRESP+4
IO CLAIMLOG+8
IOF CLAIMLOG+18
IOST CLAIMLOG+11
POP CLAIMLOG+5~, CLAIMLOG+7
REC CLAIMLOG+14~*
REC( CLAIMLOG+15*
REC(0 CLAIMLOG+29, CLAIMLOG+36, CLAIMLOG+41, CLAIMLOG+45, CLAIMLOG+46, CLAIMLOG+51, CLAIMLOG+56
REC(1 CLAIMLOG+22, CLAIMLOG+23, CLAIMLOG+24
REC(2 DISPRESP+2, DISPRESP+11
RES DISPRESP+1~, DISPRESP+2*, DISPRESP+3, DISPRESP+10
RSP DISPRESP+4~
RSP("HDR" DISPRESP+5
RSP("MSG" DISPRESP+7
RSP("REJ" DISPRESP+8
RSP("RSP" DISPRESP+6
STOP CLAIMLOG+62~*, CLAIMLOG+64, CLAIMLOG+66*, CLAIMLOG+67, CLAIMLOG+68
U CLAIMLOG+22, CLAIMLOG+23, CLAIMLOG+24, CLAIMLOG+29, CLAIMLOG+36, CLAIMLOG+41, CLAIMLOG+45, CLAIMLOG+46, CLAIMLOG+51, CLAIMLOG+56
, DISPRESP+2, DISPRESP+11
X CLAIMLOG+14~, CLAIMLOG+29*, CLAIMLOG+36*, CLAIMLOG+37, CLAIMLOG+41*, CLAIMLOG+42, CLAIMLOG+51*, CLAIMLOG+52, CLAIMLOG+53, CLAIMLOG+55
, CLAIMLOG+56*, CLAIMLOG+57, CLAIMLOG+58, CLAIMLOG+66*
X1 CLAIMLOG+14~, CLAIMLOG+45*, CLAIMLOG+47
X2 CLAIMLOG+14~, CLAIMLOG+46*, CLAIMLOG+47
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All