ACDFUL0.m

ACDFUL0 ;IHS/ADC/EDE/KML - IHS-SMBD/MLQ PRINT FU DUE REPORT;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 S %DT="AEF"

 S %DT("A")="Select Month/Year for Follow Up Due Report: "

 D ^%DT Q:Y<0  S ACDBEGDT=Y

 S ACDBEGDT=$E(ACDBEGDT,1,5)_"00"

 S Y=ACDBEGDT X ^DD("DD") S ACDBGMDY=Y

 S L=0,DIC="^ACDWORK(",FLDS="[ACD-FUL]",BY="[ACD-FUL]"

 S DHD="FOLLOW UPS DUE FOR "_ACDBGMDY

 S DIOBEG="D ^ACDFUL1"

 N DIOEND ;    moved from below, only thing that makes sense

 S DIOEND="K ACDBGMDY,IOP"

 D EN1^DIP

 ;N DIOEND

 ; What does the previous statement do? .. ede ..

 D PAUSE^ACDDEU

 Q

ACDFUL0   ;IHS/ADC/EDE/KML - IHS-SMBD/MLQ PRINT FU DUE REPORT;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2        SET %DT="AEF"

 +3        SET %DT("A")="Select Month/Year for Follow Up Due Report: "

 +4        DO ^%DT

           IF Y<0

               QUIT 

           SET ACDBEGDT=Y

 +5        SET ACDBEGDT=$EXTRACT(ACDBEGDT,1,5)_"00"

 +6        SET Y=ACDBEGDT

           XECUTE ^DD("DD")

           SET ACDBGMDY=Y

 +7        SET L=0

           SET DIC="^ACDWORK("

           SET FLDS="[ACD-FUL]"

           SET BY="[ACD-FUL]"

 +8        SET DHD="FOLLOW UPS DUE FOR "_ACDBGMDY

 +9        SET DIOBEG="D ^ACDFUL1"

 +10      ;    moved from below, only thing that makes sense

           NEW DIOEND

 +11       SET DIOEND="K ACDBGMDY,IOP"

 +12       DO EN1^DIP

 +13      ;N DIOEND

 +14      ; What does the previous statement do? .. ede ..

 +15       DO PAUSE^ACDDEU

 +16       QUIT