SDLTE ;ALB/LDB - ENTER/EDIT SCHEDULING LETTERS ; 10 DEC 88 11:00 AM
;;5.3;Scheduling;**622**;Aug 13, 1993;Build 30
RD S DIC=407.6,DIC("A")="SELECT TYPE OF LETTER: ",DIC(0)="AEQMZ" D ^DIC G:+Y'>0 EXIT S T=+Y S (DIC,DLAYGO)=407.5,DIC(0)="AQELM",DIC("A")="SELECT LETTER: ",DIC("S")="I $P(^(0),""^"",2)="_""""_$P(^VA(407.6,+T,0),"^")_""""
S DIC("DR")="1////"_$P(^VA(407.6,+T,0),"^") D ^DIC G:Y'>0 EXIT S SDLT=+Y,DA=SDLT,DIE=407.5,DR=".01;1;2;3;4;5",DR(2,407.52)=".01",DR(2,407.53)=".01" D ^DIE G:$D(Y) EXIT D EXIT W !! G RD
EXIT K DA,DIC,DIE,DR,SDLT,T,X,Y Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDLTE 561 printed Nov 22, 2024@18:08:06 Page 2
SDLTE ;ALB/LDB - ENTER/EDIT SCHEDULING LETTERS ; 10 DEC 88 11:00 AM
+1 ;;5.3;Scheduling;**622**;Aug 13, 1993;Build 30
RD SET DIC=407.6
SET DIC("A")="SELECT TYPE OF LETTER: "
SET DIC(0)="AEQMZ"
DO ^DIC
if +Y'>0
GOTO EXIT
SET T=+Y
SET (DIC,DLAYGO)=407.5
SET DIC(0)="AQELM"
SET DIC("A")="SELECT LETTER: "
SET DIC("S")="I $P(^(0),""^"",2)="_""""_$PIECE(^VA(407.6,+T,0),"^")_""""
+1 SET DIC("DR")="1////"_$PIECE(^VA(407.6,+T,0),"^")
DO ^DIC
if Y'>0
GOTO EXIT
SET SDLT=+Y
SET DA=SDLT
SET DIE=407.5
SET DR=".01;1;2;3;4;5"
SET DR(2,407.52)=".01"
SET DR(2,407.53)=".01"
DO ^DIE
if $DATA(Y)
GOTO EXIT
DO EXIT
WRITE !!
GOTO RD
EXIT KILL DA,DIC,DIE,DR,SDLT,T,X,Y
QUIT
