- IBOMTC ;ALB/CPM - CATEGORY C BILLING ACTIVITY LIST ; 09-JAN-92
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;
- ;***
- ;S XRTL=$ZU(0),XRTN="IBOMTC-1" D T0^%ZOSV ;start rt clock
- ;
- S:'$D(DTIME) DTIME=300 D HOME^%ZIS
- ; Select Start and End dates.
- BDT S %DT="AEPX",%DT("A")="Start with DATE: " D ^%DT K %DT G END:Y<0 S IBBDT=Y
- I IBBDT<2901001 W !,"The Start Date cannot be earlier than 10/1/90.",! G BDT
- EDT S %DT="EX" R !,"Go to DATE: ",X:DTIME S:X=" " X=IBBDT
- G END:(X="")!(X["^") D ^%DT G EDT:Y<0 S IBEDT=Y
- I Y<IBBDT W *7," ??",!,"ENDING DATE must follow BEGINNING DATE." G BDT
- ;
- ; Select output device.
- S %ZIS="QM" D ^%ZIS G:POP END
- I $D(IO("Q")) D G END
- .S ZTRTN="^IBOMTC1",ZTDESC="CATEGORY C BILLING ACTIVITY LIST"
- .S (ZTSAVE("IBBDT"),ZTSAVE("IBEDT"))=""
- .D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
- .K ZTSK,IO("Q") D HOME^%ZIS
- ;
- U IO
- ;***
- ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOMTC" D T1^%ZOSV ;stop rt clock
- ;
- D ^IBOMTC1 ; generate report
- ;
- END K %DT,IBBDT,IBEDT,X,Y
- ;***
- ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOMTC" D T1^%ZOSV ;stop rt clock
- Q
- IBOMTC ;ALB/CPM - CATEGORY C BILLING ACTIVITY LIST ; 09-JAN-92
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;
- +3 ;***
- +4 ;S XRTL=$ZU(0),XRTN="IBOMTC-1" D T0^%ZOSV ;start rt clock
- +5 ;
- +6 IF '$DATA(DTIME)
- SET DTIME=300
- DO HOME^%ZIS
- +7 ; Select Start and End dates.
- BDT SET %DT="AEPX"
- SET %DT("A")="Start with DATE: "
- DO ^%DT
- KILL %DT
- IF Y<0
- GOTO END
- SET IBBDT=Y
- +1 IF IBBDT<2901001
- WRITE !,"The Start Date cannot be earlier than 10/1/90.",!
- GOTO BDT
- EDT SET %DT="EX"
- READ !,"Go to DATE: ",X:DTIME
- IF X=" "
- SET X=IBBDT
- +1 IF (X="")!(X["^")
- GOTO END
- DO ^%DT
- IF Y<0
- GOTO EDT
- SET IBEDT=Y
- +2 IF Y<IBBDT
- WRITE *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
- GOTO BDT
- +3 ;
- +4 ; Select output device.
- +5 SET %ZIS="QM"
- DO ^%ZIS
- IF POP
- GOTO END
- +6 IF $DATA(IO("Q"))
- Begin DoDot:1
- +7 SET ZTRTN="^IBOMTC1"
- SET ZTDESC="CATEGORY C BILLING ACTIVITY LIST"
- +8 SET (ZTSAVE("IBBDT"),ZTSAVE("IBEDT"))=""
- +9 DO ^%ZTLOAD
- WRITE !!,$SELECT($DATA(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
- +10 KILL ZTSK,IO("Q")
- DO HOME^%ZIS
- End DoDot:1
- GOTO END
- +11 ;
- +12 USE IO
- +13 ;***
- +14 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOMTC" D T1^%ZOSV ;stop rt clock
- +15 ;
- +16 ; generate report
- DO ^IBOMTC1
- +17 ;
- END KILL %DT,IBBDT,IBEDT,X,Y
- +1 ;***
- +2 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOMTC" D T1^%ZOSV ;stop rt clock
- +3 QUIT
