- 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 Feb 19, 2025@00:03:28 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 ;
