ACMRCH1.m

ACMRCH1 ; IHS/TUCSON/TMJ - CONTROL PRINTING OF CASE HISTORY ;

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 I $D(^ACM(41,ACMRGDFN,"CH")),(($P(^ACM(41,ACMRGDFN,"CH"),U,1)'="")!($P(^("CH"),U,2)'="")!($P(^("CH"),U,3)'="")) D ^ACMRCH Q

 I '$D(^ACM(41,ACMRGDFN,"CH")),$D(^ACM(41,ACMRGDFN,2,1,0)),^(0)'="" D ^ACMRCH Q

 I $D(^ACM(41,ACMRGDFN,"CH")),^("CH")="",$D(^ACM(41,ACMRGDFN,2,1,0)),^(0)'="" D ^ACMRCH Q

ACMRCH1   ; IHS/TUCSON/TMJ - CONTROL PRINTING OF CASE HISTORY ;

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 +2        IF $DATA(^ACM(41,ACMRGDFN,"CH"))

               IF (($PIECE(^ACM(41,ACMRGDFN,"CH"),U,1)'="")!($PIECE(^("CH"),U,2)'="")!($PIECE(^("CH"),U,3)'=""))

                   DO ^ACMRCH

                   QUIT 

 +3        IF '$DATA(^ACM(41,ACMRGDFN,"CH"))

               IF $DATA(^ACM(41,ACMRGDFN,2,1,0))

                   IF ^(0)'=""

                       DO ^ACMRCH

                       QUIT 

 +4        IF $DATA(^ACM(41,ACMRGDFN,"CH"))

               IF ^("CH")=""

                   IF $DATA(^ACM(41,ACMRGDFN,2,1,0))

                       IF ^(0)'=""

                           DO ^ACMRCH

                           QUIT