©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
PSUPR5 ;BIR/PDW - PROCUREMENT EXTRACT SUMMARY MESSAGE GENERATOR ;10 JUL 1999
Source file <PSUPR5.m>
| Package | Total | Call Graph |
|---|---|---|
| MailMan | 1 | ^XMD |
| Pharmacy Benefits Management | 1 | $$VAL^PSUTL |
| Registration | 1 | $$SETSTR^VALM1 |
| VA Fileman | 1 | IX^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;EP generate Total & Cost summary
|
|
| MSG1 | ; Generate 1st summary message
|
|
| MSG2 | ; SUMMARY BY DRUG
; loop records stored ; psunm - name, psudisp - disp unit, psutq - total quantity, psutc - total cost |
|
| EN1 | ||
| DIV | ;EP Loop by Division
|
|
| NODATA | ;EP SEND NO DATA MESSAGE
|
|
| MESSAGE | ;EP Generate Summary Messages for a Division
|
| Name | Line Occurrences |
|---|---|
| MESSAGE | DIV+1 |
| NODATA | EN1+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MSG1+7, MSG2+5 |
| ^("DISP" | MSG2+32 |
| ^("TC" | MSG2+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | MESSAGE+2*, MSG1+23*, NODATA+5* |
| >> DIC | MESSAGE+2*, MSG1+23*, NODATA+5* |
| >> DIC(0 | MESSAGE+2*, MSG1+23*, NODATA+5* |
| DUZ | MSG1+11, NODATA+1 |
| PSUDISP | MSG2+6*, MSG2+13, MSG2+28~, MSG2+29*, MSG2+32*, MSG2+36 |
| >> PSUDIV | DIV+1*, MESSAGE+2, MSG1+7, MSG1+23, MSG1+25, MSG1+26, MSG1+29, MSG2+5, MSG2+48, NODATA+4* , NODATA+5, NODATA+9, NODATA+18, NODATA+23 |
| >> PSUDIVNM | MESSAGE+3*, MSG1+18, MSG1+24*, MSG1+25, MSG2+19, MSG2+48, NODATA+6*, NODATA+9, NODATA+14 |
| >> PSUDRNM | MSG2+3* |
| >> PSUDTE | MSG1+15*, MSG1+18, MSG2+19, NODATA+8*, NODATA+14 |
| >> PSUDTS | MSG1+14*, MSG1+18, MSG2+19, NODATA+7*, NODATA+14 |
| >> PSUDUZ | NODATA+20 |
| >> PSUEDT | MSG1+15, NODATA+8 |
| >> PSUG | MSG2+16*, MSG2+17, MSG2+18, MSG2+19, MSG2+20, MSG2+22, MSG2+24, MSG2+26, MSG2+39, MSG2+43 , MSG2+46, MSG2+47 |
| >> PSUIT | MSG1+7* |
| PSUITT | EN1~, MSG1+2*, MSG1+9*, MSG1+20 |
| >> PSUJOB | EN1+3 |
| >> PSULC | MSG2+27*, MSG2+33*, MSG2+39, MSG2+42*, MSG2+43, MSG2+45*, MSG2+46, MSG2+47 |
| >> PSUMON | MSG1+25, MSG2+48, NODATA+9 |
| PSUMSG | MSG1+16~, MSG1+29, MSG1+31! |
| PSUMSG(1 | MSG1+17* |
| PSUMSG(2 | MSG1+18* |
| PSUMSG(3 | MSG1+19* |
| PSUMSG(4 | MSG1+20* |
| PSUMSG(5 | MSG1+21* |
| PSUMSG(6 | MSG1+22* |
| PSUNM | MSG2+6*, MSG2+7*, MSG2+8*, MSG2+9, MSG2+10, MSG2+11, MSG2+12, MSG2+13, MSG2+28~, MSG2+31* , MSG2+32*, MSG2+35 |
| >> PSUPRJOB | EN1+3*, EN1+4 |
| >> PSUPRSUB | EN1+4*, EN1+6, DIV+1, MSG1+7, MSG1+29, MSG2+4, MSG2+5, MSG2+10, MSG2+11, MSG2+12 , MSG2+13, MSG2+32, NODATA+18, NODATA+23 |
| PSUREC | EN1~, MSG1+5*, MSG1+7*, MSG2+3*, MSG2+5* |
| >> PSUSDT | MSG1+14, NODATA+7 |
| >> PSUSMRY | MSG2+52 |
| >> PSUSNDR | NODATA+4 |
| PSUTC | EN1~, MSG1+2*, MSG1+7*, MSG1+21, MSG2+6*, MSG2+12, MSG2+28~, MSG2+29*, MSG2+32*, MSG2+34 , MSG2+38 |
| PSUTCT | MSG2+28~, MSG2+29*, MSG2+34*, MSG2+44 |
| PSUTQ | MSG2+6*, MSG2+11, MSG2+28~, MSG2+29*, MSG2+32*, MSG2+34, MSG2+37 |
| PSUTQT | MSG2+28~, MSG2+29*, MSG2+34*, MSG2+44 |
| >> PSUXMYS1 | MSG1+12, NODATA+2 |
| >> PSUXMYS2 | MSG2+51 |
| U | MSG1+7, MSG2+6, MSG2+7 |
| X | MESSAGE+2*, MESSAGE+3*, MSG1+7*, MSG1+9*, MSG1+23*, MSG1+24*, MSG2+5*, MSG2+6, MSG2+7, MSG2+21* , MSG2+22, MSG2+23*, MSG2+24, MSG2+25*, MSG2+26, MSG2+35*, MSG2+36*, MSG2+37*, MSG2+38*, MSG2+39 , MSG2+41*, MSG2+43, MSG2+44*, MSG2+46, NODATA+5*, NODATA+6*, NODATA+12!, NODATA+18, NODATA+23 |
| X(1 | NODATA+13*, NODATA+22* |
| X(2 | NODATA+14* |
| X(3 | NODATA+15* |
| X(4 | NODATA+16* |
| X(5 | NODATA+17* |
| >> XMCHAN | MSG1+28*, MSG2+50*, NODATA+11* |
| >> XMDUZ | MSG1+11*, NODATA+1* |
| >> XMSUB | MSG1+25*, MSG2+48*, NODATA+9* |
| >> XMTEXT | MSG1+27*, MSG2+49*, NODATA+10*, NODATA+19* |
| >> XMY | MSG1+12*, MSG2+51*, NODATA+2* |
| >> XMY( | NODATA+20* |
| >> Y | MESSAGE+3, MSG1+14*, MSG1+15*, MSG1+24, NODATA+6, NODATA+7*, NODATA+8* |