AGCVT6.m

AGCVT6 ; IHS/ASDS/EFG - ONE TIME, EXPORT PATIENTS WITH MEDICAID COVERAGE ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 W !,"IF YOU ARE SURE YOU WANT TO RUN THIS ROUTINE",!!,"PLEASE ENTER AT 'ENTRY', I.E. 'D ENTRY^AGCVT6'.",! Q

CHKHRN S DUZ2=DUZ(2)

 Q:$D(^AUPNPAT(DFN,41,DUZ2))  S DUZ2=0 F J=0:0 S DUZ2=$O(^(DUZ2)) Q:'+DUZ2  Q:$P(^AUPNPAT(DFN,41,DUZ2,0),U,2)]""

 Q

ENTRY ;EP

 W $$S^AGVDF("IOF"),!!?5,"THIS REGISTRATION UTILITY READS THRU THE 'B' INDEX OF THE",!!?5,"MEDICAID ELIGIBLE FILE (^AUPNMCD), AND SETS ^AGPATCH SO MEDICAID",!!?5,"ELIGIBLE PATIENTS ARE EXPORTED DURING THE NEXT REGISTRATION EXPORT.",!!

 W ?5,"THE ENTRIES IN ^AGPATCH WILL BE YESTERDAY'S DATE SO YOU CAN RUN",!?5,"THIS ROUTINE AND THE EXPORT ON THE SAME DATE.",!!

 W ?10,"DO YOU WANT TO CONTINUE? (Y/N)  N // " D READ G END:$D(DLOUT)!$D(DUOUT)!$D(DFOUT)!$D(DTOUT)!("Nn"[$E(Y)),ENTRY:$D(DQOUT)!("Yy"'[$E(Y))

USER W !! S DIC="^VA(200,",DIC("A")="Who are you?",DIC(0)="AEFMNQ" D ^DIC G:+Y<0 END S DUZ=+Y

FACILITY W !! S DIC="^AUTTLOC(",DIC(0)="QAZEM",DIC("A")="Set MEDICAID export for which FACILITY? " D ^DIC K DIC("A") G:+Y<0 END S (DUZ2,DUZ(2))=+Y

QUE W !!,"Do you want to q this process? (Y/N)  Y // " D READ S Y=$E(Y_"Y") G END:$D(DTOUT)!$D(DFOUT),FACILITY:$D(DUOUT),START:Y="N" I $D(DQOUT)!("YN"'[Y) W !!,*7,"You can 'q' this process to TaskMan to run at another time.",! G QUE

DEV X ^%ZOSF("UCI") S ZTRTN="START^AGCVT6",ZTUCI=Y,ZTIO="",ZTDESC="Set AGPATCH to export all MEDICAID eligibles." S ZTSAVE=""

 D ^%ZTLOAD G:'$D(ZTSK) QUE W !!,"Task Number = ",ZTSK,!!,"Press RETURN..." D READ K G,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTUCI D ^%ZISC Q

START ;EP - TaskMan.

 I '$D(AGDATE) S %DT="",X="T-1" D ^%DT S AGDATE=Y

 S AGTOTAL=0 I '$D(ZTQUEUED) W !! S IOP=ION D ^%ZIS,WAIT^DICD S DX=$X,DY=$Y+1

 F DFN=0:0 S DFN=$O(^AUPNMCD("B",DFN)) Q:'DFN  D CHKHRN I +DUZ2,'$D(^AGPATCH(AGDATE,DUZ2,DFN)) S ^(DFN)="",AGTOTAL=AGTOTAL+1 I '$D(ZTQUEUED) X XY W AGTOTAL

 I '$D(ZTQUEUED) W " MEDICAID's added to ^AGPATCH."

END K %DT,AGDATE,DFN,DFOUT,DLOUT,DQOUT,DTOUT,DUOUT,DUZ2,DX,DY,J,AGTOTAL,X,XY,Y D:$D(ZTQUEUED) KILL^%ZTLOAD

 Q

READ K DFOUT,DTOUT,DUOUT,DQOUT,DLOUT R Y:$S($D(DTIME):DTIME,1:300) I '$T W *7 R Y:5 G READ:Y="." I '$T S (DTOUT,Y)="" Q

 S:Y="/.," (DFOUT,Y)="" S:Y="" DLOUT="" S:Y="^" (DUOUT,Y)="" S:Y?1"?".E!(Y["^") (DQOUT,Y)=""

 Q

COMMENT ;This routine is a one-time-only run.

 ;It reads thru the 'B' index of the MEDICAID ELIGIBLE

 ;file (^AUPNMCD) to look for patients who are eligible for

 ;MEDICAID, flag them for inclusion with next export, to ensure

 ;eligibile patients are recorded at DPSC.

 ;                                    RPMS/GTH

TEST S AGDATE=2890325 K ^AGPATCH(AGDATE) G ENTRY

AGCVT6    ; IHS/ASDS/EFG - ONE TIME, EXPORT PATIENTS WITH MEDICAID COVERAGE ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2        WRITE !,"IF YOU ARE SURE YOU WANT TO RUN THIS ROUTINE",!!,"PLEASE ENTER AT 'ENTRY', I.E. 'D ENTRY^AGCVT6'.",!

           QUIT 

CHKHRN     SET DUZ2=DUZ(2)

 +1        IF $DATA(^AUPNPAT(DFN,41,DUZ2))

               QUIT 

           SET DUZ2=0

           FOR J=0:0

               SET DUZ2=$ORDER(^(DUZ2))

               IF '+DUZ2

                   QUIT 

               IF $PIECE(^AUPNPAT(DFN,41,DUZ2,0),U,2)]""

                   QUIT 

 +2        QUIT 

ENTRY     ;EP

 +1        WRITE $$S^AGVDF("IOF"),!!?5,"THIS REGISTRATION UTILITY READS THRU THE 'B' INDEX OF THE",!!?5,"MEDICAID ELIGIBLE FILE (^AUPNMCD), AND SETS ^AGPATCH SO MEDICAID",!!?5,"ELIGIBLE PATIENTS ARE EXPORTED DURING THE NEXT REGISTRATION EXPORT.",!!

 +2        WRITE ?5,"THE ENTRIES IN ^AGPATCH WILL BE YESTERDAY'S DATE SO YOU CAN RUN",!?5,"THIS ROUTINE AND THE EXPORT ON THE SAME DATE.",!!

 +3        WRITE ?10,"DO YOU WANT TO CONTINUE? (Y/N)  N // "

           DO READ

           IF $DATA(DLOUT)!$DATA(DUOUT)!$DATA(DFOUT)!$DATA(DTOUT)!("Nn"[$EXTRACT(Y))

               GOTO END

           IF $DATA(DQOUT)!("Yy"'[$EXTRACT(Y))

               GOTO ENTRY

USER       WRITE !!

           SET DIC="^VA(200,"

           SET DIC("A")="Who are you?"

           SET DIC(0)="AEFMNQ"

           DO ^DIC

           IF +Y<0

               GOTO END

           SET DUZ=+Y

FACILITY   WRITE !!

           SET DIC="^AUTTLOC("

           SET DIC(0)="QAZEM"

           SET DIC("A")="Set MEDICAID export for which FACILITY? "

           DO ^DIC

           KILL DIC("A")

           IF +Y<0

               GOTO END

           SET (DUZ2,DUZ(2))=+Y

QUE        WRITE !!,"Do you want to q this process? (Y/N)  Y // "

           DO READ

           SET Y=$EXTRACT(Y_"Y")

           IF $DATA(DTOUT)!$DATA(DFOUT)

               GOTO END

           IF $DATA(DUOUT)

               GOTO FACILITY

           IF Y="N"

               GOTO START

           IF $DATA(DQOUT)!("YN"'[Y)

               WRITE !!,*7,"You can 'q' this process to TaskMan to run at another time.",!

               GOTO QUE

DEV        XECUTE ^%ZOSF("UCI")

           SET ZTRTN="START^AGCVT6"

           SET ZTUCI=Y

           SET ZTIO=""

           SET ZTDESC="Set AGPATCH to export all MEDICAID eligibles."

           SET ZTSAVE=""

 +1        DO ^%ZTLOAD

           IF '$DATA(ZTSK)

               GOTO QUE

           WRITE !!,"Task Number = ",ZTSK,!!,"Press RETURN..."

           DO READ

           KILL G,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTUCI

           DO ^%ZISC

           QUIT 

START     ;EP - TaskMan.

 +1        IF '$DATA(AGDATE)

               SET %DT=""

               SET X="T-1"

               DO ^%DT

               SET AGDATE=Y

 +2        SET AGTOTAL=0

           IF '$DATA(ZTQUEUED)

               WRITE !!

               SET IOP=ION

               DO ^%ZIS

               DO WAIT^DICD

               SET DX=$X

               SET DY=$Y+1

 +3        FOR DFN=0:0

               SET DFN=$ORDER(^AUPNMCD("B",DFN))

               IF 'DFN

                   QUIT 

               DO CHKHRN

               IF +DUZ2

                   IF '$DATA(^AGPATCH(AGDATE,DUZ2,DFN))

                       SET ^(DFN)=""

                       SET AGTOTAL=AGTOTAL+1

                       IF '$DATA(ZTQUEUED)

                           XECUTE XY

                           WRITE AGTOTAL

 +4        IF '$DATA(ZTQUEUED)

               WRITE " MEDICAID's added to ^AGPATCH."

END        KILL %DT,AGDATE,DFN,DFOUT,DLOUT,DQOUT,DTOUT,DUOUT,DUZ2,DX,DY,J,AGTOTAL,X,XY,Y

           IF $DATA(ZTQUEUED)

               DO KILL^%ZTLOAD

 +1        QUIT 

READ       KILL DFOUT,DTOUT,DUOUT,DQOUT,DLOUT

           READ Y:$SELECT($DATA(DTIME):DTIME,1:300)

           IF '$TEST

               WRITE *7

               READ Y:5

               IF Y="."

                   GOTO READ

               IF '$TEST

                   SET (DTOUT,Y)=""

                   QUIT 

 +1        IF Y="/.,"

               SET (DFOUT,Y)=""

           IF Y=""

               SET DLOUT=""

           IF Y="^"

               SET (DUOUT,Y)=""

           IF Y?1"?".E!(Y["^")

               SET (DQOUT,Y)=""

 +2        QUIT 

COMMENT   ;This routine is a one-time-only run.

 +1       ;It reads thru the 'B' index of the MEDICAID ELIGIBLE

 +2       ;file (^AUPNMCD) to look for patients who are eligible for

 +3       ;MEDICAID, flag them for inclusion with next export, to ensure

 +4       ;eligibile patients are recorded at DPSC.

 +5       ;                                    RPMS/GTH

TEST       SET AGDATE=2890325

           KILL ^AGPATCH(AGDATE)

           GOTO ENTRY