SDLTE.m

SDLTE ;ALB/LDB - ENTER/EDIT SCHEDULING LETTERS ; 10 DEC 88 11:00 AM

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

 ;IHS/ANMC/LJF  8/18/2000 added edit of parents greeting field

 ;                        added screen for inactive letter types

 ;

RD  S DIC("S")="I $P(^VA(407.6,+Y,0),U,3)="""""  ;IHS/ANMC/LJF 8/18/2000

 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",DR(2,407.52)=".01",DR(2,407.53)=".01" D ^DIE G:$D(Y) EXIT D EXIT W !! G RD  ;IHS/ANMC/LJF 8/18/2000

 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;9999999.01;1;2;3",DR(2,407.52)=".01",DR(2,407.53)=".01" D ^DIE G:$D(Y) EXIT D EXIT W !! G RD  ;IHS/ANMC/LJF 8/18/2000

EXIT K DA,DIC,DIE,DR,SDLT,T,X,Y Q

SDLTE     ;ALB/LDB - ENTER/EDIT SCHEDULING LETTERS ; 10 DEC 88 11:00 AM

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

 +2       ;IHS/ANMC/LJF  8/18/2000 added edit of parents greeting field

 +3       ;                        added screen for inactive letter types

 +4       ;

RD        ;IHS/ANMC/LJF 8/18/2000

           SET DIC("S")="I $P(^VA(407.6,+Y,0),U,3)="""""

 +1        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),"^")_""""

 +2       ;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",DR(2,407.52)=".01",DR(2,407.53)=".01" D ^DIE G:$D(Y) EXIT D EXIT W !! G RD  ;IHS/ANMC/LJF 8/18/2000

 +3       ;IHS/ANMC/LJF 8/18/2000

           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;9999999.01;1;2;3"

           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