©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
PSGAL5 ;BIR/CML3-ACTIVITY LOGGER ;22 Jan 99 / 8:00 AM
Source file <PSGAL5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| KILLNV | ||
| NEWNVAL(PSGALORD,PSGALC,PSGFLD,PSGOLD) | ||
| NEWUDAL(PSGALGP,PSGALORD,PSGALC,PSGFLD,PSGOLD) | ||
| DONE | ;
|
|
| KILL | ; if user merely reenters same data (tsk, tsk), kill record just written
|
|
| PNTR | ; find pointer value
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | EN+6, EN+11 |
| ^PS(53.1 - [#53.1] | NEWNVAL+10, NEWNVAL+16*, KILLNV+1! |
| ^PS(55 - [#55] | EN+8, EN+12*, KILL+1!, NEWUDAL+11, NEWUDAL+17* |
| Name | Line Occurrences |
|---|---|
| PNTR | EN+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN+8, NEWUDAL+11, NEWNVAL+10 |
| ^(0 | EN+8*, EN+11, NEWUDAL+11*, NEWNVAL+10* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+10, EN+11, DONE+1, NEWUDAL+13, NEWUDAL+15, NEWNVAL+12, NEWNVAL+14 |
| >> DA | EN+2 |
| >> DA( | EN+1, EN+2 |
| DUZ | EN+11, NEWUDAL+15, NEWNVAL+14 |
| FLD | EN+5*, EN+6, EN+11, DONE+1! |
| FN | EN+5*, EN+6, EN+11, DONE+1! |
| OLD | EN+5*, EN+6*, EN+11, DONE+1!, PNTR+1* |
| OLDS | EN+6*, DONE+1! |
| >> PSGAL("C" | EN+3*, EN+4*, EN+5, EN+6, EN+11, EN+12, KILL+1, KILLNV+1 |
| >> PSGAL("D" | DONE+1* |
| >> PSGAL("D0" | EN+2*, EN+8, EN+12, KILL+1, KILLNV+1 |
| >> PSGAL("D1" | EN+2*, EN+8, EN+12, KILL+1 |
| >> PSGAL("N" | EN+8*, EN+12, KILL+1, NEWUDAL+11*, NEWUDAL+17, NEWNVAL+10*, NEWNVAL+16, KILLNV+1 |
| PSGALC | NEWUDAL~, NEWUDAL+15, NEWNVAL~, NEWNVAL+14 |
| >> PSGALEF | EN+12*, KILL+1*, KILLNV+1* |
| PSGALFF | EN+5, DONE+1! |
| PSGALFN | EN+5, DONE+1! |
| PSGALGP | NEWUDAL~, NEWUDAL+11, NEWUDAL+17 |
| >> PSGALO | EN+3 |
| PSGALORD | NEWUDAL~, NEWUDAL+11, NEWUDAL+17, NEWNVAL~, NEWNVAL+10, NEWNVAL+16 |
| >> PSGALR | EN+4 |
| >> PSGDT | EN+10*, NEWUDAL+13*, NEWNVAL+12* |
| PSGFLD | NEWUDAL~, NEWUDAL+15, NEWNVAL~, NEWNVAL+14 |
| PSGOLD | NEWUDAL~, NEWUDAL+14*, NEWUDAL+15, NEWNVAL~, NEWNVAL+13*, NEWNVAL+14 |
| PSJ9 | EN+1~ |
| PSJ9("SPECIFIER" | EN+5, EN+6 |
| PSJ99 | EN+1~ |
| PSJ99("POINTER" | PNTR+1 |
| PSJ99("SPECIFIER" | PNTR+1 |
| >> Q | EN+1*, EN+2, EN+8*, EN+11*, EN+12, NEWUDAL+11*, NEWUDAL+15*, NEWUDAL+17, NEWNVAL+10*, NEWNVAL+14* , NEWNVAL+16 |
| EN+8*, NEWUDAL+11*, NEWNVAL+10* | |
| SS | DONE+1!, PNTR+1* |
| >> X | EN+5 |
| XX | EN+5*, DONE+1!, PNTR+1* |
| YY | EN+5*, DONE+1!, PNTR+1* |