RA5IPST.m

RA5IPST ;HIRMFO/GJC - Post-init Driver patch five ;10/20/98  08:04

VERSION ;;5.0;Radiology/Nuclear Medicine;**5**;Mar 16, 1998

 ;

 S RAIPST=$$NEWCP^XPDUTL("PST1","EN1^RA5IPST")

 ; Post-init for patch five.  Set ^DD(71,0,"ID","WRITE")

 ; (remove the WRITE command from the data dictionary)

 ; before: ^DD(71,0,"ID","WRITE") = W ?54,$$PRCCPT^RADD1()

 ; after : ^DD(71,0,"ID","WRITE") = D EN^DDIOL($$PRCCPT^RADD1(),"","?54")

 ;

EN1 ; Entry point for "ID","WRITE" node cleanup

 Q:'$D(XPDNM)  ; no-op, only run during KIDS install

 S ^DD(71,0,"ID","WRITE")="D EN^DDIOL($$PRCCPT^RADD1(),"""",""?54"")"

 ; Note: This is part of DBIA: 2642

 K RAIPST

 Q

RA5IPST   ;HIRMFO/GJC - Post-init Driver patch five ;10/20/98  08:04

VERSION   ;;5.0;Radiology/Nuclear Medicine;**5**;Mar 16, 1998

 +1       ;

 +2        SET RAIPST=$$NEWCP^XPDUTL("PST1","EN1^RA5IPST")

 +3       ; Post-init for patch five.  Set ^DD(71,0,"ID","WRITE")

 +4       ; (remove the WRITE command from the data dictionary)

 +5       ; before: ^DD(71,0,"ID","WRITE") = W ?54,$$PRCCPT^RADD1()

 +6       ; after : ^DD(71,0,"ID","WRITE") = D EN^DDIOL($$PRCCPT^RADD1(),"","?54")

 +7       ;

EN1       ; Entry point for "ID","WRITE" node cleanup

 +1       ; no-op, only run during KIDS install

           IF '$DATA(XPDNM)

               QUIT 

 +2        SET ^DD(71,0,"ID","WRITE")="D EN^DDIOL($$PRCCPT^RADD1(),"""",""?54"")"

 +3       ; Note: This is part of DBIA: 2642

 +4        KILL RAIPST

 +5        QUIT