ANRV5P.m

ANRV5P ;WAR/PHL - OPTION ADD FOR ANRVJ ; 7/25/22 11:19am

 ;;5.1;BLIND REHABILITATION;**1**;JUN 2, 2022;Build 12

 ;

 Q

POST ;

 N XUS

 S XUS=$$ADD^XPDMENU("ANRVJ_BLINDREHAB","DGRR GUI PATIENT LOOKUP")

 S XUS=$$ADD^XPDMENU("ANRVJ_BLINDREHAB","DGRR PATIENT SERVICE QUERY")

 S XUS=$$ADD^XPDMENU("ANRVJ_BLINDREHAB","ANRVJ VIAB SERVICE")

 S XUS=$$ADD^XPDMENU("ANRVJ VIAB SERVICE","VIAB WEB SERVICES OPTION")

 D VERUPD

 Q

VERUPD ;

 N ANRVIEN,DR,DA,DIE

 S ANRVIEN=0 F  S ANRVIEN=$O(^DIC(9.4,ANRVIEN)) Q:'ANRVIEN  D

 .I $P($G(^DIC(9.4,ANRVIEN,0)),"^",2)="ANRV" S DA=ANRVIEN

 S DR="13///5.1",DIE="^DIC(9.4,"

 D ^DIE

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ANRV5P   631     printed  Feb 19, 2025@00:12:05                                                                                                                                                                                                       Page 2

ANRV5P    ;WAR/PHL - OPTION ADD FOR ANRVJ ; 7/25/22 11:19am

 +1       ;;5.1;BLIND REHABILITATION;**1**;JUN 2, 2022;Build 12

 +2       ;

 +3        QUIT 

POST      ;

 +1        NEW XUS

 +2        SET XUS=$$ADD^XPDMENU("ANRVJ_BLINDREHAB","DGRR GUI PATIENT LOOKUP")

 +3        SET XUS=$$ADD^XPDMENU("ANRVJ_BLINDREHAB","DGRR PATIENT SERVICE QUERY")

 +4        SET XUS=$$ADD^XPDMENU("ANRVJ_BLINDREHAB","ANRVJ VIAB SERVICE")

 +5        SET XUS=$$ADD^XPDMENU("ANRVJ VIAB SERVICE","VIAB WEB SERVICES OPTION")

 +6        DO VERUPD

 +7        QUIT 

VERUPD    ;

 +1        NEW ANRVIEN,DR,DA,DIE

 +2        SET ANRVIEN=0

           FOR 

               SET ANRVIEN=$ORDER(^DIC(9.4,ANRVIEN))

               if 'ANRVIEN

                   QUIT 

               Begin DoDot:1

 +3                IF $PIECE($GET(^DIC(9.4,ANRVIEN,0)),"^",2)="ANRV"

                       SET DA=ANRVIEN

               End DoDot:1

 +4        SET DR="13///5.1"

           SET DIE="^DIC(9.4,"

 +5        DO ^DIE

 +6        QUIT 

 +7       ;