©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
DGRPU1 ;ALB/REW CUSTOM LOAD/EDIT SCREEN UTILITIES ;9-FEB-92
Source file <DGRPU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QNODE | ;;NODES OF THE PATIENT FILE
|
|
| QTQ | ||
| MNODE | ;;MULTIPLES OF THE PATIENT FILE
|
|
| QUES(DFN,DGQCODE) | ; EDIT SPECIFIC PORTIONS OF REGISTRATION DATA
|
|
| QNUM | ;REFERENCE NUMBERS USED TO SET DGDR FOR USE BY ^DGRPE
|
|
| QTE | ||
| QDES | ;MNEMONIC - DGQCODE should match with one of these
|
| Name | Field # of Occurrence |
|---|---|
| ^DGRPE | QUES+32 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | QUES+29, QUES+31, QUES+33, QUES+37, QUES+39, QUES+40, QUES+41 |
| Name | Line Occurrences |
|---|---|
| QTE | QUES+22, QUES+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %Y | QUES+20~ |
| D | QUES+19~ |
| D0 | QUES+19~ |
| DFN | QUES~, QUES+22, QUES+29, QUES+31, QUES+33, QUES+37, QUES+41 |
| >> DGCHANGE | QUES+21*, QUES+33*, QUES+34, QUES+35, QUES+36, QUES+37*, QUES+38, QUES+39, QUES+40, QUES+41* |
| DGCODE | QUES+19~, QUES+24*, QUES+25 |
| DGDR | QUES+19~, QUES+26*, QUES+27 |
| >> DGERR | QUES+21*, QTE* |
| DGNODE | QUES+19~, QUES+29*, QUES+31*, QUES+33*, QUES+34*, QUES+35, QUES+36, QUES+37, QUES+39, QUES+40 , QUES+41 |
| DGPC | QUES+19~, QUES+24*, QUES+26, QUES+28, QUES+30 |
| DGPTND | QUES+19~ |
| DGPTND( | QUES+29*, QUES+33 |
| DGPTNDM | QUES+20~ |
| DGPTNDM( | QUES+31*, QUES+34, QUES+35, QUES+36, QUES+37, QUES+41 |
| DGQ | QUES+19~, QUES+23*, QUES+24 |
| DGQCODE | QUES~, QUES+22, QUES+23, QUES+24 |
| DGQNODES | QUES+19~, QUES+28*, QUES+29, QUES+30*, QUES+31 |
| DGRPS | QUES+19~, QUES+21*, QUES+27*, QTE |
| DGX | QUES+19~, QUES+23* |
| DI | QUES+19~ |
| DIC | QUES+19~ |
| DQ | QUES+20~ |
| N | QUES+20~, QUES+29*, QUES+31* |
| U | QUES+23, QUES+24, QUES+26, QUES+28, QUES+30 |
| X | QUES+20~, QUES+35*, QUES+36, QUES+37, QUES+39*, QUES+40, QUES+41 |
| Y | QUES+20~, QUES+36*, QUES+37, QUES+40*, QUES+41 |
| Name | Field # of Occurrence |
|---|---|
| $T(MNODE+DGX | QUES+30 |
| $T(QDES+DGX | QUES+23 |
| $T(QNODE+DGX | QUES+28 |
| $T(QNUM+DGX | QUES+26 |