DGBTR3A ;ALB/RFE - CLERK REPORT; 07/10/12
;;1.0;Beneficiary Travel;**20**;November 11, 2011;Build 185
Q
;/*Called from DGBTR123*/
HDRMF ;
S PAGE=PAGE+1
W @IOF
W "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
W !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
W !,"VERSION: FULL"
W !,"TYPE: MILEAGE"
W !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
W !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
W !,$E(EQUAL,1,130)
W !,"PATIENT NAME",?32,"SSN",?43,"CLERK",?78,"CL DT",?92,"ENT DT",?109,"ACCT"
W !,?5,"DIVISION",?42,"R/O",?48,"MILEAGE",?56,"CC MODE",?94,"CC FEE",?109,"ECON",?121,"M&L"
W !,?5,"F&B",?17,"DED",?25,"PAYABLE",?38,"REMARKS"
W !,$E(EQUAL,1,130)
Q
GRANDMF ;
I ($Y+8)>IOSL D
.S PAGE=PAGE+1
.W @IOF
.W "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
.W !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
.W !,"VERSION: FULL"
.W !,"TYPE: MILEAGE"
.W !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
.W !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
W !,$E(EQUAL,1,127)
W !,"GRAND TOTALS:",?15,"CLAIMS",?48,"MILEAGE",?94,"CC FEE",?109,"ECON",?121,"M&L"
W !,?5,"F&B",?17,"DED",?25,"PAYABLE"
W !?15,GRAND("CLAIMS"),?48,GRAND("TOT MILE"),?94,$$DLRAMT(GRAND("CC FEE")),?109,$$DLRAMT(GRAND("ECON")),?121,$$DLRAMT(GRAND("M&L"))
W !,?5,$$DLRAMT(GRAND("F&B")),?17,$$DLRAMT(GRAND("DED")),?25,$$DLRAMT(GRAND("PAY"))
W !,$E(EQUAL,1,127)
Q
GRANDMT ;
I ($Y+7)>IOSL D
.S PAGE=PAGE+1
.W @IOF
.W "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
.W !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
.W !,"VERSION: TOTAL"
.W !,"TYPE: MILEAGE"
.W !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
.W !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
W !,$E(EQUAL,1,117)
W !,"GRAND TOTALS:",?55,"MILEAGE",?63,"CC FEE",?78,"MOST ECON",?90,"M&L",?103,"F&B"
W !,?5,"DED",?18,"PAYABLE"
W !,?55,GRAND("MILE"),?63,$$DLRAMT(GRAND("CC FEE")),?78,$$DLRAMT(GRAND("ECON")),?90,$$DLRAMT(GRAND("M&L")),?103,$$DLRAMT(GRAND("F&B"))
W !?5,$$DLRAMT(GRAND("DED")),?18,$$DLRAMT(GRAND("PAY"))
W !,$E(EQUAL,1,117)
Q
GRANDSF ;
I ($Y+5)>IOSL D
.S PAGE=PAGE+1
.W @IOF
.W "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
.W !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
.W !,"VERSION: FULL"
.W !,"TYPE: SPECIAL MODE"
.W !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
.W !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
W !,$E(EQUAL,1,124)
W !,"GRAND TOTALS: ",?15,"CLAIMS",?42,"MILEAGE",?50,"BASE RATE",?64,"NSNL",?79,"WAIT TIME",?90,"EX CREW",?102,"SPEC EQ",?116,"INV AMT"
W !,?15,GRAND("CLAIMS"),?42,GRAND("MILE"),?50,$$DLRAMT(GRAND("BASE RATE")),?65,$$DLRAMT(GRAND("NSNL")),?79,$$DLRAMT(GRAND("WAIT TIME"))
W ?90,$$DLRAMT(GRAND("EXTRA CREW")),?102,$$DLRAMT(GRAND("SPECIAL EQUIPMENT")),?115,$$DLRAMT(GRAND("INVOICE AMT"))
W !,$E(EQUAL,1,124)
Q
GRANDST ;
I ($Y+7)>IOSL D
.S PAGE=PAGE+1
.W @IOF
.W "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
.W !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
.W !,"VERSION: TOTAL"
.W !,"TYPE: SPECIAL MODE"
.W !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
.W !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
W !,$E(EQUAL,1,127)
W !,"GRAND TOTALS:",?55,"MILEAGE",?63,"CLAIMS",?72,"BASE RATE",?87,"NSNL",?102,"WAIT TIME",?117,"EXTRA CREW"
W !,?5,"SPEC EQ",?15,"INV AMT"
W !,?55,GRAND("MILE"),?63,GRAND("CLAIMS"),?72,$$DLRAMT(GRAND("BASE RATE")),?87,$$DLRAMT(GRAND("NSNL")),?102,$$DLRAMT(GRAND("WAIT TIME"))
W ?117,$$DLRAMT(GRAND("EXTRA CREW")),!,?5,$$DLRAMT(GRAND("SPECIAL EQUIPMENT")),?15,$$DLRAMT(GRAND("INVOICE AMT"))
W !,$E(EQUAL,1,127)
Q
DLRAMT(X) ;
D COMMA^%DTC I 'DGBTEXC Q $TR(X," ","")
Q $TR(X," ,$","")
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBTR3A 3892 printed Dec 13, 2024@01:41:03 Page 2
DGBTR3A ;ALB/RFE - CLERK REPORT; 07/10/12
+1 ;;1.0;Beneficiary Travel;**20**;November 11, 2011;Build 185
+2 QUIT
+3 ;/*Called from DGBTR123*/
HDRMF ;
+1 SET PAGE=PAGE+1
+2 WRITE @IOF
+3 WRITE "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$LENGTH(PAGE)),"PAGE ",PAGE
+4 WRITE !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
+5 WRITE !,"VERSION: FULL"
+6 WRITE !,"TYPE: MILEAGE"
+7 WRITE !,"DIVISION: ",$SELECT(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
+8 WRITE !,"CLERK: ",$SELECT(CLERKALL:"ALL",1:CLERKNAME)
+9 WRITE !,$EXTRACT(EQUAL,1,130)
+10 WRITE !,"PATIENT NAME",?32,"SSN",?43,"CLERK",?78,"CL DT",?92,"ENT DT",?109,"ACCT"
+11 WRITE !,?5,"DIVISION",?42,"R/O",?48,"MILEAGE",?56,"CC MODE",?94,"CC FEE",?109,"ECON",?121,"M&L"
+12 WRITE !,?5,"F&B",?17,"DED",?25,"PAYABLE",?38,"REMARKS"
+13 WRITE !,$EXTRACT(EQUAL,1,130)
+14 QUIT
GRANDMF ;
+1 IF ($Y+8)>IOSL
Begin DoDot:1
+2 SET PAGE=PAGE+1
+3 WRITE @IOF
+4 WRITE "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$LENGTH(PAGE)),"PAGE ",PAGE
+5 WRITE !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
+6 WRITE !,"VERSION: FULL"
+7 WRITE !,"TYPE: MILEAGE"
+8 WRITE !,"DIVISION: ",$SELECT(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
+9 WRITE !,"CLERK: ",$SELECT(CLERKALL:"ALL",1:CLERKNAME)
End DoDot:1
+10 WRITE !,$EXTRACT(EQUAL,1,127)
+11 WRITE !,"GRAND TOTALS:",?15,"CLAIMS",?48,"MILEAGE",?94,"CC FEE",?109,"ECON",?121,"M&L"
+12 WRITE !,?5,"F&B",?17,"DED",?25,"PAYABLE"
+13 WRITE !?15,GRAND("CLAIMS"),?48,GRAND("TOT MILE"),?94,$$DLRAMT(GRAND("CC FEE")),?109,$$DLRAMT(GRAND("ECON")),?121,$$DLRAMT(GRAND("M&L"))
+14 WRITE !,?5,$$DLRAMT(GRAND("F&B")),?17,$$DLRAMT(GRAND("DED")),?25,$$DLRAMT(GRAND("PAY"))
+15 WRITE !,$EXTRACT(EQUAL,1,127)
+16 QUIT
GRANDMT ;
+1 IF ($Y+7)>IOSL
Begin DoDot:1
+2 SET PAGE=PAGE+1
+3 WRITE @IOF
+4 WRITE "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$LENGTH(PAGE)),"PAGE ",PAGE
+5 WRITE !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
+6 WRITE !,"VERSION: TOTAL"
+7 WRITE !,"TYPE: MILEAGE"
+8 WRITE !,"DIVISION: ",$SELECT(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
+9 WRITE !,"CLERK: ",$SELECT(CLERKALL:"ALL",1:CLERKNAME)
End DoDot:1
+10 WRITE !,$EXTRACT(EQUAL,1,117)
+11 WRITE !,"GRAND TOTALS:",?55,"MILEAGE",?63,"CC FEE",?78,"MOST ECON",?90,"M&L",?103,"F&B"
+12 WRITE !,?5,"DED",?18,"PAYABLE"
+13 WRITE !,?55,GRAND("MILE"),?63,$$DLRAMT(GRAND("CC FEE")),?78,$$DLRAMT(GRAND("ECON")),?90,$$DLRAMT(GRAND("M&L")),?103,$$DLRAMT(GRAND("F&B"))
+14 WRITE !?5,$$DLRAMT(GRAND("DED")),?18,$$DLRAMT(GRAND("PAY"))
+15 WRITE !,$EXTRACT(EQUAL,1,117)
+16 QUIT
GRANDSF ;
+1 IF ($Y+5)>IOSL
Begin DoDot:1
+2 SET PAGE=PAGE+1
+3 WRITE @IOF
+4 WRITE "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$LENGTH(PAGE)),"PAGE ",PAGE
+5 WRITE !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
+6 WRITE !,"VERSION: FULL"
+7 WRITE !,"TYPE: SPECIAL MODE"
+8 WRITE !,"DIVISION: ",$SELECT(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
+9 WRITE !,"CLERK: ",$SELECT(CLERKALL:"ALL",1:CLERKNAME)
End DoDot:1
+10 WRITE !,$EXTRACT(EQUAL,1,124)
+11 WRITE !,"GRAND TOTALS: ",?15,"CLAIMS",?42,"MILEAGE",?50,"BASE RATE",?64,"NSNL",?79,"WAIT TIME",?90,"EX CREW",?102,"SPEC EQ",?116,"INV AMT"
+12 WRITE !,?15,GRAND("CLAIMS"),?42,GRAND("MILE"),?50,$$DLRAMT(GRAND("BASE RATE")),?65,$$DLRAMT(GRAND("NSNL")),?79,$$DLRAMT(GRAND("WAIT TIME"))
+13 WRITE ?90,$$DLRAMT(GRAND("EXTRA CREW")),?102,$$DLRAMT(GRAND("SPECIAL EQUIPMENT")),?115,$$DLRAMT(GRAND("INVOICE AMT"))
+14 WRITE !,$EXTRACT(EQUAL,1,124)
+15 QUIT
GRANDST ;
+1 IF ($Y+7)>IOSL
Begin DoDot:1
+2 SET PAGE=PAGE+1
+3 WRITE @IOF
+4 WRITE "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$LENGTH(PAGE)),"PAGE ",PAGE
+5 WRITE !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
+6 WRITE !,"VERSION: TOTAL"
+7 WRITE !,"TYPE: SPECIAL MODE"
+8 WRITE !,"DIVISION: ",$SELECT(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
+9 WRITE !,"CLERK: ",$SELECT(CLERKALL:"ALL",1:CLERKNAME)
End DoDot:1
+10 WRITE !,$EXTRACT(EQUAL,1,127)
+11 WRITE !,"GRAND TOTALS:",?55,"MILEAGE",?63,"CLAIMS",?72,"BASE RATE",?87,"NSNL",?102,"WAIT TIME",?117,"EXTRA CREW"
+12 WRITE !,?5,"SPEC EQ",?15,"INV AMT"
+13 WRITE !,?55,GRAND("MILE"),?63,GRAND("CLAIMS"),?72,$$DLRAMT(GRAND("BASE RATE")),?87,$$DLRAMT(GRAND("NSNL")),?102,$$DLRAMT(GRAND("WAIT TIME"))
+14 WRITE ?117,$$DLRAMT(GRAND("EXTRA CREW")),!,?5,$$DLRAMT(GRAND("SPECIAL EQUIPMENT")),?15,$$DLRAMT(GRAND("INVOICE AMT"))
+15 WRITE !,$EXTRACT(EQUAL,1,127)
+16 QUIT
DLRAMT(X) ;
+1 DO COMMA^%DTC
IF 'DGBTEXC
QUIT $TRANSLATE(X," ","")
+2 QUIT $TRANSLATE(X," ,$","")
