RAIPS178.m

RAIPS178 ;;WOIFO/KLM-PostInit 178; Jan 21, 2021@10:57:38

 ;;5.0;Radiology/Nuclear Medicine;**178**;Mar 16, 1998;Build 2

 ;

 ;This post-init routine will index the "ACM" cross reference

 ;on the CREDIT METHOD (#21) field of the IMAGING LOCATIONS (#79.1) file.

 ;

EN ;Entry point

 N DIK

 K ^RA(79.1,"ACM") ;Kill it first for kicks

 S DIK="^RA(79.1,"

 S DIK(1)="21^ACM" ;CREDIT METHOD "ACM" new xref

 D ENALL^DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RAIPS178   426     printed  Apr 09, 2024@21:40:22                                                                                                                                                                                                     Page 2

RAIPS178  ;;WOIFO/KLM-PostInit 178; Jan 21, 2021@10:57:38

 +1       ;;5.0;Radiology/Nuclear Medicine;**178**;Mar 16, 1998;Build 2

 +2       ;

 +3       ;This post-init routine will index the "ACM" cross reference

 +4       ;on the CREDIT METHOD (#21) field of the IMAGING LOCATIONS (#79.1) file.

 +5       ;

EN        ;Entry point

 +1        NEW DIK

 +2       ;Kill it first for kicks

           KILL ^RA(79.1,"ACM")

 +3        SET DIK="^RA(79.1,"

 +4       ;CREDIT METHOD "ACM" new xref

           SET DIK(1)="21^ACM"

 +5        DO ENALL^DIK

 +6        QUIT