PSGAL5 ;BIR/CML3 - ACTIVITY LOGGER ;22 Jan 99 / 8:00 AM
Source file <PSGAL5.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | NOW^%DTC FIELD^DID |
| Inpatient Medications | 1 | ($$DIFFOPI,$$DIFFSI)^PSJBCMA5 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| DONE | ;
|
|
| PNTR | ; find pointer value
|
|
| KILL | ; if user merely reenters same data (tsk, tsk), kill record just written
|
|
| COMPSI() | ; Compare old Special Instructions (long) to new Special Instructions (long)
|
|
| NEWUDAL(PSGALGP,PSGALORD,PSGALC,PSGFLD,PSGOLD,PSGOLDAR) | ||
| NEWNVAL(PSGALORD,PSGALC,PSGFLD,PSGOLD,PSGOLDAR) | ||
| KILLNV |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | EN+6, EN+9 |
| ^PS(53.1 - [#53.1] | NEWNVAL+11, NEWNVAL+17*, NEWNVAL+21*, NEWNVAL+22*, KILLNV+1! |
| ^PS(53.45 - [#53.45] | EN+12, COMPSI+3, NEWUDAL+21, NEWUDAL+22, NEWUDAL+23* |
| ^PS(55 - [#55] | EN+7, EN+10*, EN+13*, EN+14*, EN+15, EN+16*, KILL+2!, COMPSI+2, COMPSI+3, NEWUDAL+10 , NEWUDAL+16*, NEWUDAL+18*, NEWUDAL+20*, NEWUDAL+22* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+8, EN+9, DONE+1, NEWUDAL+12, NEWUDAL+14, NEWNVAL+13, NEWNVAL+15 |
| >> DA | EN+2 |
| >> DA( | EN+1, EN+2 |
| >> DFN | NEWNVAL+19, NEWNVAL+20 |
| DIFF | COMPSI+1~, COMPSI+2*, COMPSI+3*, COMPSI+4 |
| DUZ | EN+9, COMPSI+1, COMPSI+3, NEWUDAL+14, NEWNVAL+15 |
| FLD | EN+5*, EN+6, EN+9, DONE+1! |
| FN | EN+5*, EN+6, EN+9, DONE+1! |
| LN | EN+15~*, EN+16, NEWUDAL+19~*, NEWUDAL+20, NEWUDAL+21~*, NEWUDAL+22, NEWNVAL+22~* |
| LNCNT | NEWNVAL+21~* |
| OLD | EN+5*, EN+6*, EN+9, DONE+1!, PNTR+1* |
| OLDS | EN+6*, DONE+1! |
| >> PSGAL("C" | EN+3*, EN+4*, EN+5, EN+6, EN+9, EN+10, KILL+2, KILLNV+1 |
| >> PSGAL("D" | DONE+1* |
| >> PSGAL("D0" | EN+2*, EN+7, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, KILL+2, COMPSI+2 , COMPSI+3, KILLNV+1 |
| >> PSGAL("D1" | EN+2*, EN+7, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, KILL+2, COMPSI+2 , COMPSI+3 |
| >> PSGAL("N" | EN+7*, EN+10, EN+13, EN+14, EN+16, KILL+2, NEWUDAL+10*, NEWUDAL+16, NEWUDAL+18, NEWUDAL+20 , NEWUDAL+22, NEWNVAL+11*, NEWNVAL+17, NEWNVAL+21, NEWNVAL+22, KILLNV+1 |
| PSGALC | NEWUDAL~, NEWUDAL+14, NEWNVAL~, NEWNVAL+15 |
| >> PSGALEF | EN+10*, KILL+2*, KILLNV+1* |
| PSGALFF | EN+5, DONE+1! |
| PSGALFN | EN+5, DONE+1! |
| PSGALGP | NEWUDAL~, NEWUDAL+9, NEWUDAL+10, NEWUDAL+16, NEWUDAL+17, NEWUDAL+18, NEWUDAL+20, NEWUDAL+22 |
| >> PSGALO | EN+3 |
| PSGALORD | NEWUDAL~, NEWUDAL+10, NEWUDAL+16, NEWUDAL+17, NEWUDAL+18, NEWUDAL+20, NEWUDAL+22, NEWNVAL~, NEWNVAL+11, NEWNVAL+17 , NEWNVAL+19, NEWNVAL+20, NEWNVAL+21, NEWNVAL+22 |
| >> PSGALR | EN+4 |
| >> PSGDT | EN+8*, NEWUDAL+12*, NEWNVAL+13* |
| PSGFLD | NEWUDAL~, NEWUDAL+14, NEWNVAL~, NEWNVAL+15 |
| PSGOLD | NEWUDAL~, NEWUDAL+13*, NEWUDAL+14, NEWNVAL~, NEWNVAL+14*, NEWNVAL+15 |
| PSGOLDAR | NEWUDAL~, NEWUDAL+17, NEWNVAL~, NEWNVAL+18 |
| PSGOLDAR( | NEWUDAL+19, NEWUDAL+20, NEWNVAL+22 |
| PSGOLDAR("" | NEWNVAL+21 |
| PSGOLDAR(0 | NEWUDAL+18 |
| PSJ9 | EN+1~ |
| PSJ9("SPECIFIER" | EN+5, EN+6 |
| PSJ99 | EN+1~ |
| PSJ99("POINTER" | PNTR+1 |
| PSJ99("SPECIFIER" | PNTR+1 |
| >> PSJSYSP | EN+12, NEWUDAL+21, NEWUDAL+22, NEWUDAL+23 |
| >> Q | EN+1*, EN+2, EN+7*, EN+9*, EN+10, EN+11, EN+13, KILL+1, NEWUDAL+10*, NEWUDAL+14* , NEWUDAL+16, NEWNVAL+11*, NEWNVAL+15*, NEWNVAL+17, NEWNVAL+18, NEWNVAL+19, NEWNVAL+20 |
| Q2 | COMPSI+1~, COMPSI+2*, COMPSI+3 |
| EN+7*, NEWUDAL+10*, NEWNVAL+11* | |
| SS | DONE+1!, PNTR+1* |
| >> X | EN+5 |
| XX | EN+5*, DONE+1!, PNTR+1* |
| YY | EN+5*, DONE+1!, PNTR+1* |