ACDPINT.m

ACDPINT ; IHS/ADC/EDE/KML -  HS-SMBD/MLQ INPUT TRANSFORMS FOR CDMIS PROGRAM FILE 10:09 NOV 17,1993 ; 

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

 ;

STOT ;EP CHECK X NOT GREATER THAN STAFF TOTAL

 I +X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) K X Q

 I $D(ACDPGMST),$D(X),X>ACDPGMST W !,*7,"Amount can not exceed STAFF TOTAL of: ",ACDPGMST K X

 Q

ACDPINT   ; IHS/ADC/EDE/KML -  HS-SMBD/MLQ INPUT TRANSFORMS FOR CDMIS PROGRAM FILE 10:09 NOV 17,1993 ; 

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

 +2       ;

STOT      ;EP CHECK X NOT GREATER THAN STAFF TOTAL

 +1        IF +X'=X!(X>999)!(X<0)!(X?.E1"."1N.N)

               KILL X

               QUIT 

 +2        IF $DATA(ACDPGMST)

               IF $DATA(X)

                   IF X>ACDPGMST

                       WRITE !,*7,"Amount can not exceed STAFF TOTAL of: ",ACDPGMST

                       KILL X

 +3        QUIT