DGGECSA.m

DGGECSA ;ALB/RMO - Auto Generate Code Sheets for MAS AMIS(s) ; 13 AUG 90 8:52 am

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;==============================================================

 ;Entry Points:

 ; ASK     -Prompt user to generate AMIS code sheets

 ; QUE     -Queue generation of AMIS code sheet to default printer

 ;==============================================================

ASK ;Prompt user to generate AMIS code sheets

 ; Input  -- None Required

 ; Output -- %=1  user entered 'YES'

 ;           %=2  user entered 'NO'

 ;           %<0  user timeout or entered an '^'

 S %=0,DGCODPRT=$S($D(^DG(43,1,0)):$P(^(0),"^",25),1:"") G Q:DGCODPRT=""

 W !!,"Do you wish to generate code sheets if segments are balanced" S %=2 D YN^DICN G Q:%<0 I '% W !!?3,"Enter 'YES' to generate code sheets, or 'NO' not to." G ASK

 I %=1 W !!?3,"NOTE: AMIS Code Sheets will be queued to print on ",DGCODPRT,"."

Q K DGCODPRT Q

 ;

QUE ;Queue generation of AMIS code sheet to default MAS code sheet printer

 ; Input --  DGSEG   Segment Number ie, 334

 ;           DGDIV   Medical Ctr Div File (#40.8) IFN ie, 1

 ;           DGMYR   Month/Year in internal date format ie, 2900200

 ; Output -- Task is Queued to Generate a Code Sheet

 S ZTRTN="START^DGGECSA",ZTDTH=$H,ZTSAVE("DGTTF")=DGSEG,ZTSAVE("DGDIV")=DGDIV,ZTSAVE("DGMYR")=DGMYR

 S ZTDESC="GENERATE AMIS CODE SHEET"

 S ZTIO=$S($D(^DG(43,1,0)):$P(^(0),"^",25),1:"") D ^%ZTLOAD:ZTIO'=""

 K ZTSK,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTDESC

 Q

 ;

START ;Auto generation of AMIS code sheet

 U IO Q:'$D(DGTTF)!('$D(DGDIV))!('$D(DGMYR))

 S SDABORT=0,DGSTR="",DGSTA=$S('$D(^DG(40.8,+DGDIV,0)):0,$P(^(0),"^",2)'="":$P(^(0),"^",2),$D(^DIC(4,+$P(^(0),"^",7),99)):$P(^(99),"^",1),1:0)

 I DGTTF'>399 D BLD^DGGECS,GEN^DGGECS:'SDABORT

 I DGTTF>399 F I=401:1:420 S DGAMS(I)=""

 I DGTTF>399 D START^DGGECS

 K DGSTA,DGSTR,DGTTF,SDABORT,I,DGAMS

 Q

DGGECSA   ;ALB/RMO - Auto Generate Code Sheets for MAS AMIS(s) ; 13 AUG 90 8:52 am

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;==============================================================

 +3       ;Entry Points:

 +4       ; ASK     -Prompt user to generate AMIS code sheets

 +5       ; QUE     -Queue generation of AMIS code sheet to default printer

 +6       ;==============================================================

ASK       ;Prompt user to generate AMIS code sheets

 +1       ; Input  -- None Required

 +2       ; Output -- %=1  user entered 'YES'

 +3       ;           %=2  user entered 'NO'

 +4       ;           %<0  user timeout or entered an '^'

 +5        SET %=0

           SET DGCODPRT=$SELECT($DATA(^DG(43,1,0)):$PIECE(^(0),"^",25),1:"")

           IF DGCODPRT=""

               GOTO Q

 +6        WRITE !!,"Do you wish to generate code sheets if segments are balanced"

           SET %=2

           DO YN^DICN

           IF %<0

               GOTO Q

           IF '%

               WRITE !!?3,"Enter 'YES' to generate code sheets, or 'NO' not to."

               GOTO ASK

 +7        IF %=1

               WRITE !!?3,"NOTE: AMIS Code Sheets will be queued to print on ",DGCODPRT,"."

Q          KILL DGCODPRT

           QUIT 

 +1       ;

QUE       ;Queue generation of AMIS code sheet to default MAS code sheet printer

 +1       ; Input --  DGSEG   Segment Number ie, 334

 +2       ;           DGDIV   Medical Ctr Div File (#40.8) IFN ie, 1

 +3       ;           DGMYR   Month/Year in internal date format ie, 2900200

 +4       ; Output -- Task is Queued to Generate a Code Sheet

 +5        SET ZTRTN="START^DGGECSA"

           SET ZTDTH=$HOROLOG

           SET ZTSAVE("DGTTF")=DGSEG

           SET ZTSAVE("DGDIV")=DGDIV

           SET ZTSAVE("DGMYR")=DGMYR

 +6        SET ZTDESC="GENERATE AMIS CODE SHEET"

 +7        SET ZTIO=$SELECT($DATA(^DG(43,1,0)):$PIECE(^(0),"^",25),1:"")

           IF ZTIO'=""

               DO ^%ZTLOAD

 +8        KILL ZTSK,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTDESC

 +9        QUIT 

 +10      ;

START     ;Auto generation of AMIS code sheet

 +1        USE IO

           IF '$DATA(DGTTF)!('$DATA(DGDIV))!('$DATA(DGMYR))

               QUIT 

 +2        SET SDABORT=0

           SET DGSTR=""

           SET DGSTA=$SELECT('$DATA(^DG(40.8,+DGDIV,0)):0,$PIECE(^(0),"^",2)'="":$PIECE(^(0),"^",2),$DATA(^DIC(4,+$PIECE(^(0),"^",7),99)):$PIECE(^(99),"^",1),1:0)

 +3        IF DGTTF'>399

               DO BLD^DGGECS

               IF 'SDABORT

                   DO GEN^DGGECS

 +4        IF DGTTF>399

               FOR I=401:1:420

                   SET DGAMS(I)=""

 +5        IF DGTTF>399

               DO START^DGGECS

 +6        KILL DGSTA,DGSTR,DGTTF,SDABORT,I,DGAMS

 +7        QUIT