source: FOIAVistA/trunk/r/GEN_MED_OTHER-GMV/GMVCLIN.m@ 1394

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

initial load of FOIAVistA 6/30/08 version

File size: 2.6 KB
Line 
1GMVCLIN ;HOIFO/YH,FT-RETURNS A LIST OF PATIENTS WITH CLINIC APPOINTMENTS WITHIN A GIVEN PERIOD ;6/24/03 10:32
2 ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; #3869 - ^SDAMA202 calls (controlled)
6 ; #10040 - ^SC( references (supported)
7 ; #10103 - ^XLFDT calls (supported)
8 ;
9CLINPTS(RESULT,CLIN,BDATE) ; GMV CLINIC PT [RPC entry point]
10 ; Return list of patients with clinic appointments within given period
11 ; Input:
12 ; RESULT - array name to return data in
13 ; CLIN - clinic name
14 ; BDATE - TODAY, TOMORROW, YESTERDAY, PAST WEEK, OR PAST MONTH
15 ;
16 ; Output:
17 ; RESULT(n)=DFN^patient name^clinic name^appt date/time (external)^
18 ; SSN^DOB (external)^sex, age^^...^^^^^...
19 ;
20 ; RESULT(1)=contains any error message
21 ;
22 N DFN,EDATE,GMVCLIN,GMVCNT,GMVDT,GMVI,GMVJ,GMVNODE,GMVNOW
23 N GMVOUT,GMVPAT,GMVRESLT,NAME,X
24 K RESULT
25 I '$D(^SC("B",CLIN)) S RESULT(1)="ERROR^No clinic identified" G QCLIN
26 S GMVCLIN=$O(^SC("B",CLIN,0))
27 I GMVCLIN'>0 S RESULT(1)="ERROR^No clinic identified" G QCLIN
28 S GMVNOW=$$NOW^XLFDT,EDATE=$P(GMVNOW,".")_".24"
29 S BDATE=$$UP^XLFSTR(BDATE)
30 S BDATE=$S(BDATE="TODAY":"T",BDATE="TOMORROW":"T+1",BDATE="YESTERDAY":"T-1",BDATE="PAST WEEK":"T-7",BDATE="PAST MONTH":"T-30",1:"")
31 I BDATE="" S RESULT(1)="ERROR^Error in date range." G QCLIN
32 ; convert bdate and edate into fileman date/time
33 D DT^DILF("T",BDATE,.BDATE,"","")
34 I BDATE>EDATE S EDATE=BDATE_".24"
35 ; call scheduling api to get appt data
36 D GETPLIST^SDAMA202(GMVCLIN,"1;4;","R",BDATE,EDATE,.GMVRESLT,"")
37 ; if GMVRESLT < 0, scheduling api returned an error
38 I GMVRESLT<0 D G QCLIN
39 .S RESULT(1)="ERROR"_U_$O(^TMP($J,"SDAMA202","GETPLIST","ERROR",0))
40 .Q
41 ; generate error message if # of appts > 200
42 I $D(^TMP($J,"SDAMA202","GETPLIST",201,0)) D G QCLIN
43 .S RESULT(1)="ERROR^Too many appointments found. Please narrow search."
44 .Q
45 S (GMVCNT,GMVI)=0
46 F S GMVI=$O(^TMP($J,"SDAMA202","GETPLIST",GMVI)) Q:'GMVI D
47 .S GMVNODE=^TMP($J,"SDAMA202","GETPLIST",GMVI,4) ;dfn^patient name
48 .Q:$P(GMVNODE,U,1)=""!($P(GMVNODE,U,2)="")
49 .S DFN=$P(GMVNODE,U,1),NAME=$P(GMVNODE,U,2)
50 .S GMVDT=$P(^TMP($J,"SDAMA202","GETPLIST",GMVI,1),U,1) ;appt date/time
51 .S GMVOUT(NAME,DFN)=DFN_"^"_NAME_"^"_CLIN_"^"_$$FMTE^XLFDT(GMVDT)
52 .S GMVCNT=GMVCNT+1
53 .Q
54 I $D(GMVOUT) D
55 .S GMVI=0,NAME=""
56 .F S NAME=$O(GMVOUT(NAME)) Q:NAME="" D
57 ..S DFN=0
58 ..F S DFN=$O(GMVOUT(NAME,DFN)) Q:'DFN D
59 ...S GMVPAT=""
60 ...D PTINFO^GMVUTL3(.GMVPAT,DFN)
61 ...S GMVI=GMVI+1,RESULT(GMVI)=GMVOUT(NAME,DFN)_"^"_GMVPAT
62 ...Q
63 ..Q
64 .Q
65QCLIN ; called from above
66 I '$D(RESULT(1)) S RESULT(1)="No patients found"
67 K ^TMP($J,"SDAMA202")
68 Q
69 ;
Note: See TracBrowser for help on using the repository browser.