- ANRVDEL ;BHAM/LDT - DELETE ENTRY FROM VIST ROSTER FILE ; 04 May 98 / 8:21 AM
- ;;4.0; Visual Impairment Service Team ;;12 Jun 98
- EN ;Look up entry
- K DIC S DIC=2040,DIC(0)="QEAM" D ^DIC I Y<0 G QUIT
- DELETE ;Deletes entry in 2040,2041.7,2042.5, and 2043.5
- S ENTRY=+Y
- N DIR,DIRUT,DUOUT
- S DIR(0)="Y",DIR("A")="Do you want to delete the veteran from the VIST ROSTER file",DIR("B")="No"
- S DIR("?")="Enter ""Yes"" to delete the veteran from the VIST ROSTER file, ""No"" to exit."
- D ^DIR
- I $D(DUOUT)!$D(DIRUT) G QUIT
- I Y'=1 W ! G QUIT
- W !!,"Deleting veteran from the VIST ROSTER file!" S DIK="^ANRV(2040,",DA=ENTRY D ^DIK
- I $D(^ANRV(2041.7,"B",ENTRY)) S DIK="^ANRV(2041.7,",DA=$O(^ANRV(2041.7,"B",ENTRY,0)) D ^DIK
- I $D(^ANRV(2042.5,"B",ENTRY)) S DIK="^ANRV(2042.5,",DA=$O(^ANRV(2042.5,"B",ENTRY,0)) D ^DIK
- I $D(^ANRV(2043.5,"B",ENTRY)) S DIK="^ANRV(2043.5,",DA=$O(^ANRV(2043.5,"B",ENTRY,0)) D ^DIK
- G QUIT
- ;
- EN2 ;Delete entry in 2042.5 only
- K DIC S DIC=2042.5,DIC(0)="QEAM" D ^DIC I Y<0 G QUIT
- S ENTRY=+Y
- N DIR,DIRUT,DUOUT
- S DIR(0)="Y",DIR("A")="Do you want to delete the veteran from the VIST REFERRAL ROSTER file",DIR("B")="No"
- S DIR("?")="Enter ""Yes"" to delete the veteran from the VIST REFERRAL ROSTER file, ""No"" to exit."
- D ^DIR
- I $D(DUOUT)!$D(DIRUT) G QUIT
- I Y'=1 W ! G QUIT
- W !!,"Deleting veteran from the VIST REFFERAL ROSTER file!" S DIK="^ANRV(2042.5,",DA=ENTRY D ^DIK
- ;
- QUIT K DIK,DIC,DA,ENTRY,X,Y
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HANRVDEL 1461 printed Mar 13, 2025@21:50:35 Page 2
- ANRVDEL ;BHAM/LDT - DELETE ENTRY FROM VIST ROSTER FILE ; 04 May 98 / 8:21 AM
- +1 ;;4.0; Visual Impairment Service Team ;;12 Jun 98
- EN ;Look up entry
- +1 KILL DIC
- SET DIC=2040
- SET DIC(0)="QEAM"
- DO ^DIC
- IF Y<0
- GOTO QUIT
- DELETE ;Deletes entry in 2040,2041.7,2042.5, and 2043.5
- +1 SET ENTRY=+Y
- +2 NEW DIR,DIRUT,DUOUT
- +3 SET DIR(0)="Y"
- SET DIR("A")="Do you want to delete the veteran from the VIST ROSTER file"
- SET DIR("B")="No"
- +4 SET DIR("?")="Enter ""Yes"" to delete the veteran from the VIST ROSTER file, ""No"" to exit."
- +5 DO ^DIR
- +6 IF $DATA(DUOUT)!$DATA(DIRUT)
- GOTO QUIT
- +7 IF Y'=1
- WRITE !
- GOTO QUIT
- +8 WRITE !!,"Deleting veteran from the VIST ROSTER file!"
- SET DIK="^ANRV(2040,"
- SET DA=ENTRY
- DO ^DIK
- +9 IF $DATA(^ANRV(2041.7,"B",ENTRY))
- SET DIK="^ANRV(2041.7,"
- SET DA=$ORDER(^ANRV(2041.7,"B",ENTRY,0))
- DO ^DIK
- +10 IF $DATA(^ANRV(2042.5,"B",ENTRY))
- SET DIK="^ANRV(2042.5,"
- SET DA=$ORDER(^ANRV(2042.5,"B",ENTRY,0))
- DO ^DIK
- +11 IF $DATA(^ANRV(2043.5,"B",ENTRY))
- SET DIK="^ANRV(2043.5,"
- SET DA=$ORDER(^ANRV(2043.5,"B",ENTRY,0))
- DO ^DIK
- +12 GOTO QUIT
- +13 ;
- EN2 ;Delete entry in 2042.5 only
- +1 KILL DIC
- SET DIC=2042.5
- SET DIC(0)="QEAM"
- DO ^DIC
- IF Y<0
- GOTO QUIT
- +2 SET ENTRY=+Y
- +3 NEW DIR,DIRUT,DUOUT
- +4 SET DIR(0)="Y"
- SET DIR("A")="Do you want to delete the veteran from the VIST REFERRAL ROSTER file"
- SET DIR("B")="No"
- +5 SET DIR("?")="Enter ""Yes"" to delete the veteran from the VIST REFERRAL ROSTER file, ""No"" to exit."
- +6 DO ^DIR
- +7 IF $DATA(DUOUT)!$DATA(DIRUT)
- GOTO QUIT
- +8 IF Y'=1
- WRITE !
- GOTO QUIT
- +9 WRITE !!,"Deleting veteran from the VIST REFFERAL ROSTER file!"
- SET DIK="^ANRV(2042.5,"
- SET DA=ENTRY
- DO ^DIK
- +10 ;
- QUIT KILL DIK,DIC,DA,ENTRY,X,Y
- +1 QUIT
