source: FOIAVistA/trunk/r/NOIS-FSC/FSCRPCQ.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: 1.6 KB
Line 
1FSCRPCQ ;SLC/STAFF-NOIS RPC Query ;4/24/98 16:02
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4QUERY(IN,OUT) ; from FSCRPX (RPCQuery)
5 N COUNT,CRITERIA,LISTCNT,MAX,NUM,OPNUM K CRITERIA
6 K ^TMP("FSC LIST",$J),^TMP("FSC NEWLIST",$J),^TMP("FSC USELIST",$J),^TMP("FSC CRITERIA",$J)
7 S (LISTCNT,CALL)=0 F S CALL=$O(^TMP("FSC CURRENT LIST",$J,"C",CALL)) Q:CALL<1 S ^TMP("FSC LIST",$J,CALL,0)=CALL,LISTCNT=LISTCNT+1
8 D PROCESS
9 S OPNUM=0 F S OPNUM=$O(^TMP("FSC CRITERIA",$J,OPNUM)) Q:OPNUM<1 D
10 .K CRITERIA M CRITERIA=^TMP("FSC CRITERIA",$J,OPNUM)
11 .D OPTIMIZE^FSCQO(.CRITERIA)
12 .D QUERY^FSCQR("",.LISTCNT,.CRITERIA)
13 K ^TMP("FSC CURRENT LIST",$J)
14 S COUNT=0,MAX=$$MAX^FSCRPCL
15 S NUM="A" F S NUM=$O(^TMP("FSC LIST",$J,NUM),-1) Q:NUM="" S CALL=+^(NUM,0) D SETUP^FSCRPCA(CALL,.COUNT) Q:COUNT>MAX
16 D OUTPUT^FSCRPCA
17 K ^TMP("FSC LIST",$J),^TMP("FSC NEWLIST",$J),^TMP("FSC USELIST",$J),^TMP("FSC CRITERIA",$J)
18 Q
19 ;
20PROCESS ;
21 N COND,EXT,FLD,FLDCNT,LINE,NUM,OP,OPCNT,STEPCNT,VALUE
22 S (OPCNT,STEPCNT,FLDCNT)=0
23 S NUM=0 F S NUM=$O(^TMP("FSCRPC",$J,"INPUT",NUM)) Q:NUM<1 S LINE=^(NUM) I $L(LINE) D
24 .S OP=$P(LINE,U),EXT=$P(LINE,U,2),FLD=$P(LINE,U,3),COND=$P(LINE,U,4),VALUE=$P(LINE,U,5,99)
25 .I COND="not exist" S COND="not exists" ;*** temp fix for gui
26 .I $L(OP) S OPCNT=OPCNT+1,STEPCNT=1,FLDCNT=0,^TMP("FSC CRITERIA",$J,OPCNT,0)=OP_"^1^0"
27 .I EXT="or" S STEPCNT=STEPCNT+1,FLDCNT=0,$P(^TMP("FSC CRITERIA",$J,OPCNT,0),U,2)=STEPCNT
28 .S FLDCNT=FLDCNT+1,^TMP("FSC CRITERIA",$J,OPCNT,STEPCNT)=FLDCNT
29 .S ^TMP("FSC CRITERIA",$J,OPCNT,STEPCNT,FLDCNT)=FLD_U_COND_U_VALUE
30 .S ^TMP("FSC CRITERIA",$J,OPCNT,STEPCNT,FLDCNT,1)=EXT
31 Q
Note: See TracBrowser for help on using the repository browser.