| 1 | XUOAAUTL ;SFISC/SO- UTILITIES FOR OAA ;11:04 AM 8 Sep 2005
|
|---|
| 2 | ;;8.0;KERNEL;**344,398**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | SCRN4(IEN) ; Screen for INSITUTION(#4) file
|
|---|
| 5 | N DIERR,IENS,FIELDS,Z,ZERR
|
|---|
| 6 | S IENS=+IEN_","
|
|---|
| 7 | S FIELDS="11;13;101"
|
|---|
| 8 | D GETS^DIQ(4,IENS,FIELDS,"IE","Z","ZERR")
|
|---|
| 9 | I $D(DIERR) Q 0
|
|---|
| 10 | ;Check to see if National
|
|---|
| 11 | I Z(4,IENS,11,"I")'="N" Q 0
|
|---|
| 12 | ;Check to see if Inactive
|
|---|
| 13 | I Z(4,IENS,101,"I") Q 0
|
|---|
| 14 | ;Check to see if VAMC or M&ROC or RO-OC
|
|---|
| 15 | I Z(4,IENS,13,"E")'="VAMC",Z(4,IENS,13,"E")'="M&ROC",Z(4,IENS,13,"E")'="RO-OC" Q 0 ;8*398
|
|---|
| 16 | Q 1
|
|---|
| 17 | ;
|
|---|
| 18 | HLP1 ; VHA TRAINING FACILITY HELP
|
|---|
| 19 | W !,"Please choose the AFFILIATED VA facility responsible for administering"
|
|---|
| 20 | W !,"this Registered trainee's clinical training program, even though the trainee's"
|
|---|
| 21 | W !,"rotation may physically occur a secondary VA site (i.e., OPC, CBOC, etc.)."
|
|---|
| 22 | Q
|
|---|
