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 |