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