Last change
on this file since 907 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
687 bytes
|
Rev | Line | |
---|
[628] | 1 | QAOSCNV4 ;HISC/DAD-AUTO ALLOCATE QAOSCLIN KEY FROM CLIN REVR FILE (#741.3) ;11/24/92 13:30
|
---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
---|
| 3 | W !!,"Allocating the QAOSCLIN security key to the persons in the"
|
---|
| 4 | W !,"QA OCCURRENCE SCREEN CLINICAL REVIEWER file (#741.3)"
|
---|
| 5 | W !,"----------------------------------------------------------"
|
---|
| 6 | K ^TMP($J,"QAOSCLIN ADD"),^TMP($J,"QAOSCLIN DEL")
|
---|
| 7 | F QAOSDUZ=0:0 S QAOSDUZ=$O(^QA(741.3,"B",QAOSDUZ)) Q:QAOSDUZ'>0 D
|
---|
| 8 | . S QAOSDUZ(0)=$P($G(^VA(200,QAOSDUZ,0)),"^")
|
---|
| 9 | . Q:QAOSDUZ(0)=""
|
---|
| 10 | . S ^TMP($J,"QAOSCLIN ADD",QAOSDUZ(0),QAOSDUZ)=""
|
---|
| 11 | . Q
|
---|
| 12 | S QAOSCLIN(0)="QAOSCLIN",QAOSCLIN=+$O(^DIC(19.1,"B",QAOSCLIN(0),0))
|
---|
| 13 | D DOIT^QAOSCKEY
|
---|
| 14 | K QAOSDUZ,^TMP($J,"QAOSCLIN ADD")
|
---|
| 15 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.