ACHSHLGC.m

ACHSHLGC ; IHS/ITSC/PMF - COMPILE CHS HOSPITAL LOG REPORT SUMMARY ONLY ;  [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 Q  ; Under development

 D BRPT^ACHSFU

 S (ACHSFAC,C,ACHS43)=0,ACHSDIEN=""

GETDATE S ACHSDAT=$O(^ACHSF(ACHSFAC,"EB2",ACHSDAT)) I ACHSDAT="",'$D(^ACHSZHLG(ACHSFACP)) S ^ACHSZHLG(ACHSFACP,0)="" G ALLFAC

 G:ACHSDAT="" ALLFAC

 I ACHSDAT<ACHSBEG!(ACHSDAT>ACHSEND) G GETDATE

ALLFAC ;

 ;

END ;

 D ERPT^ACHS

 Q

ACHSHLGC  ; IHS/ITSC/PMF - COMPILE CHS HOSPITAL LOG REPORT SUMMARY ONLY ;  [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ; Under development

           QUIT 

 +3        DO BRPT^ACHSFU

 +4        SET (ACHSFAC,C,ACHS43)=0

           SET ACHSDIEN=""

GETDATE    SET ACHSDAT=$ORDER(^ACHSF(ACHSFAC,"EB2",ACHSDAT))

           IF ACHSDAT=""

               IF '$DATA(^ACHSZHLG(ACHSFACP))

                   SET ^ACHSZHLG(ACHSFACP,0)=""

                   GOTO ALLFAC

 +1        IF ACHSDAT=""

               GOTO ALLFAC

 +2        IF ACHSDAT<ACHSBEG!(ACHSDAT>ACHSEND)

               GOTO GETDATE

ALLFAC    ;

 +1       ;

END       ;

 +1        DO ERPT^ACHS

 +2        QUIT