AQAQDCQ.m

AQAQDCQ ;IHS/ANMC/LJF - QUEUE DELINQUENT CHARTS BY PROV; [ 07/09/1999  2:28 PM ]

 ;;2.2;STAFF CREDENTIALS;**8**;JULY 9, 1999

 ;;AQAQ*2*8;Y2K FIX;CS;2990708

 ;

 W !!!?20,"DELINQUENT CHARTS BY PROVIDER",!!

 ;***> set # of working days

 S X1=DT,X2=-$$LMT S:X2=0 X2=-30 D C^%DTC S AQAQDEL=X ;PATCH FOR MAS5

 W !!?15,"Charts with a discharge date earlier than "

 ;BEGIN Y2K FIX BLOCK

 ;W !?29,$E(AQAQDEL,4,5)_"/"_$E(AQAQDEL,6,7)_"/"_$E(AQAQDEL,2,3)

 W !?29,$E(AQAQDEL,4,5)_"/"_$E(AQAQDEL,6,7)_"/"_($E(AQAQDEL,1,3)+1700) ; Y2000

 ;END Y2K FIX BLOCK

 W !?20,"will be considered delinquent!",!!

 ;

 S AQAQADD=0  ;let calculate know this is review, not add to file

 ;

 ;***> get print device

DEV S %ZIS="PQ" D ^%ZIS G END:POP,QUE:$D(IO("Q")) U IO G ^AQAQDCC

QUE K IO("Q") S ZTRTN="^AQAQDCC",ZTDESC="DELQNT CHARTS"

 S ZTSAVE("AQAQDEL")="",ZTSAVE("AQAQADD")=""

 D ^%ZTLOAD D ^%ZISC K ZTSK

 ;

END K DIR,AQAQDEL D HOME^%ZIS Q

 ;

LMT() ; -- returns # of days til chart is delinquent;PATCH FOR MAS5

 Q $$VAL^XBDIQ1(43,1,9999999.23)

AQAQDCQ   ;IHS/ANMC/LJF - QUEUE DELINQUENT CHARTS BY PROV; [ 07/09/1999  2:28 PM ]

 +1       ;;2.2;STAFF CREDENTIALS;**8**;JULY 9, 1999

 +2       ;;AQAQ*2*8;Y2K FIX;CS;2990708

 +3       ;

 +4        WRITE !!!?20,"DELINQUENT CHARTS BY PROVIDER",!!

 +5       ;***> set # of working days

 +6       ;PATCH FOR MAS5

           SET X1=DT

           SET X2=-$$LMT

           IF X2=0

               SET X2=-30

           DO C^%DTC

           SET AQAQDEL=X

 +7        WRITE !!?15,"Charts with a discharge date earlier than "

 +8       ;BEGIN Y2K FIX BLOCK

 +9       ;W !?29,$E(AQAQDEL,4,5)_"/"_$E(AQAQDEL,6,7)_"/"_$E(AQAQDEL,2,3)

 +10      ; Y2000

           WRITE !?29,$EXTRACT(AQAQDEL,4,5)_"/"_$EXTRACT(AQAQDEL,6,7)_"/"_($EXTRACT(AQAQDEL,1,3)+1700)

 +11      ;END Y2K FIX BLOCK

 +12       WRITE !?20,"will be considered delinquent!",!!

 +13      ;

 +14      ;let calculate know this is review, not add to file

           SET AQAQADD=0

 +15      ;

 +16      ;***> get print device

DEV        SET %ZIS="PQ"

           DO ^%ZIS

           IF POP

               GOTO END

           IF $DATA(IO("Q"))

               GOTO QUE

           USE IO

           GOTO ^AQAQDCC

QUE        KILL IO("Q")

           SET ZTRTN="^AQAQDCC"

           SET ZTDESC="DELQNT CHARTS"

 +1        SET ZTSAVE("AQAQDEL")=""

           SET ZTSAVE("AQAQADD")=""

 +2        DO ^%ZTLOAD

           DO ^%ZISC

           KILL ZTSK

 +3       ;

END        KILL DIR,AQAQDEL

           DO HOME^%ZIS

           QUIT 

 +1       ;

LMT()     ; -- returns # of days til chart is delinquent;PATCH FOR MAS5

 +1        QUIT $$VAL^XBDIQ1(43,1,9999999.23)