PSULR5 ;BIR/PDW - LAB extract summary message generator ;10 JUL 1999
Source file <PSULR5.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | PID^VADPT $$SETSTR^VALM1 |
| MailMan | 1 | ^XMD |
| Pharmacy Benefits Management | 1 | $$VAL^PSUTL |
| VA Fileman | 1 | IX^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;EP generate Total & Cost summary
|
|
| MSG1 | ; Generate 1st summary message
|
|
| MSG2 | ; SUMMARY BY PATIENT
|
|
| EN1 | ||
| SET | ;EP Set data into message
|
|
| DIV | ;EP Loop by Division
|
|
| NODATA | ;EP SEND NO DATA MESSAGE
|
|
| MESSAGE | ;EP Generate Summary Messages for a Division
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | MSG1+13, MSG1+14, NODATA+4, NODATA+5 |
| ^XTMP( | EN1+6, DIV+1, MSG1+5, MSG1+6, MSG1+8, MSG1+34*, MSG2+20, MSG2+23, MSG2+26, SET+2 , NODATA+21*, NODATA+24* |
| ^XTMP("PSU_" | MSG1+19, MSG1+21, MSG1+22 |
| Name | Line Occurrences |
|---|---|
| MESSAGE | DIV+1 |
| NODATA | EN1+6 |
| SET | MSG2+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | MSG1+16*, NODATA+7* |
| >> DFN | MSG1+4*, MSG1+5*, MSG1+6, MSG1+8, MSG2+19*, MSG2+20*, MSG2+23, MSG2+26, SET+2, SET+9 , SET+10 |
| >> DFN1 | MSG2+19*, MSG2+20*, SET+9, SET+10* |
| >> DIC | MSG1+16*, NODATA+7* |
| >> DIC(0 | MSG1+16*, NODATA+7* |
| DUZ | MSG1+10, NODATA+1 |
| >> PSUCD | MSG2+22*, MSG2+23*, MSG2+26, SET+2, SET+11, SET+12 |
| >> PSUCD1 | MSG2+19*, MSG2+23*, SET+10*, SET+11, SET+12* |
| >> PSUDC | MSG1+6*, MSG1+8 |
| >> PSUDIV | DIV+1*, MSG1+5, MSG1+6, MSG1+8, MSG1+16, MSG1+19, MSG1+21, MSG1+22, MSG1+30, MSG1+34 , MSG2+20, MSG2+23, MSG2+26, MSG2+29, SET+2, NODATA+6*, NODATA+7, NODATA+9, NODATA+21, NODATA+22 , NODATA+24 |
| >> PSUDIVNM | MSG1+17*, MSG1+22*, MSG1+25, MSG1+30, MSG2+6, MSG2+29, NODATA+8*, NODATA+9, NODATA+14, NODATA+22 |
| >> PSUDTE | MSG1+14*, MSG1+25, MSG2+6, NODATA+5*, NODATA+14 |
| >> PSUDTS | MSG1+13*, MSG1+25, MSG2+6, NODATA+4*, NODATA+14 |
| >> PSUDUZ | NODATA+19 |
| >> PSUEDT | MSG1+14, NODATA+5 |
| >> PSUG | MSG2+3*, MSG2+4, MSG2+5, MSG2+6, MSG2+7, MSG2+14, MSG2+16, MSG2+28, SET+18 |
| PSUITT | EN1~ |
| >> PSUJOB | EN1+1, MSG1+19, MSG1+21, MSG1+22 |
| >> PSULC | MSG2+17*, MSG2+28, SET+17*, SET+18 |
| >> PSULD | SET+4*, SET+5, SET+6, SET+7*, SET+16 |
| >> PSULD0 | SET+5*, SET+7 |
| >> PSULRF | SET+4*, SET+15 |
| >> PSULRJOB | EN1+1*, EN1+2 |
| >> PSULRR | SET+3*, SET+14 |
| >> PSULRSUB | EN1+2*, EN1+6, DIV+1, MSG1+5, MSG1+6, MSG1+8, MSG1+34, MSG2+20, MSG2+23, MSG2+26 , SET+2, NODATA+21, NODATA+24 |
| >> PSULRT | SET+3*, SET+13 |
| >> PSUMON | MSG1+30, MSG2+29, NODATA+9, NODATA+22 |
| PSUMSG | MSG1+15~, MSG1+34, MSG1+35! |
| PSUMSG(1 | MSG1+24* |
| PSUMSG(2 | MSG1+25* |
| PSUMSG(3 | MSG1+26* |
| PSUMSG(4 | MSG1+27* |
| PSUMSG(5 | MSG1+28* |
| PSUMSG(6 | MSG1+29* |
| >> PSUND | MSG1+7*, MSG1+8*, MSG2+25*, MSG2+26*, SET+2 |
| >> PSUP | MSG1+2*, MSG1+5*, MSG1+27 |
| PSUREC | EN1~ |
| >> PSUSDT | MSG1+13, NODATA+4 |
| >> PSUSMRY | MSG2+33 |
| >> PSUSNDR | NODATA+6 |
| >> PSUT | MSG1+2*, MSG1+8*, MSG1+28 |
| >> PSUXMYS1 | MSG1+11, NODATA+2 |
| >> PSUXMYS2 | MSG2+32 |
| U | MSG1+21, MSG1+22, SET+3, SET+4 |
| VA | SET+10! |
| VA("PID" | SET+10 |
| X | MSG1+16*, MSG1+17*, MSG2+8*, MSG2+9*, MSG2+10*, MSG2+11*, MSG2+12*, MSG2+13*, MSG2+14, MSG2+15* , MSG2+16, SET+2*, SET+3, SET+4, SET+6*, SET+7, SET+8*, SET+10*, SET+12*, SET+13* , SET+14*, SET+15*, SET+16*, SET+18, NODATA+7*, NODATA+8*, NODATA+12!, NODATA+21, NODATA+24 |
| X(1 | NODATA+13*, NODATA+23* |
| X(2 | NODATA+14* |
| X(3 | NODATA+15* |
| X(4 | NODATA+16* |
| X(5 | NODATA+17* |
| >> XMCHAN | MSG1+32*, MSG2+31*, NODATA+11* |
| >> XMDUZ | MSG1+10*, NODATA+1* |
| >> XMSUB | MSG1+30*, MSG2+29*, NODATA+9*, NODATA+22* |
| >> XMTEXT | MSG1+31*, MSG2+30*, NODATA+10*, NODATA+18* |
| >> XMY | MSG1+11*, MSG2+32*, NODATA+2* |
| >> XMY( | NODATA+19* |
| >> Y | MSG1+13*, MSG1+14*, MSG1+17, NODATA+4*, NODATA+5*, NODATA+8 |