| [613] | 1 | XU8P264A ;OAK-BP/BDT ;PERSON CLASS CODE UNDATE; [12/4/02 12:24pm]
|
|---|
| 2 | ;;8.0;KERNEL;**264**; Jul 10, 1995
|
|---|
| 3 | ;;This routine updates Person Class file
|
|---|
| 4 | ;- Add sixty new entries.
|
|---|
| 5 | ;- Inactivate two existing entries.
|
|---|
| 6 | START ;Print message about post-install
|
|---|
| 7 | N XUA,XU1,XUDATA,DAYINAC
|
|---|
| 8 | S DAYINAC=DT
|
|---|
| 9 | S XUA(1)="",XUA(2)=">>>XU*8*264 Post-Install...",XUA(3)=""
|
|---|
| 10 | D MES^XPDUTL(.XUA)
|
|---|
| 11 | ;loop through DATA^XUP264
|
|---|
| 12 | F XU1=1:1 S XUDATA=$P($T(DATA+XU1^XU8P264),";",4,99) Q:XUDATA="$END$" X $$ADD(XU1+674,XUDATA)
|
|---|
| 13 | ;call function INAC to inactivate entries 180 and 659
|
|---|
| 14 | X $$INAC(180,DAYINAC)
|
|---|
| 15 | X $$INAC(659,DAYINAC)
|
|---|
| 16 | S XUA(1)="",XUA(2)=">>>XU*8*264 Post-Install complete..",XUA(3)=""
|
|---|
| 17 | D MES^XPDUTL(.XUA)
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | ADD(X,Y) ;add new entries.
|
|---|
| 21 | I ^USC(8932.1,X,0)'=Y S ^USC(8932.1,X,0)=Y W "-"
|
|---|
| 22 | Q ""
|
|---|
| 23 | ;
|
|---|
| 24 | INAC(X,Y) ;inactivate an entries
|
|---|
| 25 | N XUA
|
|---|
| 26 | L +^USC(8932.1,X,0):10 I '$T D Q
|
|---|
| 27 | .S XUA(1)="",XUA(2)=">>>Record # "_X_" locked at time of patch installation. Could not inactivate." D MES^XPDUTL(.XUA)
|
|---|
| 28 | S $P(^USC(8932.1,X,0),"^",4)="i"
|
|---|
| 29 | S $P(^USC(8932.1,X,0),"^",5)=Y
|
|---|
| 30 | L -^USC(8932.1,X,0) Q ""
|
|---|
