Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls