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/XU8P317.m@ 813

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

initial load of WorldVistAEHR

File size: 885 bytes
Line 
1XU8P317 ;BP-OAK/BDT - PERSON CLASS MODIFIED; 8/19/03 5:33am
2 ;;8.0;KERNEL;**317**;Jul 10, 1995
3 ;Inactivate records 24 and 25.
4 ;Edit CLASSIFICATION field for records 144 and 145.
5 ;Edit SPECIALTY CODE field for records 144 and 145
6 ;
7 N FDA
8 D INACT(24),INACT(25)
9CL S FDA(8932.1,"144,",1)="Resident, Allopathic (includes Interns, Residents, Fellows)" D FILE^DIE("","FDA","ZZERR")
10 S FDA(8932.1,"145,",1)="Resident, Osteopathic (includes Interns, Residents, Fellows)" D FILE^DIE("","FDA","ZZERR")
11SC S FDA(8932.1,"144,",8)="01" D FILE^DIE("","FDA","ZZERR")
12 S FDA(8932.1,"145,",8)="01" D FILE^DIE("","FDA","ZZERR")
13 Q
14 ;
15INACT(X) ;
16 N XUA
17 L +^USC(8932.1,X,0):10 I '$T D Q
18 .S XUA(1)="",XUA(2)=">>>Record # "_X_" locked at time of patch installaion. Could not inactivate." D MES^XPDUTL(.XUA)
19 S $P(^USC(8932.1,X,0),"^",4)="i"
20 S $P(^USC(8932.1,X,0),"^",5)=DT
21 L -^USC(8932.1,X,0)
22 Q
Note: See TracBrowser for help on using the repository browser.