XU8P317.m

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 ---XU8P317   907     printed  Apr 09, 2024@21:05:24                                                                                                                                                                                                      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