ORWOTHER ;SLC/AGP - Other Information Panel RPC ;06/03/2020
;;3.0;ORDER ENTRY/RESULTS REPORTING;**485,377,531**;Dec 17, 1997;Build 17
;
;
; Reference to ^PXRMCOVID19 supported by ICR #7146
;
;
SHWOTHER(RESULT,USER) ;
I $$PATCH^XPDUTL("OR*3.0*377") D Q
.S RESULT("otherInfromationPanel","turnedOn")=+$$GET^XPAR("ALL","OR OTHER INFO ON",1,"I")
.S RESULT("otherInfromationPanel","useColor")=+$$GET^XPAR("ALL","OR OTHER INFO USE COLOR",1,"I")
.S RESULT("otherInfromationPanel","reportBoxOn")=+$$GET^XPAR("ALL","OR TURNED ON REPORT BOX",1,"I")
S RESULT=+$$GET^XPAR("ALL","OR OTHER INFO ON",1,"I")
S RESULT=RESULT_U_+$$GET^XPAR("ALL","OR OTHER INFO USE COLOR",1,"I")
S RESULT=RESULT_U_+$$GET^XPAR("ALL","OR TURNED ON REPORT BOX",1,"I")
Q
;
DETAIL(RESULT,DFN,TYPE) ;
N RIEN,SUB,TEMP
S SUB="ORWOTHER DETAILS"
K ^TMP(SUB,$J)
S RESULT=$NA(^TMP(SUB,$J))
S RIEN=+$$GET^XPAR("ALL","OR OTHER INFO REMINDER",1,"I")
;
I RIEN=0 S ^TMP(SUB,$J,1,0)="No Reminder definition is defined" Q
I TYPE<1 S ^TMP(SUB,$J,1,0)="No identifer defined" Q
I DFN<1 S ^TMP(SUB,$J,1,0)="Non-existent patient" Q
I '$D(^DPT(DFN)) S ^TMP(SUB,$J,1,0)="Non-existent patient" Q
S TEMP=$$CLICKTEXT^PXRMCOVID19(SUB,RIEN,DFN,TYPE)
I TEMP'=1 S ^TMP(SUB,$J,1,0)=$P(TEMP,U,2) Q
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWOTHER 1294 printed Dec 13, 2024@02:36:56 Page 2
ORWOTHER ;SLC/AGP - Other Information Panel RPC ;06/03/2020
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**485,377,531**;Dec 17, 1997;Build 17
+2 ;
+3 ;
+4 ; Reference to ^PXRMCOVID19 supported by ICR #7146
+5 ;
+6 ;
SHWOTHER(RESULT,USER) ;
+1 IF $$PATCH^XPDUTL("OR*3.0*377")
Begin DoDot:1
+2 SET RESULT("otherInfromationPanel","turnedOn")=+$$GET^XPAR("ALL","OR OTHER INFO ON",1,"I")
+3 SET RESULT("otherInfromationPanel","useColor")=+$$GET^XPAR("ALL","OR OTHER INFO USE COLOR",1,"I")
+4 SET RESULT("otherInfromationPanel","reportBoxOn")=+$$GET^XPAR("ALL","OR TURNED ON REPORT BOX",1,"I")
End DoDot:1
QUIT
+5 SET RESULT=+$$GET^XPAR("ALL","OR OTHER INFO ON",1,"I")
+6 SET RESULT=RESULT_U_+$$GET^XPAR("ALL","OR OTHER INFO USE COLOR",1,"I")
+7 SET RESULT=RESULT_U_+$$GET^XPAR("ALL","OR TURNED ON REPORT BOX",1,"I")
+8 QUIT
+9 ;
DETAIL(RESULT,DFN,TYPE) ;
+1 NEW RIEN,SUB,TEMP
+2 SET SUB="ORWOTHER DETAILS"
+3 KILL ^TMP(SUB,$JOB)
+4 SET RESULT=$NAME(^TMP(SUB,$JOB))
+5 SET RIEN=+$$GET^XPAR("ALL","OR OTHER INFO REMINDER",1,"I")
+6 ;
+7 IF RIEN=0
SET ^TMP(SUB,$JOB,1,0)="No Reminder definition is defined"
QUIT
+8 IF TYPE<1
SET ^TMP(SUB,$JOB,1,0)="No identifer defined"
QUIT
+9 IF DFN<1
SET ^TMP(SUB,$JOB,1,0)="Non-existent patient"
QUIT
+10 IF '$DATA(^DPT(DFN))
SET ^TMP(SUB,$JOB,1,0)="Non-existent patient"
QUIT
+11 SET TEMP=$$CLICKTEXT^PXRMCOVID19(SUB,RIEN,DFN,TYPE)
+12 IF TEMP'=1
SET ^TMP(SUB,$JOB,1,0)=$PIECE(TEMP,U,2)
QUIT
+13 QUIT
+14 ;
