Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ACDWDRVA

ACDWDRVA.m

Go to the documentation of this file.

ACDWDRVA ;IHS/ADC/EDE/KML - BROKE UP ACDWDRV1;

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

H ;EP

 ;//^ACDWDRV1

 W @IOF,!,"CDMIS INI/INF/FU REPORT # "_$S(ACDTG:ACDTG,1:$E(ACDTG,2,6)),!,$P(ACDH(0),U) S ACDH(3)=ACDH(3)+1 W ?69,"P ",ACDH(3),!,ACDH(50),$P(ACDH(0),U,2) D ASF^ACDWUTL W !,"DATA CAPTURED FOR: ",ACDH(2),!,ACDH(4),!

ACDWDRVA  ;IHS/ADC/EDE/KML - BROKE UP ACDWDRV1;

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

 +2       ;

H         ;EP

 +1       ;//^ACDWDRV1

 +2        WRITE @IOF,!,"CDMIS INI/INF/FU REPORT # "_$SELECT(ACDTG:ACDTG,1:$EXTRACT(ACDTG,2,6)),!,$PIECE(ACDH(0),U)

           SET ACDH(3)=ACDH(3)+1

           WRITE ?69,"P ",ACDH(3),!,ACDH(50),$PIECE(ACDH(0),U,2)

           DO ASF^ACDWUTL

           WRITE !,"DATA CAPTURED FOR: ",ACDH(2),!,ACDH(4),!

 +3        QUIT