| 1 | RA57PST ;HIOFO/SWM-Post install ;12/20/04 12:55am
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;**57**;Mar 16, 1998
|
|---|
| 3 | ; This is the post-install routine for patch RA*5.0*57
|
|---|
| 4 | ; It will loop thru file 79.2 and insert appropriate Dept Code
|
|---|
| 5 | ;
|
|---|
| 6 | ; This routine may be deleted after RA*5.0*57 is installed.
|
|---|
| 7 | ;
|
|---|
| 8 | ; Variable initialization.
|
|---|
| 9 | N RA1,RA2,RAFDA,RATXT,RAVAL,RAX
|
|---|
| 10 | S RATXT(1)=""
|
|---|
| 11 | S RATXT(2)="** File 79.2 IMAGING TYPE has been updated with Dept. Code for the PFSS project. **"
|
|---|
| 12 | S RA1=0
|
|---|
| 13 | ; Traverse the IMAGING TYPE FILE
|
|---|
| 14 | F S RA1=$O(^RA(79.2,RA1)) Q:'RA1 I $D(^(RA1,0)) D
|
|---|
| 15 | . ; Gather the data from the zero node and extract the first 3 characters of the .01 (NAME) field.
|
|---|
| 16 | . S RA2=^RA(79.2,RA1,0),RAX=$E(RA2,1,3)
|
|---|
| 17 | . ; Inspect the extracted characters and assign a code number associated with that string.
|
|---|
| 18 | . S RAVAL=$S(RAX="GEN":"105",RAX="NUC":"109",RAX="ULT":"115",RAX="MAG":"151",RAX="CT ":"150",RAX="ANG":"152",RAX="CAR":"109",RAX="VAS":"421",RAX="MAM":"703",1:"")
|
|---|
| 19 | . S RAFDA(79.2,RA1_",",90)=RAVAL ; Dept Code is in field #90.
|
|---|
| 20 | . D FILE^DIE("K","RAFDA") ; Use filemans function to populate the field.
|
|---|
| 21 | . ; If there is an error returned set up special error text.
|
|---|
| 22 | . I $D(RAMSG) S RATXT(2)="** Error in updating file 79.2 IMAGING TYPE with Dept. Code for the PFSS project. **"
|
|---|
| 23 | . ; End of task loop
|
|---|
| 24 | . Q
|
|---|
| 25 | ; Display any message returned from the filing activity.
|
|---|
| 26 | D MES^XPDUTL(.RATXT)
|
|---|
| 27 | Q
|
|---|
