AQAQDCQ1.m

AQAQDCQ1 ;IHS/ANMC/LJF - QUEUE DELINQUENT CHARTS BY PROV; [ 05/27/92  11:22 AM ]

 ;;2.2;STAFF CREDENTIALS;;01 OCT 1992

 ;

 ;***> set # of working days

 S X1=DT,X2=-30 D C^%DTC S AQAQDEL=X  ;# of working days

 ;

 S AQAQADD=1  ;let calculate know this is rtn to add data to file

 ;

 G ^AQAQDCC   ;go to claculate rtn

AQAQDCQ1  ;IHS/ANMC/LJF - QUEUE DELINQUENT CHARTS BY PROV; [ 05/27/92  11:22 AM ]

 +1       ;;2.2;STAFF CREDENTIALS;;01 OCT 1992

 +2       ;

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

 +4       ;# of working days

           SET X1=DT

           SET X2=-30

           DO C^%DTC

           SET AQAQDEL=X

 +5       ;

 +6       ;let calculate know this is rtn to add data to file

           SET AQAQADD=1

 +7       ;

 +8       ;go to claculate rtn

           GOTO ^AQAQDCC