GMRGXPST ;HISC/RM-POSTINITIALIZTION FOR GMR GENERATOR ;4/17/92
;;3.0;Text Generator;;Jan 24, 1996
EN1 ; ENTRY TO POSTINITIALIZAION
D POST^GMRGXAGC
G:'GMRGXVER DD W !!,"Re-indexing ""AKID"" xref for file 124.2..."
K ^GMRD(124.2,"AKID")
F DA(1)=0:0 S DA(1)=$O(^GMRD(124.2,DA(1))) Q:DA(1)'>0 W:'$R(100) "." F DA=0:0 S DA=$O(^GMRD(124.2,DA(1),1,DA)) Q:DA'>0 S NURS=$G(^GMRD(124.2,DA(1),1,DA,0)) I +NURS S ^GMRD(124.2,"AKID",+NURS,DA(1),+$P(NURS,"^",6),DA)=""
W !!,"Updating Aggregate Term file entries..."
S DIE="^GMRD(124.2,",DR="6///T" F DA=0:0 S DA=$O(^GMRD(124.2,DA)) Q:DA'>0 S NURS=$S($D(^GMRD(124.2,DA,0)):^(0),1:"") I $P(NURS,"^",3)="NURSC"!($P(NURS,"^",3)="ZZ"),'$L($P(NURS,"^",8)) D ^DIE W "."
DD W !!,"Setting field protection on appropriate fields..."
S ^DD(124.11,1,9)="@" F X=124.2,124.25 F Y=7:1:10 S ^DD(X,Y,9)="@" ; FM does not automatically set the protection on these fields to '@'.
S ^DD(124.31,4,8)="^" ; FM does not automatically set READ access.
K GMRGXP,GMRGXVER
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRGXPST 1012 printed Nov 22, 2024@17:05:59 Page 2
GMRGXPST ;HISC/RM-POSTINITIALIZTION FOR GMR GENERATOR ;4/17/92
+1 ;;3.0;Text Generator;;Jan 24, 1996
EN1 ; ENTRY TO POSTINITIALIZAION
+1 DO POST^GMRGXAGC
+2 if 'GMRGXVER
GOTO DD
WRITE !!,"Re-indexing ""AKID"" xref for file 124.2..."
+3 KILL ^GMRD(124.2,"AKID")
+4 FOR DA(1)=0:0
SET DA(1)=$ORDER(^GMRD(124.2,DA(1)))
if DA(1)'>0
QUIT
if '$RANDOM(100)
WRITE "."
FOR DA=0:0
SET DA=$ORDER(^GMRD(124.2,DA(1),1,DA))
if DA'>0
QUIT
SET NURS=$GET(^GMRD(124.2,DA(1),1,DA,0))
IF +NURS
SET ^GMRD(124.2,"AKID",+NURS,DA(1),+$PIECE(NURS,"^",6),DA)=""
+5 WRITE !!,"Updating Aggregate Term file entries..."
+6 SET DIE="^GMRD(124.2,"
SET DR="6///T"
FOR DA=0:0
SET DA=$ORDER(^GMRD(124.2,DA))
if DA'>0
QUIT
SET NURS=$SELECT($DATA(^GMRD(124.2,DA,0)):^(0),1:"")
IF $PIECE(NURS,"^",3)="NURSC"!($PIECE(NURS,"^",3)="ZZ")
IF '$LENGTH($PIECE(NURS,"^",8))
DO ^DIE
WRITE "."
DD WRITE !!,"Setting field protection on appropriate fields..."
+1 ; FM does not automatically set the protection on these fields to '@'.
SET ^DD(124.11,1,9)="@"
FOR X=124.2,124.25
FOR Y=7:1:10
SET ^DD(X,Y,9)="@"
+2 ; FM does not automatically set READ access.
SET ^DD(124.31,4,8)="^"
+3 KILL GMRGXP,GMRGXVER
+4 QUIT
