NURIPST ; HIRMFO/REL-Post-Init for Patch 9 ;3/25/98 09:32
;;4.0;NURSING SERVICE;**9**;Apr 25, 1997
D BMES^XPDUTL("Remove File 213.1")
S U="^" S DIU="^NURSA(213.1,",DIU(0)="DST" D EN^DIU2
D BMES^XPDUTL("Recompile NURS-P-STF Template")
S Y=$O(^DIPT("B","NURS-P-STF",0)) I Y S X="NURSPA",DMAX=5000 D EN2^DIPZ(Y,"",X,DMAX)
D BMES^XPDUTL("Remove AMON, AQUA, AYR cross-refs from File 213.4")
F X="AMON","AQUA","AYR" D
.F K=0:0 S K=$O(^DD(213.4,.01,1,K)) Q:K<1 I $P($G(^(K,0)),"^",2)=X K ^DD(213.4,.01,1,K) Q
.K ^DD(213.4,0,"IX",X,213.4,.01) K ^NURSA(213.4,X) Q
D BMES^XPDUTL("Re-index AB cross-ref")
S DIK="^NURSA(213.4,",DIK(1)=".01^AB" D ENALL^DIK
D BMES^XPDUTL("Done")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURIPST 701 printed Nov 22, 2024@17:31:10 Page 2
NURIPST ; HIRMFO/REL-Post-Init for Patch 9 ;3/25/98 09:32
+1 ;;4.0;NURSING SERVICE;**9**;Apr 25, 1997
+2 DO BMES^XPDUTL("Remove File 213.1")
+3 SET U="^"
SET DIU="^NURSA(213.1,"
SET DIU(0)="DST"
DO EN^DIU2
+4 DO BMES^XPDUTL("Recompile NURS-P-STF Template")
+5 SET Y=$ORDER(^DIPT("B","NURS-P-STF",0))
IF Y
SET X="NURSPA"
SET DMAX=5000
DO EN2^DIPZ(Y,"",X,DMAX)
+6 DO BMES^XPDUTL("Remove AMON, AQUA, AYR cross-refs from File 213.4")
+7 FOR X="AMON","AQUA","AYR"
Begin DoDot:1
+8 FOR K=0:0
SET K=$ORDER(^DD(213.4,.01,1,K))
if K<1
QUIT
IF $PIECE($GET(^(K,0)),"^",2)=X
KILL ^DD(213.4,.01,1,K)
QUIT
+9 KILL ^DD(213.4,0,"IX",X,213.4,.01)
KILL ^NURSA(213.4,X)
QUIT
End DoDot:1
+10 DO BMES^XPDUTL("Re-index AB cross-ref")
+11 SET DIK="^NURSA(213.4,"
SET DIK(1)=".01^AB"
DO ENALL^DIK
+12 DO BMES^XPDUTL("Done")
+13 QUIT
+14 ;
