Routine: DGBTR3A

DGBTR3A ;ALB/RFE - CLERK REPORT; 07/10/12

 ;;1.0;Beneficiary Travel;**20**;November 11, 2011;Build 185

 ;/*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)

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)

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)

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)

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)

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  Feb 18, 2025@23:07:26                                                                                                                                                                                                     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," ,$","")

DGBTR3A.m