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 ---[H[J[2J[HRAIPS178 426 printed Nov 22, 2024@17:46:12 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
