RAI113.m

RAI113 ;HIRMFO/GJC - pre/post-init patch 113 ;12/26/13  13:05

VERSION ;;5.0;Radiology/Nuclear Medicine;**113**;Mar 16, 1998;Build 6

 ;

 ;--- IAs ---

 ;Call                  Number     Type

 ;------------------------------------------------

 ;$$NEWCP^XPDUTL        10141      S

 ;$$GET1^DID            2052       S

 ;PRD^DILFD             2055       S

 ;where 'S'=Supported; 'C'=Controlled Subscription; 'P'=Private

 ;

POST ;post-init

 ;

 S RACHK=$$NEWCP^XPDUTL("POST1","PRD^RAI113")

 ;set Package Revision Data node ^DD(file_#,0,"VRRV") to patch number.

XIT ;kill and quit

 K RACHK

 Q

 ;

 ;-----

 ;

PRD ;post - set Package Revision Data node ^DD(file_#,0,"VRRV") to patch

 ;number.

 S RAPATCH="RA*5.0*113"

 D:$$GET1^DID(70.3,,,"PACKAGE REVISION DATA")'=RAPATCH PRD^DILFD(70.3,RAPATCH)

 K RAPATCH

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RAI113   830     printed  Apr 09, 2024@21:35:44                                                                                                                                                                                                       Page 2

RAI113    ;HIRMFO/GJC - pre/post-init patch 113 ;12/26/13  13:05

VERSION   ;;5.0;Radiology/Nuclear Medicine;**113**;Mar 16, 1998;Build 6

 +1       ;

 +2       ;--- IAs ---

 +3       ;Call                  Number     Type

 +4       ;------------------------------------------------

 +5       ;$$NEWCP^XPDUTL        10141      S

 +6       ;$$GET1^DID            2052       S

 +7       ;PRD^DILFD             2055       S

 +8       ;where 'S'=Supported; 'C'=Controlled Subscription; 'P'=Private

 +9       ;

POST      ;post-init

 +1       ;

 +2        SET RACHK=$$NEWCP^XPDUTL("POST1","PRD^RAI113")

 +3       ;set Package Revision Data node ^DD(file_#,0,"VRRV") to patch number.

XIT       ;kill and quit

 +1        KILL RACHK

 +2        QUIT 

 +3       ;

 +4       ;-----

 +5       ;

PRD       ;post - set Package Revision Data node ^DD(file_#,0,"VRRV") to patch

 +1       ;number.

 +2        SET RAPATCH="RA*5.0*113"

 +3        if $$GET1^DID(70.3,,,"PACKAGE REVISION DATA")'=RAPATCH

               DO PRD^DILFD(70.3,RAPATCH)

 +4        KILL RAPATCH

 +5        QUIT 

 +6       ;