RAAIPST0 ;HISC/SWM- PATCH RAD*4.5*2 Post-init Driver ;4/29/96 11:28
VERSION ;;4.5;Radiology/Nuclear Medicine;**2**;Dec 12, 1995
;
Q:'+$O(^RADPT(0)) ;virgin install
N RACHK
S RACHK=$$NEWCP^XPDUTL("POST1","EN1^RAAIPST0")
; re-create "E" nodes in ^RA(78.2,RAFMT,"E",...
; only for RAFMT records that have the RAVERF variable
Q
EN1 ; re-create file 78.2 records to change RAVERF to RAVERFDT
N RAFMT,RA2,RA3,RATXT
S RA3=$O(^RA(78.7,"B","VERIFIED DATE",0)) G:'RA3 16
G:^RA(78.7,RA3,0)'["RAVERFDT" 17 G:^("E")'["RAVERFDT" 17
S RAFMT=0
11 S RAFMT=$O(^RA(78.2,RAFMT)) G:RAFMT="" 19 S RA2=0
12 S RA2=$O(^RA(78.2,RAFMT,"E",RA2)) G:RA2="" 11
I ^RA(78.2,RAFMT,"E",RA2,0)["RAVERF" D CMP^RAFLH1 G 11
G 12
16 S RATXT(1)="No VERIFIED DATE record found in file #78.7" G 18
Q
17 S RATXT(1)="No variable RAVERFDT found in the VERIFIED DATE record of file #78.7"
18 S RATXT(2)="patch post init abended." D MES^XPDUTL(.RATXT)
Q
19 W !,*7,"PATCH post init completed."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAAIPST0 992 printed Dec 13, 2024@02:33:42 Page 2
RAAIPST0 ;HISC/SWM- PATCH RAD*4.5*2 Post-init Driver ;4/29/96 11:28
VERSION ;;4.5;Radiology/Nuclear Medicine;**2**;Dec 12, 1995
+1 ;
+2 ;virgin install
if '+$ORDER(^RADPT(0))
QUIT
+3 NEW RACHK
+4 SET RACHK=$$NEWCP^XPDUTL("POST1","EN1^RAAIPST0")
+5 ; re-create "E" nodes in ^RA(78.2,RAFMT,"E",...
+6 ; only for RAFMT records that have the RAVERF variable
+7 QUIT
EN1 ; re-create file 78.2 records to change RAVERF to RAVERFDT
+1 NEW RAFMT,RA2,RA3,RATXT
+2 SET RA3=$ORDER(^RA(78.7,"B","VERIFIED DATE",0))
if 'RA3
GOTO 16
+3 if ^RA(78.7,RA3,0)'["RAVERFDT"
GOTO 17
if ^("E")'["RAVERFDT"
GOTO 17
+4 SET RAFMT=0
11 SET RAFMT=$ORDER(^RA(78.2,RAFMT))
if RAFMT=""
GOTO 19
SET RA2=0
12 SET RA2=$ORDER(^RA(78.2,RAFMT,"E",RA2))
if RA2=""
GOTO 11
+1 IF ^RA(78.2,RAFMT,"E",RA2,0)["RAVERF"
DO CMP^RAFLH1
GOTO 11
+2 GOTO 12
16 SET RATXT(1)="No VERIFIED DATE record found in file #78.7"
GOTO 18
+1 QUIT
17 SET RATXT(1)="No variable RAVERFDT found in the VERIFIED DATE record of file #78.7"
18 SET RATXT(2)="patch post init abended."
DO MES^XPDUTL(.RATXT)
+1 QUIT
19 WRITE !,*7,"PATCH post init completed."
+1 QUIT
