- LR1008P ;HS/DIR/FJE; LR PATCH 8 POST INSTALL ROUTINE [ 07/08/1999 1:22 PM ]
- S ^DD(63.041,.01,1,2,0)="63.041^B"
- S ^DD(63.041,.01,1,2,1)="S ^LR(DA(2),""CH"",DA(1),1,""B"",$E(X,1,30),DA)="""""
- S ^DD(63.041,.01,1,2,2)="K ^LR(DA(2),""CH"",DA(1),1,""B"",$E(X,1,30),DA)"
- W !!,"CH Comment B cross-reference reset..",!,"Post Routine done....",!!
- Q
- LR1008P ;HS/DIR/FJE; LR PATCH 8 POST INSTALL ROUTINE [ 07/08/1999 1:22 PM ]
- +1 SET ^DD(63.041,.01,1,2,0)="63.041^B"
- +2 SET ^DD(63.041,.01,1,2,1)="S ^LR(DA(2),""CH"",DA(1),1,""B"",$E(X,1,30),DA)="""""
- +3 SET ^DD(63.041,.01,1,2,2)="K ^LR(DA(2),""CH"",DA(1),1,""B"",$E(X,1,30),DA)"
- +4 WRITE !!,"CH Comment B cross-reference reset..",!,"Post Routine done....",!!
- +5 QUIT