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* |