source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORQQPXRM.m@ 1297

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

revised back to 6/30/08 version

File size: 3.6 KB
Line 
1ORQQPXRM ; SLC/PJH - Functions for reminder data ;7/21/2005 [2/4/04 10:24am]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,116,173,187,190,215**;Dec 17, 1997
3 ;
4 ;ORQQPXRM DIALOG ACTIVE
5ACTIVE(ORY,ORLIST) D ACTIVE^PXRMRPCC(.ORY,.ORLIST) Q ; DBIA 3080
6 ;
7 ;ORQQPXRM REMINDER EVALUATION
8ALIST(ORY,ORPT,ORLIST) D ALIST^PXRMRPCA(.ORY,.ORPT,.ORLIST) Q ; DBIA 3078
9 ;
10 ;ORQQPXRM REMINDERS APPLICABLE
11APPL(ORY,ORPT,ORLOC) D EVALCOVR^ORQQPX(.ORY,ORPT,ORLOC) Q
12 ;D APPL^PXRMRPCA(.ORY,ORPT,ORLOC) Q ; DBIA 3078
13 ;
14 ;ORQQPXRM REMINDER CATEGORIES
15CATEGORY(ORY,ORPT,ORLOC) ;
16 D CATEGORY^PXRMRPCA(.ORY,ORPT,ORLOC) Q ; DBIA 3078
17 ;
18 ;ORQQPXRM REMINDER DIALOG
19DIALOG(ORY,ORREM,DFN) ;
20 ; DBIA 3080
21 N DIEN
22 I $G(DFN)'="" D DIALOG^PXRMRPCC(.ORY,ORREM,DFN)
23 I $G(DFN)="" D DIALOG^PXRMRPCC(.ORY,ORREM)
24 I $P($G(ORY(1)),U)=-1 Q
25 S DIEN=$G(^PXD(811.9,ORREM,51))
26 S ORY(0)=0_U_+$P($G(^PXRMD(801.41,DIEN,0)),U,17)
27 Q
28 ;
29 ;ORQQPXRM EDUCATION SUBTOPICS
30EDS(ORY,OREDU) D EDS^PXRMRPCB(.ORY,OREDU) Q ; DBIA 3079
31 ;
32 ;ORQQPXRM EDUCATION SUMMARY
33EDL(ORY,OREM) D EDL^PXRMRPCB(.ORY,OREM) Q ; DBIA 3079
34 ;
35 ;ORQQPXRM EDUCATION TOPIC
36EDU(ORY,OREDU) D EDU^PXRMRPCB(.ORY,OREDU) Q ; DBIA 3079
37 ;
38 ;ORQQPXRM PROGRESS NOTE HEADER
39HDR(ORY,ORLOC) D HDR^PXRMRPCC(.ORY,ORLOC) Q ; DBIA 3080
40 ;
41 ;ORQQPXRM REMINDERS UNEVALUATED
42LIST(ORY,ORPT,ORLOC) D GETLIST^ORQQPX(.ORY,ORLOC) Q
43 ;D LIST^PXRMRPCA(.ORY,ORPT,ORLOC) Q ; DBIA 3078
44 ;
45 ;ORQQPXRM MENTAL HEALTH
46MH(ORY,OTEST) ;
47 D MH^PXRMRPCC(.ORY,OTEST) ; DBIA 3080
48 S ORY(0)=0
49 I $$PATCH^XPDUTL("YS*5.01*85") S ORY(0)=1
50 Q
51 ;
52 ;ORQQPXRM MENTAL HEALTH RESULTS
53MHR(ORY,RESULT,ORES) ;
54 ; DBIA 3080
55 D MHR^PXRMRPCC(.ORY,RESULT,.ORES)
56 Q
57 ;
58 ;ORQQPXRM MENTAL HEALTH SAVE
59MHS(ORY,ORES) D MHS^PXRMRPCC(.ORY,.ORES) Q ; DBIA 3080
60 ;
61MHV(ORY,DFN,NAME,ANS) ;
62 N ORDATA,ORES,X
63 S ORY(0)=0
64 I '$$PATCH^XPDUTL("YS*5.01*85") S ORY(0)=2 Q
65 I '$L(ANS) Q
66 S ORES("DFN")=DFN,ORES("CODE")=NAME
67 F X=1:1:$L(ANS) I $E(ANS,X)'="X" D
68 .;I $E(ANS,X)="T" S $E(ANS,X)=1
69 .;I $E(ANS,X)="F" S $E(ANS,X)=2
70 .S ORES(X)=X_U_$E(ANS,X)
71 D CHECKCR^YTQPXRM4(.ORDATA,.ORES)
72 I $G(ORDATA(2))="OK" S ORY(0)=1 Q
73 S ORY(1)=$P($G(ORDATA(2)),U,2)
74 Q
75 ;
76 ;ORQQPXRM MST UPDATE
77MST(ORY,ORPT,ORDATE,ORSTAT,ORPROV,ORFTYP,ORFIEN,ORRES) ;
78 D MST^PXRMRPCC(.ORY,ORPT,ORDATE,ORSTAT,ORPROV,ORFTYP,ORFIEN,ORRES) Q
79 ;
80 ;ORQQPXRM WOMEN HEALTH RESULT
81WH(ORY,ORRESULT) ;
82 D WH^PXRMRPCC(.ORY,.ORRESULT) Q
83 ;
84WHLETTER(ORY,ORIEN) ;
85 D LETTER^WVRPCNO1(.ORY,ORIEN) Q
86 ;
87WHREPORT(ORY,ORIEN) ;
88 D RESULTS^WVALERTF(.ORY,ORIEN) Q
89 ;
90 ;ORQQPXRM DIALOG PROMPTS
91PROMPT(ORY,ORDLG,ORDCUR,ORFTYP) ;
92 D PROMPT^PXRMRPCC(.ORY,ORDLG,ORDCUR,ORFTYP) Q ; DBIA 3080
93 ;
94 ;ORQQPXRM REMINDER DETAIL
95REMDET(ORY,ORPT,ORIEN) D REMDET^PXRMRPCA(.ORY,ORPT,ORIEN) Q ; DBIA 3078
96 ;
97 ;ORQQPXRM REMINDER INQUIRY
98RES(ORY,ORREM) D RES^PXRMRPCC(.ORY,ORREM) Q ; DBIA 3080
99 ;
100 ;ORQQPXRM REMINDER WEB
101WEB(ORY,ORREM) D WEB^PXRMRPCA(.ORY,ORREM) Q ; DBIA 3078
102 ;
103 ;PXRM REMINDER DIALOG (TIU)
104TDIALOG(ORY,ORDLG,DFN) ;
105 D DIALOG^PXRMRPCD(.ORY,ORDLG,DFN)
106 I $P($G(ORY(1)),U)=-1 Q
107 S ORY(0)=0_U_+$P($G(^PXRMD(801.41,ORDLG,0)),U,17)
108 Q
109 ;
110ACT(REM) ;ORQQPX SEARCH ITEMS - XPAR value screen for active reminders
111 ;Treat a null value as inactive
112 I 'REM Q 0
113 ;Treat a non-existen entry as inactive
114 I $G(^PXD(811.9,REM,0))="" Q 0
115 ;Check IF inactive flag is set
116 I ($T(INACTIVE^PXRM)'=""),$$INACTIVE^PXRM(REM) Q 0 ; DBIA 2182
117 ;Otherwise active
118 Q 1
119 ;
120REMVER(ORLIST) ;
121 S ORLIST=$$VERSION^XPDUTL("PXRM")
122 Q
123 ;
124GEC(ORRESULT,IEN,DFN,VISIT,NOTEIEN) ;
125 I $$VERSION^XPDUTL("PXRM")["2.0" D API^PXRMGECU(.ORRESULT,IEN,DFN,VISIT,1,NOTEIEN)
126 Q
127 ;
128GECF(RESULT,DFN,FIN) ;
129 I $$VERSION^XPDUTL("PXRM")["2.0" D FINISHED^PXRMGECU(DFN,FIN)
130 Q
131 ;
132GECP(RESULT,DFN) ;
133 I $$VERSION^XPDUTL("PXRM")["2.0",$G(DFN)'="" S RESULT=$$STATUS^PXRMGECU(DFN)
134 Q
135 ;
Note: See TracBrowser for help on using the repository browser.