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

Package: Integrated Billing

Routine: IBCEMSR1


Information

IBCEMSR1 ;WOIFO/AAT - MRA STATISTICS REPORT CONT. ;09/03/04

Source Information

Source file <IBCEMSR1.m>

Entry Points

Name Comments DBIA/ICR reference
HDR
REPORT
DETAILS ; Print Details
SUMMARY ;Print summary
SECONDRY ; Print 2ndary claims info
CHKP ;Check for EOP
PAUSE ;
PAUSE2 ;
DAT(X) ;Convert FM date to displayable (mm/dd/yy) format.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"MRA Statistics Report for period covering "_$$DAT(IBBDT)_" thru "_$$DAT(IBEDT)," ",?100,$$DAT(DT)," Page ",IBPAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"No data meet the criteria."
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !,"DIVISION: ",IBDVN
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !,"SUMMARY"
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: !,"DIVISION: ",IBDVN
  • Line Location: REPORT+12
Function Call: WRITE
  • Prompt: !,"CLERK: ",IBCLERK
  • Line Location: DETAILS+6
Function Call: WRITE
  • Prompt: !?7,"Primary UB-04 MRA Requests",?67,"Primary CMS-1500 MRA Requests"
  • Line Location: DETAILS+7
Function Call: WRITE
  • Prompt: !?7,"--------------------------",?67,"-----------------------------"
  • Line Location: DETAILS+8
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(+$G(@REFU@("ALL")),5),?67,IBTXT,?110,$J(+$G(@REFH@("ALL")),5)
  • Line Location: DETAILS+10
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBTU,5),?67,IBTXT,?110,$J(IBTH,5)
  • Line Location: DETAILS+12
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBNU,5),?67,IBTXT,?110,$J(IBNH,5)
  • Line Location: DETAILS+14
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBNU,5),?67,IBTXT,?110,$J(IBNH,5)
  • Line Location: DETAILS+16
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBNU,5),?67,IBTXT,?110,$J(IBNH,5)
  • Line Location: DETAILS+19
Function Call: WRITE
  • Prompt: !?14,IBTXT,?35,$J($G(@REFU@("MRA"))-$G(@REFU@("MRAD")),5),?74,IBTXT,?90,$J($G(@REFH@("MRA"))-$G(@REFH@("MRAD")),5)
  • Line Location: DETAILS+21
Function Call: WRITE
  • Prompt: !?14,IBTXT,?35,$J(+$G(@REFU@("MRAD")),5),?74,IBTXT,?90,$J(+$G(@REFH@("MRAD")),5)
  • Line Location: DETAILS+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAILS+24
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAILS+27
Function Call: WRITE
  • Prompt: !?7,"Primary UB-04 MRA Requests",?67,"Primary CMS-1500 MRA Requests"
  • Line Location: SUMMARY+6
Function Call: WRITE
  • Prompt: !?7,"--------------------------",?67,"-----------------------------"
  • Line Location: SUMMARY+7
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBTU,5),?67,IBTXT,?110,$J(IBTH,5)
  • Line Location: SUMMARY+9
Function Call: WRITE
  • Prompt: !?14,IBTXT,?50,$$%(IBNU,IBTU),?74,IBTXT,?110,$$%(IBNH,IBTH)
  • Line Location: SUMMARY+11
Function Call: WRITE
  • Prompt: !?14,IBTXT,?50,$$%(IBNU,IBTU),?74,IBTXT,?110,$$%(IBNH,IBTH)
  • Line Location: SUMMARY+13
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBTU,5),?67,IBTXT,?110,$J(IBTH,5)
  • Line Location: SUMMARY+15
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBNU,5),?67,IBTXT,?110,$J(IBNH,5)
  • Line Location: SUMMARY+17
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBNU,5),?67,IBTXT,?110,$J(IBNH,5)
  • Line Location: SUMMARY+19
