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

RORX016C.m

Go to the documentation of this file.
  1. RORX016C ;HCIOFO/BH,SG - OUTPATIENT UTILIZATION (STORE) ;9/14/05 9:43am
  1. ;;1.5;CLINICAL CASE REGISTRIES;**21,31**;Feb 17, 2006;Build 62
  1. ;
  1. Q
  1. ;
  1. ;******************************************************************************
  1. ; --- ROUTINE MODIFICATION LOG ---
  1. ;
  1. ;PKG/PATCH DATE DEVELOPER MODIFICATION
  1. ;----------- ---------- ----------- ----------------------------------------
  1. ;ROR*1.5*21 SEP 2013 T KOPP Added ICN as last report column if
  1. ; additional identifier option selected
  1. ;ROR*1.5*31 MAY 2017 M FERRARESE Adding PACT, PCP, and AGE/DOB as additional
  1. ; identifiers.
  1. ;******************************************************************************
  1. ;
  1. ;***** HIGHEST UTILIZATION
  1. ;
  1. ; PRNTELMT IEN of the parent element
  1. ;
  1. ; RORNODE Closed root of the section in the temporary global
  1. ;
  1. ; Return Values:
  1. ; <0 Error code
  1. ; 0 Ok
  1. ;
  1. HIGHUTIL(PRNTELMT,RORNODE) ;
  1. N BUF,COUNT,DFN,I,ITEM,NAME,NUM,RC,RORMAXUT,RORTCNT,SECTION,TABLE,TMP,AGETYPE
  1. S RORMAXUT=$$PARAM^RORTSK01("MAXUTNUM")
  1. Q:RORMAXUT'>0 0
  1. S SECTION=$$ADDVAL^RORTSK11(RORTSK,"HIGHUTIL",,PRNTELMT)
  1. Q:SECTION<0 SECTION
  1. S (RC,RORTCNT)=0
  1. S AGETYPE=$$PARAM^RORTSK01("AGE_RANGE","TYPE")
  1. ;--- Stops
  1. I $D(@RORNODE@("OPS1"))>1 D Q:RC<0 RC
  1. . S TABLE=$$ADDVAL^RORTSK11(RORTSK,"HU_STOPS",,SECTION)
  1. . I TABLE<0 S RC=TABLE Q
  1. . D ADDATTR^RORTSK11(RORTSK,TABLE,"TABLE","HU_STOPS")
  1. . S RORTCNT=RORTCNT+1
  1. . ;---
  1. . S NUM="",(COUNT,RC)=0
  1. . F S NUM=$O(@RORNODE@("OPS1",NUM),-1) Q:NUM="" D Q:RC
  1. . . S NAME=""
  1. . . F S NAME=$O(@RORNODE@("OPS1",NUM,NAME)) Q:NAME="" D Q:RC
  1. . . . S DFN=""
  1. . . . F S DFN=$O(@RORNODE@("OPS1",NUM,NAME,DFN)) Q:DFN="" D Q:RC
  1. . . . . S COUNT=COUNT+1 I COUNT>RORMAXUT S RC=1 Q
  1. . . . . S BUF=$G(@RORNODE@("OP",DFN))
  1. . . . . S ITEM=$$ADDVAL^RORTSK11(RORTSK,"PATIENT",,TABLE)
  1. . . . . D ADDVAL^RORTSK11(RORTSK,"NAME",NAME,ITEM,1)
  1. . . . . D ADDVAL^RORTSK11(RORTSK,"LAST4",$P(BUF,U,3),ITEM,2)
  1. . . . . I AGETYPE'="ALL" D ADDVAL^RORTSK11(RORTSK,AGETYPE,$P(BUF,U,8),ITEM,1)
  1. . . . . D ADDVAL^RORTSK11(RORTSK,"NV",+$P(BUF,U,4),ITEM,3)
  1. . . . . D ADDVAL^RORTSK11(RORTSK,"NSC",NUM,ITEM,3)
  1. . . . . D ADDVAL^RORTSK11(RORTSK,"NDS",+$P(BUF,U,2),ITEM,3)
  1. . . . . I $$PARAM^RORTSK01("PATIENTS","ICN") D
  1. . . . . . D ADDVAL^RORTSK11(RORTSK,"ICN",$P(BUF,U,5),ITEM,1)
  1. . . . . I $$PARAM^RORTSK01("PATIENTS","PACT") D
  1. . . . . . D ADDVAL^RORTSK11(RORTSK,"PACT",$P(BUF,U,6),ITEM,1)
  1. . . . . I $$PARAM^RORTSK01("PATIENTS","PCP") D
  1. . . . . . D ADDVAL^RORTSK11(RORTSK,"PCP",$P(BUF,U,7),ITEM,1)
  1. ;--- Disable the empty section
  1. D:RORTCNT'>0 UPDVAL^RORTSK11(RORTSK,SECTION,"",,1)
  1. Q 0
  1. ;
  1. ;***** STORES THE REPORT DATA
  1. ;
  1. ; REPORT IEN of the REPORT element
  1. ;
  1. ; Return Values:
  1. ; <0 Error code
  1. ; 0 Ok
  1. ; >0 Number of non-fatal errors
  1. ;
  1. STORE(REPORT) ;
  1. N RORSONLY ; Output summary only
  1. ;
  1. N ECNT,NODE,RC,TMP
  1. S NODE=$NA(^TMP("RORX016",$J))
  1. Q:$D(@NODE)<10 0
  1. S RORSONLY=$$SMRYONLY^RORXU006(),(ECNT,RC)=0
  1. ;--- Outpatients
  1. S RC=$$LOOP^RORTSK01(0) Q:RC<0 RC
  1. S RC=$$STOREOP(REPORT,NODE)
  1. I RC Q:RC<0 RC S ECNT=ECNT+1
  1. ;--- Highest utilization
  1. S RC=$$LOOP^RORTSK01(0.5) Q:RC<0 RC
  1. S RC=$$HIGHUTIL(REPORT,NODE)
  1. I RC Q:RC<0 RC S ECNT=ECNT+1
  1. ;---
  1. Q ECNT
  1. ;
  1. ;***** OUTPATIENT DATA
  1. ;
  1. ; PRNTELMT IEN of the parent element
  1. ;
  1. ; NODE Closed root of the category section
  1. ; in the temporary global
  1. ;
  1. ; Return Values:
  1. ; <0 Error code
  1. ; 0 Ok
  1. ;
  1. STOREOP(PRNTELMT,NODE) ;
  1. Q:$D(@NODE@("OP"))<10 0
  1. N ITEM,NSC,NV,RC,SECTION,STOP,TABLE,TMP
  1. S SECTION=$$ADDVAL^RORTSK11(RORTSK,"OUTPATIENTS",,PRNTELMT)
  1. Q:SECTION<0 SECTION
  1. S RC=0
  1. ;--- Stop codes
  1. I $D(@NODE@("OPS1"))>1 D Q:RC<0 RC
  1. . S TABLE=$$ADDVAL^RORTSK11(RORTSK,"STOPS",,SECTION)
  1. . I TABLE<0 S RC=TABLE Q
  1. . D ADDATTR^RORTSK11(RORTSK,TABLE,"TABLE","STOPS")
  1. . S NSC=""
  1. . F S NSC=$O(@NODE@("OPS1",NSC),-1) Q:NSC="" D
  1. . . S ITEM=$$ADDVAL^RORTSK11(RORTSK,"ITEM",,TABLE)
  1. . . D ADDVAL^RORTSK11(RORTSK,"NP",$P(@NODE@("OPS1",NSC),U),ITEM,3)
  1. . . D ADDVAL^RORTSK11(RORTSK,"NSC",NSC,ITEM,3)
  1. ;--- Clinics
  1. I $D(@NODE@("OPS"))>1 D Q:RC<0 RC
  1. . S TABLE=$$ADDVAL^RORTSK11(RORTSK,"CLINICS",,SECTION)
  1. . I TABLE<0 S RC=TABLE Q
  1. . D ADDATTR^RORTSK11(RORTSK,TABLE,"TABLE","CLINICS")
  1. . S STOP=""
  1. . F S STOP=$O(@NODE@("OPS",STOP)) Q:STOP="" D
  1. . . S ITEM=$$ADDVAL^RORTSK11(RORTSK,"CLINIC",,TABLE)
  1. . . D ADDVAL^RORTSK11(RORTSK,"STOP",STOP,ITEM,3)
  1. . . D ADDVAL^RORTSK11(RORTSK,"NAME",$P(@NODE@("OPS",STOP),U),ITEM,1)
  1. . . D ADDVAL^RORTSK11(RORTSK,"NP",+$G(@NODE@("OPS",STOP,"P")),ITEM,3)
  1. . . S TMP=+$G(@NODE@("OPS",STOP,"V"))
  1. . . D ADDVAL^RORTSK11(RORTSK,"NV",$J(TMP,0,2),ITEM,3)
  1. . . D ADDVAL^RORTSK11(RORTSK,"NSC",+$G(@NODE@("OPS",STOP,"S")),ITEM,3)
  1. ;--- Summary
  1. D ADDVAL^RORTSK11(RORTSK,"NP",+$G(@NODE@("OP")),SECTION)
  1. D ADDVAL^RORTSK11(RORTSK,"NV",+$G(@NODE@("OPV")),SECTION)
  1. D ADDVAL^RORTSK11(RORTSK,"NSC",+$G(@NODE@("OPS")),SECTION)
  1. Q 0