- 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