source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSCNV4.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 687 bytes
Line 
1QAOSCNV4 ;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.