- XU8P317 ;BP-OAK/BDT - PERSON CLASS MODIFIED; 8/19/03 5:33am
- ;;8.0;KERNEL;**317**;Jul 10, 1995
- ;Inactivate records 24 and 25.
- ;Edit CLASSIFICATION field for records 144 and 145.
- ;Edit SPECIALTY CODE field for records 144 and 145
- ;
- N FDA
- D INACT(24),INACT(25)
- CL S FDA(8932.1,"144,",1)="Resident, Allopathic (includes Interns, Residents, Fellows)" D FILE^DIE("","FDA","ZZERR")
- S FDA(8932.1,"145,",1)="Resident, Osteopathic (includes Interns, Residents, Fellows)" D FILE^DIE("","FDA","ZZERR")
- SC S FDA(8932.1,"144,",8)="01" D FILE^DIE("","FDA","ZZERR")
- S FDA(8932.1,"145,",8)="01" D FILE^DIE("","FDA","ZZERR")
- Q
- ;
- INACT(X) ;
- N XUA
- L +^USC(8932.1,X,0):10 I '$T D Q
- .S XUA(1)="",XUA(2)=">>>Record # "_X_" locked at time of patch installaion. Could not inactivate." D MES^XPDUTL(.XUA)
- S $P(^USC(8932.1,X,0),"^",4)="i"
- S $P(^USC(8932.1,X,0),"^",5)=DT
- L -^USC(8932.1,X,0)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P317 907 printed Feb 18, 2025@23:33:36 Page 2
- XU8P317 ;BP-OAK/BDT - PERSON CLASS MODIFIED; 8/19/03 5:33am
- +1 ;;8.0;KERNEL;**317**;Jul 10, 1995
- +2 ;Inactivate records 24 and 25.
- +3 ;Edit CLASSIFICATION field for records 144 and 145.
- +4 ;Edit SPECIALTY CODE field for records 144 and 145
- +5 ;
- +6 NEW FDA
- +7 DO INACT(24)
- DO INACT(25)
- CL SET FDA(8932.1,"144,",1)="Resident, Allopathic (includes Interns, Residents, Fellows)"
- DO FILE^DIE("","FDA","ZZERR")
- +1 SET FDA(8932.1,"145,",1)="Resident, Osteopathic (includes Interns, Residents, Fellows)"
- DO FILE^DIE("","FDA","ZZERR")
- SC SET FDA(8932.1,"144,",8)="01"
- DO FILE^DIE("","FDA","ZZERR")
- +1 SET FDA(8932.1,"145,",8)="01"
- DO FILE^DIE("","FDA","ZZERR")
- +2 QUIT
- +3 ;
- INACT(X) ;
- +1 NEW XUA
- +2 LOCK +^USC(8932.1,X,0):10
- IF '$TEST
- Begin DoDot:1
- +3 SET XUA(1)=""
- SET XUA(2)=">>>Record # "_X_" locked at time of patch installaion. Could not inactivate."
- DO MES^XPDUTL(.XUA)
- End DoDot:1
- QUIT
- +4 SET $PIECE(^USC(8932.1,X,0),"^",4)="i"
- +5 SET $PIECE(^USC(8932.1,X,0),"^",5)=DT
- +6 LOCK -^USC(8932.1,X,0)
- +7 QUIT