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

RORX013.m

Go to the documentation of this file.
  1. RORX013 ;HOIFO/SG - DIAGNOSIS CODES REPORT ;6/21/06 3:05pm
  1. ;;1.5;CLINICAL CASE REGISTRIES;**1,19,21,31,34**;Feb 17, 2006;Build 45
  1. ;
  1. ;******************************************************************************
  1. ;******************************************************************************
  1. ; --- ROUTINE MODIFICATION LOG ---
  1. ;
  1. ;PKG/PATCH DATE DEVELOPER MODIFICATION
  1. ;----------- ---------- ----------- ----------------------------------------
  1. ;ROR*1.5*19 FEB 2012 J SCOTT Support for ICD-10 Coding System.
  1. ;ROR*1.5*19 FEB 2012 J SCOTT Change entry point ICD9LST to ICDLST.
  1. ;ROR*1.5*21 SEP 2013 T KOPP Add ICN column if Additional Identifier
  1. ; requested.
  1. ;ROR*1.5*31 MAY 2017 M FERRARESE Adding PACT ,PCP,and AGE/DOB as additional
  1. ; identifiers.
  1. ;ROR*1.5*34 SEP 2018 F TRAXLER Adding FUT_APPT and FUT_CLIN to HEADER
  1. ;******************************************************************************
  1. ;******************************************************************************
  1. ;
  1. Q
  1. ;
  1. ;***** OUTPUTS THE REPORT HEADER
  1. ;
  1. ; PARTAG Reference (IEN) to the parent tag
  1. ;
  1. ; Return Values:
  1. ; <0 Error code
  1. ; >0 IEN of the HEADER element
  1. ;
  1. ;;ICDLST(#,CODE,DIAG,NP,NC)
  1. ;;PATIENTS(#,NAME,LAST4,DOD,ICN,PACT,PCP,FUT_APPT,FUT_CLIN,PTICDL(CODE,DIAG,DATE,SOURCE))^I $$PARAM^RORTSK01("AGE_RANGE","TYPE")="ALL"
  1. ;;PATIENTS(#,NAME,LAST4,AGE,DOD,ICN,PACT,PCP,FUT_APPT,FUT_CLIN,PTICDL(CODE,DIAG,DATE,SOURCE))^I $$PARAM^RORTSK01("AGE_RANGE","TYPE")="AGE"
  1. ;;PATIENTS(#,NAME,LAST4,DOB,DOD,ICN,PACT,PCP,FUT_APPT,FUT_CLIN,PTICDL(CODE,DIAG,DATE,SOURCE))^I $$PARAM^RORTSK01("AGE_RANGE","TYPE")="DOB"
  1. ;
  1. N HEADER,RC
  1. S HEADER=$$HEADER^RORXU002(.RORTSK,PARTAG)
  1. Q:HEADER<0 HEADER
  1. S RC=$$TBLDEF^RORXU002("HEADER^RORX013",HEADER)
  1. Q $S(RC<0:RC,1:HEADER)
  1. ;
  1. ;
  1. ;***** COMPILES THE "DIAGNOSIS CODE" REPORT
  1. ; REPORT CODE: 013
  1. ;
  1. ; .RORTSK Task number and task parameters
  1. ;
  1. ; The ^TMP("VSIT",$J) global node is used by this function.
  1. ;
  1. ; @RORTMP@(
  1. ;
  1. ; "PAT", Number of patients
  1. ; DFN, Descriptor
  1. ; ^01: Las 4 digits of SSN
  1. ; ^02: Name
  1. ; ^03: Date of Death
  1. ; ^04: ICN
  1. ; ^05: Patient Care Team
  1. ; ^06: Primary Care Provider
  1. ; ^07: Age/DOB
  1. ; ^08: Future appt
  1. ; ^09: Future clinic
  1. ; ICDIEN, Earliest Code Descriptor
  1. ; ^01: Date
  1. ; ^02: Source ("I", "O", or "PB")
  1. ; "C") Quantity
  1. ; "I") Inpatient quantity
  1. ; "O") Outpatient quantity
  1. ; "PB") Problem List quantity
  1. ;
  1. ; "ICD", Totals
  1. ; ^01: Number of ICD codes
  1. ; ^02: Number of different codes
  1. ; ICDIEN, ICD Descriptor
  1. ; ^01: Code
  1. ; ^02: Diagnosis (current version)
  1. ; "C") Quantity
  1. ; "P") Number of unique patients
  1. ;
  1. ; Return Values:
  1. ; <0 Error code
  1. ; 0 Ok
  1. ;
  1. ICDLST(RORTSK) ;
  1. N ROREDT ; End date
  1. N RORICDL ; Prepared list of ICD codes
  1. N RORIGRP ; List of ICD groups
  1. N RORREG ; Registry IEN
  1. N RORSDT ; Start date
  1. N RORTMP ; Closed root of the temporary buffer
  1. ;
  1. N ECNT,RC,REPORT,SFLAGS,TMP
  1. S RORICDL="",(ECNT,RC)=0
  1. ;--- Root node of the report
  1. S REPORT=$$ADDVAL^RORTSK11(RORTSK,"REPORT")
  1. Q:REPORT<0 REPORT
  1. ;
  1. ;--- Get and prepare the report parameters
  1. S RORREG=$$PARAM^RORTSK01("REGIEN")
  1. S RC=$$PARAMS(REPORT,.RORSDT,.ROREDT,.SFLAGS) Q:RC<0 RC
  1. ;
  1. ;--- Report header
  1. S RC=$$HEADER(REPORT) Q:RC<0 RC
  1. S RORTMP=$$ALLOC^RORTMP()
  1. D
  1. . ;--- Query the registry
  1. . D TPPSETUP^RORTSK01(70)
  1. . S RC=$$QUERY^RORX013A(SFLAGS)
  1. . I RC Q:RC<0 S ECNT=ECNT+RC
  1. . ;--- Sort the data
  1. . D TPPSETUP^RORTSK01(10)
  1. . S RC=$$SORT^RORX013A()
  1. . I RC Q:RC<0 S ECNT=ECNT+RC
  1. . ;--- Store the results
  1. . D TPPSETUP^RORTSK01(20)
  1. . S RC=$$STORE^RORX013C(REPORT)
  1. . I RC Q:RC<0 S ECNT=ECNT+RC
  1. ;
  1. ;--- Cleanup
  1. D FREE^RORTMP(RORTMP),FREE^RORTMP(RORICDL)
  1. K ^TMP("VSIT",$J)
  1. Q $S(RC<0:RC,ECNT>0:-43,1:0)
  1. ;
  1. ;***** OUTPUTS THE PARAMETERS TO THE REPORT
  1. ;
  1. ; PARTAG Reference (IEN) to the parent tag
  1. ;
  1. ; [.STDT] Start and end dates of the report
  1. ; [.ENDT] are returned via these parameters
  1. ;
  1. ; [.FLAGS] Flags for the $$SKIP^RORXU005 are
  1. ; returned via this parameter
  1. ;
  1. ; Return Values:
  1. ; <0 Error code
  1. ; >0 IEN of the PARAMETERS element
  1. ;
  1. PARAMS(PARTAG,STDT,ENDT,FLAGS) ;
  1. N PARAMS,TMP
  1. S PARAMS=$$PARAMS^RORXU002(.RORTSK,PARTAG,.STDT,.ENDT,.FLAGS)
  1. Q:PARAMS<0 PARAMS
  1. ;--- Process the list of ICD codes
  1. S TMP=$$ICDLST^RORXU008(.RORTSK,PARAMS,.RORICDL,.RORIGRP)
  1. Q:TMP<0 TMP
  1. ;---
  1. Q PARAMS