Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORQQPXRM

ORQQPXRM.m

Go to the documentation of this file.
  1. ORQQPXRM ;SLC/PJH - Functions for reminder data ;08/17/2018
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,116,173,187,190,215,243,306,389,377,405**;Dec 17, 1997;Build 211
  1. ;
  1. ;ORQQPXRM DIALOG ACTIVE
  1. ACTIVE(ORY,ORLIST) D ACTIVE^PXRMRPCC(.ORY,.ORLIST) Q ; DBIA 3080
  1. ;
  1. ;ORQQPXRM REMINDER EVALUATION
  1. ALIST(ORY,ORPT,ORLIST) D ALIST^PXRMRPCA(.ORY,.ORPT,.ORLIST) Q ; DBIA 3078
  1. ;
  1. ;ORQQPXRM REMINDERS APPLICABLE
  1. APPL(ORY,ORPT,ORLOC) D EVALCOVR^ORQQPX(.ORY,ORPT,ORLOC) Q
  1. ;
  1. ;ORQQPXRM REMINDER CATEGORIES
  1. CATEGORY(ORY,ORPT,ORLOC) ;
  1. D CATEGORY^PXRMRPCA(.ORY,ORPT,ORLOC) Q ; DBIA 3078
  1. ;
  1. ;ORQQPXRM REMINDER DIALOG
  1. DIALOG(ORY,ORREM,DFN,VISITID) D DIALOG^PXRMRPCC(.ORY,ORREM,DFN,VISITID) Q ; DBIA 3080
  1. ;
  1. ;ORQQPXRM EDUCATION SUBTOPICS
  1. EDS(ORY,OREDU) D EDS^PXRMRPCB(.ORY,OREDU) Q ; DBIA 3079
  1. ;
  1. ;ORQQPXRM EDUCATION SUMMARY
  1. EDL(ORY,OREM) D EDL^PXRMRPCB(.ORY,OREM) Q ; DBIA 3079
  1. ;
  1. ;ORQQPXRM EDUCATION TOPIC
  1. EDU(ORY,OREDU) D EDU^PXRMRPCB(.ORY,OREDU) Q ; DBIA 3079
  1. ;
  1. ;ORQQPXRM PROGRESS NOTE HEADER
  1. HDR(ORY,ORLOC) D HDR^PXRMRPCC(.ORY,ORLOC) Q ; DBIA 3080
  1. ;
  1. ;ORQQPXRM REMINDERS UNEVALUATED
  1. LIST(ORY,ORPT,ORLOC) D GETLIST^ORQQPX(.ORY,ORLOC) Q
  1. ;
  1. ;ORQQPXRM MENTAL HEALTH
  1. MH(ORY,OTEST) ;
  1. D MH^PXRMRPCC(.ORY,OTEST) ; DBIA 3080
  1. S ORY(0)=0
  1. I $$PATCH^XPDUTL("YS*5.01*85") S ORY(0)=1
  1. Q
  1. ;
  1. MHDLL(ORY,DFN,INPUTS,DIEN) ;
  1. N CNT,CNT1,ORRESULT,ORSCORES,TEXT
  1. F TEXT="RESULTS","SCORES" D
  1. .S CNT=0,CNT1=0
  1. .F S CNT=$O(INPUTS(TEXT,CNT)) Q:CNT="" D
  1. ..S CNT1=CNT1+1
  1. ..I TEXT="RESULTS" S ORRESULT(CNT1)=$G(INPUTS(TEXT,CNT))
  1. ..I TEXT="SCORES" S ORSCORES(CNT1)=$G(INPUTS(TEXT,CNT))
  1. D MHDLL^PXRMDRSG(.ORY,.ORRESULT,.ORSCORES,DFN,DIEN)
  1. Q
  1. ;
  1. ;ORQQPXRM MENTAL HEALTH RESULTS
  1. MHR(ORY,RESULT,ORES) ;
  1. ; DBIA 3080
  1. D MHR^PXRMRPCC(.ORY,RESULT,.ORES)
  1. Q
  1. ;
  1. ;ORQQPXRM MENTAL HEALTH SAVE
  1. MHS(ORY,ORES) D MHS^PXRMRPCC(.ORY,.ORES) Q ; DBIA 3080
  1. ;
  1. MHV(ORY,DFN,NAME,ANS) ;
  1. N ORDATA,ORES,X
  1. S ORY(0)=0
  1. I '$$PATCH^XPDUTL("YS*5.01*85") S ORY(0)=2 Q
  1. I '$L(ANS) Q
  1. S ORES("DFN")=DFN,ORES("CODE")=NAME
  1. F X=1:1:$L(ANS) I $E(ANS,X)'="X" D
  1. .;I $E(ANS,X)="T" S $E(ANS,X)=1
  1. .;I $E(ANS,X)="F" S $E(ANS,X)=2
  1. .S ORES(X)=X_U_$E(ANS,X)
  1. D CHECKCR^YTQPXRM4(.ORDATA,.ORES)
  1. I $G(ORDATA(2))="OK" S ORY(0)=1 Q
  1. S ORY(1)=$P($G(ORDATA(2)),U,2)
  1. Q
  1. ;
  1. ;ORQQPXRM MST UPDATE
  1. MST(ORY,ORPT,ORDATE,ORSTAT,ORPROV,ORFTYP,ORFIEN,ORRES) ;
  1. D MST^PXRMRPCC(.ORY,ORPT,ORDATE,ORSTAT,ORPROV,ORFTYP,ORFIEN,ORRES) Q
  1. ;
  1. ;ORQQPXRM WOMEN HEALTH RESULT
  1. WH(ORY,ORRESULT) ;
  1. D WH^PXRMRPCC(.ORY,.ORRESULT) Q
  1. ;
  1. WHLETTER(ORY,ORIEN) ;
  1. D LETTER^WVRPCNO1(.ORY,ORIEN) Q
  1. ;
  1. WHREPORT(ORY,ORIEN) ;
  1. D RESULTS^WVALERTF(.ORY,ORIEN) Q
  1. ;
  1. ;ORQQPXRM DIALOG PROMPTS
  1. PROMPT(ORY,ORDLG,ORDCUR,ORFTYP,ORIEN,NDATA) ;
  1. D PROMPT^PXRMRPCC(.ORY,ORDLG,ORDCUR,ORFTYP,ORIEN,.NDATA) Q ; DBIA 3080
  1. ;
  1. ;ORQQPXRM REMINDER DETAIL
  1. REMDET(ORY,ORPT,ORIEN) D REMDET^PXRMRPCA(.ORY,ORPT,ORIEN) Q ; DBIA 3078
  1. ;
  1. ;ORQQPXRM REMINDER INQUIRY
  1. RES(ORY,ORREM) D RES^PXRMRPCC(.ORY,ORREM) Q ; DBIA 3080
  1. ;
  1. ;ORQQPXRM REMINDER WEB
  1. WEB(ORY,ORREM) D WEB^PXRMRPCA(.ORY,ORREM) Q ; DBIA 3078
  1. ;
  1. ;PXRM REMINDER DIALOG (TIU)
  1. TDIALOG(ORY,ORDLG,DFN,VISITID) D DIALOG^PXRMRPCD(.ORY,ORDLG,DFN,VISITID) Q
  1. ;
  1. ACT(REM) ;ORQQPX SEARCH ITEMS - XPAR value screen for active reminders
  1. ;Treat a null value as inactive
  1. I 'REM Q 0
  1. ;Check IF inactive flag is set
  1. I ($T(INACTIVE^PXRM)'=""),$$INACTIVE^PXRM(REM) Q 0 ; DBIA 2182
  1. ;Otherwise active
  1. Q 1
  1. ;
  1. REMVER(ORLIST) ;
  1. S ORLIST=$$VERSION^XPDUTL("PXRM")
  1. Q
  1. ;
  1. GEC(ORRESULT,IEN,DFN,VISIT,NOTEIEN) ;
  1. D API^PXRMGECU(.ORRESULT,IEN,DFN,VISIT,1,NOTEIEN)
  1. Q
  1. ;
  1. GECF(RESULT,DFN,FIN) ;
  1. D FINISHED^PXRMGECU(DFN,FIN)
  1. Q
  1. ;
  1. GECP(RESULT,DFN) ;
  1. S RESULT=$$STATUS^PXRMGECU(DFN)
  1. Q
  1. ;
  1. ;ORQQPXRM REMINDER LINK SEQ
  1. AFFSEQ(RESULT,LINK) D GETLSEQ^PXRMDLLB(.RESULT,+$G(LINK)) Q
  1. ;