©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
ORDVU ; slc/dcm - OE/RR Report Extracts ; 08 May 2001 13:32PM
Source file <ORDVU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SIDT(X) | ||
| REGDTM4(X) | ;Receives X in internal date.time, and returns X in MM/DD/YYYY TT:TT
; DBIA 10103 call $$FMTE^XLFDT |
|
| DATE(X) | ;convert fm date to readable format with 4 digits in year.
|
|
| REGDTM(X) | ||
| DATEMMM(X) | ;convert date from MMM DD, YYYY to MM/DD/YYYY format
; e.g. convert JUL 04, 1998 to 07/04/1998 |
|
| MERG(SOURCE,TARGET,MULT) | ;merge and format WP fields
|
|
| REGDT(X) | ||
| REGDT4(X) | ||
| SPMRG(SOURCE,TARGET,ID) | ;merge and format WP fields
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | DATEMMM+6! |
| Name | Line Occurrences |
|---|---|
| $$DATE | DATEMMM+8 |
| $$REGDTM4 | DATE+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | SPMRG+6~, SPMRG+10*, SPMRG+11 |
| ID | SPMRG~, SPMRG+11 |
| MM | SIDT+1~, SIDT+4*, SIDT+5 |
| MON | SIDT+1~, SIDT+3*, SIDT+4 |
| MULT | MERG~, MERG+8*, MERG+13, MERG+14 |
| ORA | DATEMMM+4~, DATEMMM+5, DATEMMM+7*, DATEMMM+8 |
| ORI | MERG+7~, MERG+12*, MERG+13, MERG+15, MERG+16 |
| ORSUB | MERG+7~, MERG+10*, MERG+12*, MERG+13, MERG+15, MERG+16 |
| ORX | DATE+1~, DATE+2* |
| SOURCE | MERG~, MERG+9, MERG+10, MERG+11*, MERG+12, SPMRG~, SPMRG+7, SPMRG+8, SPMRG+9*, SPMRG+10 |
| SUB | SPMRG+6~, SPMRG+8*, SPMRG+10*, SPMRG+11 |
| TARGET | MERG~, MERG+13, MERG+15, MERG+16, SPMRG~, SPMRG+11 |
| U | SIDT+4 |
| X | DATEMMM~, DATEMMM+3, DATEMMM+5, DATE~, DATE+2, DATE+3*, DATE+4, REGDT~, REGDT+2, REGDT4~ , REGDT4+2, REGDTM~, REGDTM+2, REGDTM4~, REGDTM4+2, SIDT~, SIDT+2*, SIDT+4, SIDT+5 |
| YY | DATE+1~ |