DGGECSA ;ALB/RMO - Auto Generate Code Sheets for MAS AMIS(s) ; 13 AUG 90 8:52 am
;;5.3;Registration;;Aug 13, 1993
;==============================================================
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGGECSA 1886 printed Oct 16, 2024@18:44:16 Page 2
DGGECSA ;ALB/RMO - Auto Generate Code Sheets for MAS AMIS(s) ; 13 AUG 90 8:52 am
+1 ;;5.3;Registration;;Aug 13, 1993
+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
