- 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 Mar 13, 2025@21:26:09 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 ;
