QACEMPC.m

QACEMPC ;WCIOFO/VAD-Employee Contact Totals ;12/08/98

 ;;2.0;Patient Representative;**9,17**;07/25/1995

 ;

MAIN ;

 S QAQPOP=0

 D DATDIV^QACUTL0 G:QAQPOP EXIT

 K DIC,FLDS,L,BY,FR,TO,DHD

 S L=0,DIC="^QA(745.1,"

 S FLDS="[QAC EMP TOT]",DHD="[QAC EMP CONTACT HEADER]"

 S BY="37;S3;C25,'1,17,+.01;S,21,3,.01"

 S FR(1)="@",TO(1)=""

 I +$G(QAC1DIV) D

 . S QACDVNAM="" D INST^QACUTL0(QAC1DIV,.QACDVNAM)

 . S (FR(1),TO(1))=QACDVNAM

 S FR(2)=QAQNBEG,TO(2)=QAQNEND

 D EN1^DIP

EXIT ;

 K DIC,FLDS,L,BY,FR,TO,DHD,DIP,QACDV,QAC1DIV,QAQPOP,QACDVNAM

 K QAQNBEG,QAQNEND

 D K^QAQDATE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QACEMPC   589     printed  Jan 14, 2021@17:15:04                                                                                                                                                                                                      Page 2

QACEMPC   ;WCIOFO/VAD-Employee Contact Totals ;12/08/98

 +1       ;;2.0;Patient Representative;**9,17**;07/25/1995

 +2       ;

MAIN      ;

 +1        SET QAQPOP=0

 +2        DO DATDIV^QACUTL0

           if QAQPOP

               GOTO EXIT

 +3        KILL DIC,FLDS,L,BY,FR,TO,DHD

 +4        SET L=0

           SET DIC="^QA(745.1,"

 +5        SET FLDS="[QAC EMP TOT]"

           SET DHD="[QAC EMP CONTACT HEADER]"

 +6        SET BY="37;S3;C25,'1,17,+.01;S,21,3,.01"

 +7        SET FR(1)="@"

           SET TO(1)=""

 +8        IF +$GET(QAC1DIV)

               Begin DoDot:1

 +9                SET QACDVNAM=""

                   DO INST^QACUTL0(QAC1DIV,.QACDVNAM)

 +10               SET (FR(1),TO(1))=QACDVNAM

               End DoDot:1

 +11       SET FR(2)=QAQNBEG

           SET TO(2)=QAQNEND

 +12       DO EN1^DIP

EXIT      ;

 +1        KILL DIC,FLDS,L,BY,FR,TO,DHD,DIP,QACDV,QAC1DIV,QAQPOP,QACDVNAM

 +2        KILL QAQNBEG,QAQNEND

 +3        DO K^QAQDATE

 +4        QUIT