ORWOTHER.m

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 ---ORWOTHER   1294     printed  Apr 09, 2024@21:40:33                                                                                                                                                                                                    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      ;