source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P264A.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1XU8P264A ;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.
6START ;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 ;
20ADD(X,Y) ;add new entries.
21 I ^USC(8932.1,X,0)'=Y S ^USC(8932.1,X,0)=Y W "-"
22 Q ""
23 ;
24INAC(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 ""
Note: See TracBrowser for help on using the repository browser.