Function Call: WRITE
  • Prompt: !?14,IBTXT,?50,$$%(IBNU,IBTU),?74,IBTXT,?110,$$%(IBNH,IBTH)
  • Line Location: SUMMARY+21
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBTU,5),?67,IBTXT,?110,$J(IBTH,5)
  • Line Location: SUMMARY+23
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(IBNU,5),?67,IBTXT,?110,$J(IBNH,5)
  • Line Location: SUMMARY+25
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(+$G(@REFU@("MRAD")),5),?67,IBTXT,?110,$J(+$G(@REFH@("MRAD")),5)
  • Line Location: SUMMARY+27
Function Call: WRITE
  • Prompt: !?14,IBTXT,?50,$$%(IBNU,IBTU),?74,IBTXT,?110,$$%(IBNH,IBTH)
  • Line Location: SUMMARY+29
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+30
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J($$%(+$G(@REFU@("SEC")),+$G(@REFU@("TOT"))),5),?67,IBTXT,?110,$J($$%(+$G(@REFH@("SEC")),+$G(@REFH@("TOT"))),5)
  • Line Location: SUMMARY+34
Function Call: WRITE
  • Prompt: !?14,IBTXT,?50,$J($$%($G(@REFU@("AT"))+$G(@REFU@("AP")),+$G(@REFU@("TOT"))),5),?67,IBTXT,?110,$J($$%($G(@REFH@("AT"))+$G(@REFH@("AP")),+$G(@REFH@("TOT"))),5)
  • Line Location: SUMMARY+36
Function Call: WRITE
  • Prompt: !?14,IBTXT,?50,$J($$%($G(@REFU@("MT"))+$G(@REFU@("MP")),+$G(@REFU@("TOT"))),5),?67,IBTXT,?110,$J($$%($G(@REFH@("MT"))+$G(@REFH@("MP")),+$G(@REFH@("TOT"))),5)
  • Line Location: SUMMARY+38
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+40
Function Call: WRITE
  • Prompt: !?7,"Secondary UB-04 claims",?67,"Secondary CMS-1500 claims"
  • Line Location: SECONDRY+1
Function Call: WRITE
  • Prompt: !?7,"----------------------",?67,"-------------------------"
  • Line Location: SECONDRY+2
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(+$G(@REFU@("AUT")),5),?67,IBTXT,?110,$J(+$G(@REFH@("AUT")),5)
  • Line Location: SECONDRY+4
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(+$G(@REFU@("AP")),5),?67,IBTXT,?110,$J(+$G(@REFH@("AP")),5)
  • Line Location: SECONDRY+7
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("AP1")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("AP1")),10,2)
  • Line Location: SECONDRY+9
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("AP2")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("AP2")),10,2)
  • Line Location: SECONDRY+11
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("AP3")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("AP3")),10,2)
  • Line Location: SECONDRY+13
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(+$G(@REFU@("AT")),5),?67,IBTXT,?110,$J(+$G(@REFH@("AT")),5)
  • Line Location: SECONDRY+16
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("AT1")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("AT1")),10,2)
  • Line Location: SECONDRY+18
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("AT2")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("AT2")),10,2)
  • Line Location: SECONDRY+20
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("AT3")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("AT3")),10,2)
  • Line Location: SECONDRY+22
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(+$G(@REFU@("MP")),5),?67,IBTXT,?110,$J(+$G(@REFH@("MP")),5)
  • Line Location: SECONDRY+25
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("MP1")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("MP1")),10,2)
  • Line Location: SECONDRY+27
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("MP2")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("MP2")),10,2)
  • Line Location: SECONDRY+29
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("MP3")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("MP3")),10,2)
  • Line Location: SECONDRY+31
Function Call: WRITE
  • Prompt: !?7,IBTXT,?50,$J(+$G(@REFU@("MT")),5),?67,IBTXT,?110,$J(+$G(@REFH@("MT")),5)
  • Line Location: SECONDRY+34
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("MT1")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("MT1")),10,2)
  • Line Location: SECONDRY+36
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("MT2")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("MT2")),10,2)
  • Line Location: SECONDRY+38
Function Call: WRITE
  • Prompt: !?14,IBTXT,?45,$J(+$G(@REFU@("MT3")),10,2),?74,IBTXT,?105,$J(+$G(@REFH@("MT3")),10,2)
  • Line Location: SECONDRY+40
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE2+1
Info |  Source |  Entry Points |  Interaction Calls