BDMVRL1 ; cmi/anch/maw - VIEW RECORD ACTION ;
Source file <BDMVRL1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PAUSE | ; -- ask user to press RETURN when ready | |
| OERR | ;EP; -- view lab/rad results | |
| SP(N) | ; -- SUBRTN to pad N number of spaces | |
| MEDDISP | ;DISPLAY EACH V MED ENTRY | |
| PAD(D,L) | ; -- SUBRTN to pad length of data ; -- D=data L=length | |
| Z(X) | ;SET TMP NODE | |
| MP | ;EP; -- view medication profile | |
| MP1 | ;EP;TO PRINT DIABETES MEDS ONLY | |
| SURGP | ;; | |
| MINIT | ;EP;DISPLAY MED FROM THE V MED FILE | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVMED - [#9000010.14] | MINIT+9 | 
| ^AUPNVMED("AA" | MINIT+6, MINIT+8 | 
| ^DD("DD" | MEDDISP+10 | 
| ^PSDRUG - [#50] | MEDDISP+4 | 
| ^TMP("BDMVR" | MINIT+2!, Z+2* | 
| Name | Line Occurrences | 
|---|---|
| $$PAD | SP+1 | 
| MEDDISP | MINIT+11 | 
| Z | MEDDISP+12, MEDDISP+15 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> BDMMEDS( | MINIT+10 | 
| BDMONLY | MP+1!, MP1+1*, MP1+4!, MINIT+10 | 
| >> BDMQUIT | OERR+2, MINIT+6, MINIT+8 | 
| >> BDMVALM | MP+2*, MP+3, MP1+2*, MP1+3 | 
| D | PAD~, PAD+2 | 
| DATE | MINIT+4~, MINIT+5*, MINIT+6*, MINIT+8, MEDDISP+2 | 
| >> DFN | MINIT+6, MINIT+8 | 
| L | PAD~, PAD+2 | 
| N | SP~, SP+1 | 
| U | MEDDISP+4, MEDDISP+5, MEDDISP+6, MEDDISP+7, MEDDISP+8, MEDDISP+9, MEDDISP+14 | 
| VALMCNT | MINIT+1!, MINIT+3*, Z+1*, Z+2 | 
| VMDA | MINIT+4~, MINIT+7*, MINIT+8*, MINIT+9 | 
| X | MINIT+4~, MINIT+9*, MINIT+10, MEDDISP+4, MEDDISP+5, MEDDISP+6, MEDDISP+7, MEDDISP+8, MEDDISP+9, MEDDISP+14 , Z~, Z+2 | 
| Y | MINIT+4~, MEDDISP+1~, MEDDISP+2*, MEDDISP+3, MEDDISP+9*, MEDDISP+11 | 
| Z | MINIT+4~, MEDDISP+1~, MEDDISP+3*, MEDDISP+4*, MEDDISP+5*, MEDDISP+6*, MEDDISP+7*, MEDDISP+11*, MEDDISP+12, MEDDISP+13* , MEDDISP+14*, MEDDISP+15 |