©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMVER1 ;HOIFO/RM,YH,FT-ENTERED IN ERROR FOR A PATIENT & DATE RANGE ;12/12/01 12:36
Source file <GMVER1.m>
| Package | Total | Caller Graph |
|---|---|---|
| General Medical Record - Vitals | 1 | GMVER0 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SORT | ; loop through the AA x-ref and find patient entries marked as
; entered in error (i.e., node 2 exists). |
|
| ERREASON | ;ERROR REASON
|
|
| WRTDAT(TYPE,DATA) | ;
|
|
| PO2 | ||
| HT | ||
| Q | ; KILL VARIABLES
|
|
| WRT | ;
|
|
| WT | ||
| T | ||
| CVP | ||
| CG | ||
| PN | ||
| EN1(RESULT,GMVDFN,GMVBEG,GMVEND) | ; [RPC entry point]
; Returns Entered in Error records for a date range ; Input: ; RESULT = Where data is returned (closed array reference) (Required) ; GMVDFN = A pointer to the Patient file (#2) (Required) ; GMVBEG = Beginning date for all vitals ; GMVEND = Ending date for all vitals |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.5 - [#120.5] | EN1+19, SORT+3, SORT+5, WRT+2, WRT+3, WRT+11, WRT+22, WRT+25, WRT+26, WRT+34 , WRT+45, ERREASON+1, ERREASON+3 |
| ^GMRD(120.51 - [#120.51] | WRT+5, WRT+28, WRT+50 |
| ^TMP($J | EN1+18!, EN1+21, Q+2!, Q+3*, Q+4, SORT+5*, WRT+1, WRT+56*, WRT+57*, WRT+66* , WRT+76* |
| Name | Line Occurrences |
|---|---|
| $$WRTDAT | WRT+9, WRT+32 |
| @( | WRTDAT+1 |
| ERREASON | WRT+47 |
| SORT | EN1+19 |
| WRT | EN1+21 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | WRT+2, WRT+26, WRT+50 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BADRATE | Q+1!, WRT+71*, WRT+72 |
| DATA | WRTDAT~, WRTDAT+1, WRTDAT+2, T*, WT*, HT*, CG*, CVP*, PO2*, PN* , PN+1*, PN+2* |
| GER | ERREASON+2*, ERREASON+3*, ERREASON+7! |
| GER(1 | ERREASON+3*, ERREASON+4 |
| GER(2 | ERREASON+4*, ERREASON+5 |
| GMRDAT | Q+1! |
| GMRDAT("BAD" | WRT+26*, WRT+29, WRT+46*, WRT+49, WRT+69, WRT+71 |
| GMRDAT("GOOD" | WRT+2*, WRT+6, WRT+23*, WRT+59, WRT+61 |
| GMRDATE | EN1+20*, EN1+21*, Q+1!, WRT+1, WRT+48, WRT+56, WRT+57, WRT+66, WRT+76 |
| GMRP | Q+1! |
| GMRPR | Q+1! |
| GMRPR("ENUS" | WRT+49*, WRT+55 |
| GMRPR("TYPE" | WRT+50*, WRT+54 |
| GMRPR("VSDT" | WRT+48*, WRT+53 |
| GMRQUAL | Q+2! |
| GMRTYPE | Q+1! |
| GMRVARY | Q+2!, WRT+12!, WRT+13*, WRT+14, WRT+15, WRT+35!, WRT+36*, WRT+37, WRT+38 |
| GMRVDA | EN1+21*, Q+1!, SORT+4*, SORT+5*, WRT+1, WRT+25, WRT+26, WRT+34, WRT+37, WRT+38 , WRT+45, WRT+56, WRT+57, WRT+66, WRT+69, WRT+76, ERREASON+1, ERREASON+3 |
| GMRVDATE | EN1+19*, Q+1!, SORT+5 |
| GMRVDT | EN1+19*, Q+1!, SORT+3, SORT+5 |
| GMRVERR | Q+1!, SORT+2*, SORT+3*, SORT+5, WRT+1*, WRT+2, WRT+3, WRT+11, WRT+14, WRT+15 , WRT+22, WRT+59 |
| GMRVITY | EN1+17*, EN1+19*, EN1+21*, Q+1!, SORT+3, SORT+5, WRT+1, WRT+5, WRT+14, WRT+28 , WRT+37, WRT+50, WRT+56, WRT+57, WRT+66, WRT+76 |
| GMRVPO | Q+2!, WRT+22*, WRT+23, WRT+45*, WRT+46 |
| GMRVX | Q+1!, WRT+4!, WRT+5*, WRT+9, WRT+16, WRT+18, WRT+23, WRT+27!, WRT+28*, WRT+32 , WRT+39, WRT+41, WRT+46, WRT+60, WRT+70 |
| GMRVX(0 | WRT+6*, WRT+7, WRT+9*, WRT+19, WRT+20, WRT+23, WRT+27!, WRT+29*, WRT+30, WRT+32* , WRT+42, WRT+43, WRT+46 |
| GMRVX(1 | WRT+8*, WRT+19*, WRT+20*, WRT+23, WRT+27!, WRT+31*, WRT+42*, WRT+43*, WRT+46 |
| GMRZZ | Q+2!, WRT+10*, WRT+15*, WRT+16*, WRT+19, WRT+20, WRT+23, WRT+33*, WRT+38*, WRT+39* , WRT+42, WRT+43, WRT+46 |
| GMVBEG | EN1~, EN1+19, Q+1! |
| GMVDFN | EN1~, EN1+19, SORT+3, SORT+5 |
| GMVEND | EN1~, EN1+19, Q+1! |
| GMVNODE | Q+2!, WRT+51*, WRT+53*, WRT+54*, WRT+55*, WRT+56, WRT+58*, WRT+59*, WRT+62*, WRT+65 , WRT+66, WRT+68*, WRT+69*, WRT+72*, WRT+75, WRT+76 |
| GMVSPACE | Q+2!, WRT+52*, WRT+54, WRT+55 |
| GOODRATE | Q+1!, WRT+61*, WRT+62 |
| GREASON | Q+2!, WRT+47*, WRT+57, ERREASON+5* |
| RESULT | EN1~, Q+4* |
| TYPE | WRTDAT~, WRTDAT+1 |
| U | WRT+49, WRT+61, WRT+71 |