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 ---[H[J[2J[HANRV5P 631 printed Dec 13, 2024@02:45:34 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 ;
