ROR01 ;HCIOFO/SG - CLINICAL CASE REGISTRIES (TEMP. GLOBALS) ; 4/23/07 3:18pm
;;1.5;CLINICAL CASE REGISTRIES;**1,3**;Feb 17, 2006;Build 7
;
; ^TMP($J,"RORTMP-"_) - TEMPORARY STORAGE (see the ^RORTMP routine)
;
; ^TMP($J,"RORTMP-0", Indexes of allocated buffers
; i) ""
;
; ^TMP($J,"RORTMP-"_i, Allocated buffers
; ...)
;
; ^TMP("RORACK") ------ CONTROL DATA OF ACKNOWLEDGEMENT PROCESSING
;
; ^TMP("RORACK",$J,
; "PR",IEN) List of IENs of registry records that
; acknowledgements have been processed for.
;
; ^TMP("RORHDT") ------ CONTROL DATA OF HISTORICAL DATA EXTRACTION
;
; ^TMP("RORHDT",$J,
; "PR", List of IENs of registry records processed
; in the re-extraction section of function
; $$EXTRACT^RORHDT04.
; IEN) Return code of the record processing. If this
; value is less than zero, data extraction was
; not successful again.
;
; ^TMP("RORPTF") ------ TEMPOPARY PTF INDEX FOR DATA EXTRACTION
;
; ^TMP("RORPTF",$J,
; "DTF", List of already indexed time frames of
; the PTF CLOSE OUT file (#45.84).
; StartDate) StartDate^EndDate
; "PDI", Temporary PTF index itself
; DFN,PTFIEN) ""
;
; ^TMP("RORTMP",$J) --- TEMPORARY STORAGE
;
; ^TMP("RORUPD") ------ REGISTRY UPDATE TEMPORARY DATA
;
; ^TMP("RORUPD",$J,
;
; 1,File#,
; "S",Rule Name) List of selection rules
; "F",DataCode, List of data elements to load
; "E") If expression implementing the selection
; rule references an external value of the
; element, the "E" sub-node will be defined.
; "I") If expression implementing the selection
; rule references an internal value of the
; element, the "I" sub-node will be defined.
;
; 2,Registry#) Registry Name
;
; 3,Rule Name, Selection rule descriptor
; ^1: Rule#
; ^2: File Number
; ^3: 1 if already processed, otherwise
; empty string
; ^4: 1 if registry should be updated (in
; case of matched condition, of course)
; 1) MUMPS function entry point
; 2,Registry#) List of affected registries
; 3,Rule Name) List of rules that this rule depend on
;
; 4,LabSearch#) List of Lab search IENs
;
; "LS",
; Result Code,
; LabSearch#,
; Seq#) Condition to check the result
; ^1: Indicator
; ^2: Indicated Value
;
; "U",Patient#, This node is defined if the patient has been
; processed
; 2,Registry#, This node is defined if the registry should
; be updated
; Rule#) Reference to a top-level selection rule
; ^01: Trigger date of the rule
; ^02: Institution IEN
;
; ^XTMP("RORLOCK") ---- LIST OF LOCK DESCRIPTORS
;
; ^XTMP("RORLOCK",
; NodeNdx) Lock Descriptor (see ^RORLOCK for details)
; ^01: Date/Time (FileMan)
; ^02: User/Process name
; ^03: User IEN (DUZ)
; ^04: $JOB
; ^05: Task number
; ^06: Lock counter
;
; ^XTMP("RORTHREAD") -- RPC THREAD DESCRIPTORS
;
; ^XTMP("RORTHREAD",
;
; 0) Node descriptor
; ^1: Purge date (FileMan)
; ^2: Create date (FileMan)
; ^3: Description
;
; Task#, Task number returned by the Taskman
; "RESULTS",
; i, Line of thread results (i>0)
; j) Continuation of the line (j>0)
;
; ^XTMP("RORUPD"_) ---- REGISTRY UPDATE TEMPORARY DATA (MULTITASK)
;
; If the registry update starts in the
; multitask mode, all temporary data from the
; ^TMP("RORUPD",$J) node is merged to this
; node so that it will be available for all
; registry update subtasks.
;
; ^XTMP("RORUPDJ"_$J,
; If the regular registry update is run in the
; multitask mode, the ^XTMP("RORUPDJ"_$J) node
; is used. $J is the job number of the main
; registry update task.
;
; ^XTMP("RORUPDR"_Registry#,
; During the initial registry population
; (performed by the post-install routines),
; the ^XTMP("RORUPDR"_Registry#) node is used.
; The list of processed patients (the "U"
; subscript) is used to restart the process
; after an error or a crash.
;
; 0) Node descriptor
; ^1: purge date (FileMan)
; ^2: create date (FileMan)
; ^3: description
;
; "T",Task#) This node is LOCKed while the (sub)task is
; running (subscript of the main task is 0).
;
; Otherwise, "S" means that the subtask has
; been scheduled but not started yet.
;
; A negative value of the non-locked node
; represents the error code (for example,
; -60 means that the subtask has crashed).
;
; Non-negative value of the node means that
; the subtask has been completed. The value
; has the following structure:
; ^1: Number of processed patients
; ^2: Number of patients processed with
; errors
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HROR01 6390 printed Apr 09, 2024@20:49:40 Page 2
ROR01 ;HCIOFO/SG - CLINICAL CASE REGISTRIES (TEMP. GLOBALS) ; 4/23/07 3:18pm
+1 ;;1.5;CLINICAL CASE REGISTRIES;**1,3**;Feb 17, 2006;Build 7
+2 ;
+3 ; ^TMP($J,"RORTMP-"_) - TEMPORARY STORAGE (see the ^RORTMP routine)
+4 ;
+5 ; ^TMP($J,"RORTMP-0", Indexes of allocated buffers
+6 ; i) ""
+7 ;
+8 ; ^TMP($J,"RORTMP-"_i, Allocated buffers
+9 ; ...)
+10 ;
+11 ; ^TMP("RORACK") ------ CONTROL DATA OF ACKNOWLEDGEMENT PROCESSING
+12 ;
+13 ; ^TMP("RORACK",$J,
+14 ; "PR",IEN) List of IENs of registry records that
+15 ; acknowledgements have been processed for.
+16 ;
+17 ; ^TMP("RORHDT") ------ CONTROL DATA OF HISTORICAL DATA EXTRACTION
+18 ;
+19 ; ^TMP("RORHDT",$J,
+20 ; "PR", List of IENs of registry records processed
+21 ; in the re-extraction section of function
+22 ; $$EXTRACT^RORHDT04.
+23 ; IEN) Return code of the record processing. If this
+24 ; value is less than zero, data extraction was
+25 ; not successful again.
+26 ;
+27 ; ^TMP("RORPTF") ------ TEMPOPARY PTF INDEX FOR DATA EXTRACTION
+28 ;
+29 ; ^TMP("RORPTF",$J,
+30 ; "DTF", List of already indexed time frames of
+31 ; the PTF CLOSE OUT file (#45.84).
+32 ; StartDate) StartDate^EndDate
+33 ; "PDI", Temporary PTF index itself
+34 ; DFN,PTFIEN) ""
+35 ;
+36 ; ^TMP("RORTMP",$J) --- TEMPORARY STORAGE
+37 ;
+38 ; ^TMP("RORUPD") ------ REGISTRY UPDATE TEMPORARY DATA
+39 ;
+40 ; ^TMP("RORUPD",$J,
+41 ;
+42 ; 1,File#,
+43 ; "S",Rule Name) List of selection rules
+44 ; "F",DataCode, List of data elements to load
+45 ; "E") If expression implementing the selection
+46 ; rule references an external value of the
+47 ; element, the "E" sub-node will be defined.
+48 ; "I") If expression implementing the selection
+49 ; rule references an internal value of the
+50 ; element, the "I" sub-node will be defined.
+51 ;
+52 ; 2,Registry#) Registry Name
+53 ;
+54 ; 3,Rule Name, Selection rule descriptor
+55 ; ^1: Rule#
+56 ; ^2: File Number
+57 ; ^3: 1 if already processed, otherwise
+58 ; empty string
+59 ; ^4: 1 if registry should be updated (in
+60 ; case of matched condition, of course)
+61 ; 1) MUMPS function entry point
+62 ; 2,Registry#) List of affected registries
+63 ; 3,Rule Name) List of rules that this rule depend on
+64 ;
+65 ; 4,LabSearch#) List of Lab search IENs
+66 ;
+67 ; "LS",
+68 ; Result Code,
+69 ; LabSearch#,
+70 ; Seq#) Condition to check the result
+71 ; ^1: Indicator
+72 ; ^2: Indicated Value
+73 ;
+74 ; "U",Patient#, This node is defined if the patient has been
+75 ; processed
+76 ; 2,Registry#, This node is defined if the registry should
+77 ; be updated
+78 ; Rule#) Reference to a top-level selection rule
+79 ; ^01: Trigger date of the rule
+80 ; ^02: Institution IEN
+81 ;
+82 ; ^XTMP("RORLOCK") ---- LIST OF LOCK DESCRIPTORS
+83 ;
+84 ; ^XTMP("RORLOCK",
+85 ; NodeNdx) Lock Descriptor (see ^RORLOCK for details)
+86 ; ^01: Date/Time (FileMan)
+87 ; ^02: User/Process name
+88 ; ^03: User IEN (DUZ)
+89 ; ^04: $JOB
+90 ; ^05: Task number
+91 ; ^06: Lock counter
+92 ;
+93 ; ^XTMP("RORTHREAD") -- RPC THREAD DESCRIPTORS
+94 ;
+95 ; ^XTMP("RORTHREAD",
+96 ;
+97 ; 0) Node descriptor
+98 ; ^1: Purge date (FileMan)
+99 ; ^2: Create date (FileMan)
+100 ; ^3: Description
+101 ;
+102 ; Task#, Task number returned by the Taskman
+103 ; "RESULTS",
+104 ; i, Line of thread results (i>0)
+105 ; j) Continuation of the line (j>0)
+106 ;
+107 ; ^XTMP("RORUPD"_) ---- REGISTRY UPDATE TEMPORARY DATA (MULTITASK)
+108 ;
+109 ; If the registry update starts in the
+110 ; multitask mode, all temporary data from the
+111 ; ^TMP("RORUPD",$J) node is merged to this
+112 ; node so that it will be available for all
+113 ; registry update subtasks.
+114 ;
+115 ; ^XTMP("RORUPDJ"_$J,
+116 ; If the regular registry update is run in the
+117 ; multitask mode, the ^XTMP("RORUPDJ"_$J) node
+118 ; is used. $J is the job number of the main
+119 ; registry update task.
+120 ;
+121 ; ^XTMP("RORUPDR"_Registry#,
+122 ; During the initial registry population
+123 ; (performed by the post-install routines),
+124 ; the ^XTMP("RORUPDR"_Registry#) node is used.
+125 ; The list of processed patients (the "U"
+126 ; subscript) is used to restart the process
+127 ; after an error or a crash.
+128 ;
+129 ; 0) Node descriptor
+130 ; ^1: purge date (FileMan)
+131 ; ^2: create date (FileMan)
+132 ; ^3: description
+133 ;
+134 ; "T",Task#) This node is LOCKed while the (sub)task is
+135 ; running (subscript of the main task is 0).
+136 ;
+137 ; Otherwise, "S" means that the subtask has
+138 ; been scheduled but not started yet.
+139 ;
+140 ; A negative value of the non-locked node
+141 ; represents the error code (for example,
+142 ; -60 means that the subtask has crashed).
+143 ;
+144 ; Non-negative value of the node means that
+145 ; the subtask has been completed. The value
+146 ; has the following structure:
+147 ; ^1: Number of processed patients
+148 ; ^2: Number of patients processed with
+149 ; errors
+150 ;
+151 QUIT
