RA7IPST.m

RA7IPST ;HIRMFO/GJC - Post-init Driver patch seven ;02/01/99  08:04

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

 Q:'$D(XPDNM)  ; must be in KIDS to run this software

EN1 ; This entry point will accomplish two tasks.  The first task

 ; will copy all of the ^RADPT("C" cross reference to the newly

 ; created ^RADPT("AE" cross reference.  The new data dictionary

 ; for the Exam Status (#3) field on the Examinations sub-file

 ; (#70.03) has the new "AE" cross reference logic defined.

 Q:'$D(XPDNM)  ; must be in KIDS to run this software

 M ^RADPT("AE")=^RADPT("C")

 K ^RADPT("C") ; kill off the old "C" cross reference

 Q

RA7IPST   ;HIRMFO/GJC - Post-init Driver patch seven ;02/01/99  08:04

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

 +1       ; must be in KIDS to run this software

           IF '$DATA(XPDNM)

               QUIT 

EN1       ; This entry point will accomplish two tasks.  The first task

 +1       ; will copy all of the ^RADPT("C" cross reference to the newly

 +2       ; created ^RADPT("AE" cross reference.  The new data dictionary

 +3       ; for the Exam Status (#3) field on the Examinations sub-file

 +4       ; (#70.03) has the new "AE" cross reference logic defined.

 +5       ; must be in KIDS to run this software

           IF '$DATA(XPDNM)

               QUIT 

 +6        MERGE ^RADPT("AE")=^RADPT("C")

 +7       ; kill off the old "C" cross reference

           KILL ^RADPT("C")

 +8        QUIT