©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
PSUOPMD ;BIR/CFL,DAM - PSU PBM Multidose Outpatient Pharmacy create mailman messages ;17 NOV 2004
Source file <PSUOPMD.m>
| Package | Total | Call Graph |
|---|---|---|
| MailMan | 1 | ^XMD |
| Pharmacy Benefits Management | 1 | $$VAL^PSUTL |
| VA Fileman | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OLD1 | ;
|
|
| OLD3 | ;
|
|
| EN | ;
|
|
| OLD | ; THIS SUBROUTINE STOPS MULTI-LINED MESSAGES FORM SPANNING MAILMAN MSG
|
|
| OLD4 | ; * IF A RECORD EXCEEDS THE 10,000 CHARACTER 4 TIMES
|
|
| VARS | ; Setup variables for contents
|
|
| SETCNT | ;Set message count and line count
|
|
| XMD | ;
|
|
| OLD2 | ;
|
|
| MSG | ;Set up the number of lines and messages for mailman
|
|
| OLD5 | ; * IF A RECORD EXCEEDS THE 10,000 CHARACTER 5 TIMES
|
|
| NODATA | ;Send "No data to report" message
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | EN+6, EN+9, EN+11, EN+13*, EN+15*, EN+17*, EN+18, EN+20*, EN+21, EN+23* , EN+24, EN+26*, MSG+4, MSG+6, XMD+4!, XMD+6, XMD+11*, XMD+13*, XMD+15*, XMD+19 , OLD+1, OLD+2, OLD+3, OLD+4, OLD+5, OLD5+1*, OLD5+2!, OLD5+3*, OLD5+4!, OLD5+5* , OLD5+6!, OLD5+7*, OLD5+8!, OLD5+9*, OLD5+10!, OLD4+1*, OLD4+2!, OLD4+3*, OLD4+4!, OLD4+5* , OLD4+6!, OLD4+7*, OLD4+8!, OLD3+1*, OLD3+2!, OLD3+3*, OLD3+4!, OLD3+5*, OLD3+6!, OLD2+1* , OLD2+2!, OLD2+3*, OLD2+4!, OLD1+1*, OLD1+2!, NODATA+1* |
| ^XTMP("PSU_" | SETCNT+3*, SETCNT+4* |
| Name | Line Occurrences |
|---|---|
| NODATA | MSG+4 |
| OLD | XMD+10 |
| OLD1 | OLD+10 |
| OLD2 | OLD+9 |
| OLD3 | OLD+8 |
| OLD4 | OLD+7 |
| OLD5 | OLD+6 |
| SETCNT | MSG+10 |
| VARS | XMD+20 |
| XMD | MSG+10, NODATA+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DIC | MSG+7*, NODATA+4* |
| >> DIC(0 | MSG+7*, NODATA+4* |
| >> I | XMD+12*, XMD+13, XMD+15 |
| >> NONE | MSG+2*, VARS+10, NODATA+2* |
| >> PSUDASH | EN+2* |
| >> PSUDIV | MSG+5*, MSG+6*, MSG+7, XMD+6, VARS+2, NODATA+2*, NODATA+4, SETCNT+1, SETCNT+2, SETCNT+3 , SETCNT+4 |
| >> PSUDIVNM | MSG+8*, VARS+2, NODATA+5* |
| >> PSUDUZ | MSG+9, VARS+5 |
| >> PSUDV | EN+5*, EN+6*, EN+9, EN+11, EN+13, EN+15, EN+17, EN+18, EN+20, EN+21 , EN+23, EN+24, EN+26 |
| >> PSUFILL | EN+3* |
| >> PSUJOB | SETCNT+3, SETCNT+4 |
| PSULC | XMD+1~, XMD+6* |
| >> PSULCT | EN+7*, EN+12*, EN+13, EN+14*, EN+15, EN+16*, EN+17, EN+19*, EN+20, EN+22* , EN+23, EN+25*, EN+26 |
| >> PSUM | XMD+19*, VARS+1*, VARS+2 |
| >> PSUMASF | MSG+9, VARS+5, VARS+7 |
| PSUMAX | XMD+1~, XMD+2*, XMD+3*, XMD+8 |
| PSUMC | XMD+1~, XMD+5*, XMD+11, XMD+13, XMD+15, XMD+19, OLD+1, OLD+2, OLD+3, OLD+4 , OLD+5, OLD5+1, OLD5+2, OLD5+3, OLD5+4, OLD5+5, OLD5+6, OLD5+7, OLD5+8, OLD5+9 , OLD5+10, OLD4+1, OLD4+2, OLD4+3, OLD4+4, OLD4+5, OLD4+6, OLD4+7, OLD4+8, OLD3+1 , OLD3+2, OLD3+3, OLD3+4, OLD3+5, OLD3+6, OLD2+1, OLD2+2, OLD2+3, OLD2+4, OLD1+1 , OLD1+2, VARS+1, VARS+2, VARS+11 |
| >> PSUMLC | XMD+5*, XMD+7*, XMD+8, XMD+9*, XMD+11, XMD+13, XMD+14*, XMD+15, OLD+1, OLD+2 , OLD+3, OLD+4, OLD+5, OLD5+2, OLD5+4, OLD5+6, OLD5+8, OLD5+10, OLD5+11*, OLD4+2 , OLD4+4, OLD4+6, OLD4+8, OLD4+9*, OLD3+2, OLD3+4, OLD3+6, OLD3+7*, OLD2+2, OLD2+4 , OLD2+5*, OLD1+2, OLD1+3* |
| >> PSUMON | VARS+2 |
| >> PSUMSG("L" | VARS+12*, SETCNT+2 |
| >> PSUMSG("M" | VARS+11*, SETCNT+1 |
| >> PSUMSGT( | SETCNT+1*, SETCNT+2*, SETCNT+3, SETCNT+4 |
| >> PSUMSGT("L" | MSG+3* |
| >> PSUMSGT("M" | MSG+3* |
| >> PSUNOREC | MSG+2* |
| PSUOLD1 | XMD+1~, OLD+1*, OLD+10, OLD5+9, OLD5+12!, OLD4+7, OLD4+10!, OLD3+5, OLD3+8!, OLD2+3 , OLD2+6!, OLD1+1, OLD1+4! |
| PSUOLD2 | XMD+1~, OLD+2*, OLD+9, OLD5+7, OLD5+12!, OLD4+5, OLD4+10!, OLD3+3, OLD3+8!, OLD2+1 , OLD2+6! |
| PSUOLD3 | XMD+1~, OLD+3*, OLD+8, OLD5+5, OLD5+12!, OLD4+3, OLD4+10!, OLD3+1, OLD3+8! |
| PSUOLD4 | OLD+4*, OLD+7, OLD5+3, OLD5+12!, OLD4+1, OLD4+10! |
| PSUOLD5 | OLD+5*, OLD+6, OLD5+1, OLD5+12! |
| >> PSUOPSUB | EN+6, EN+9, EN+11, EN+13, EN+15, EN+17, EN+18, EN+20, EN+21, EN+23 , EN+24, EN+26, MSG+4, MSG+6, XMD+4, XMD+6, XMD+11, XMD+13, XMD+15, XMD+19 , OLD+1, OLD+2, OLD+3, OLD+4, OLD+5, OLD5+1, OLD5+2, OLD5+3, OLD5+4, OLD5+5 , OLD5+6, OLD5+7, OLD5+8, OLD5+9, OLD5+10, OLD4+1, OLD4+2, OLD4+3, OLD4+4, OLD4+5 , OLD4+6, OLD4+7, OLD4+8, OLD3+1, OLD3+2, OLD3+3, OLD3+4, OLD3+5, OLD3+6, OLD2+1 , OLD2+2, OLD2+3, OLD2+4, OLD1+1, OLD1+2, NODATA+1 |
| >> PSUOPTN | SETCNT+3, SETCNT+4 |
| >> PSUPBMG | MSG+9, VARS+5 |
| >> PSURCT | EN+10*, EN+11*, EN+13, EN+15, EN+17, EN+18, EN+20, EN+21, EN+23, EN+24 , EN+26 |
| >> PSURXIEN | EN+8*, EN+9*, EN+11, EN+13, EN+15, EN+17, EN+18, EN+20, EN+21, EN+23 , EN+24, EN+26 |
| >> PSUSMRY | VARS+8 |
| >> PSUSNDR | NODATA+1, NODATA+2 |
| PSUTLC | XMD+1~, XMD+18*, XMD+19*, VARS+10*, VARS+12 |
| PSUTMC | XMD+1~ |
| >> PSUTMP | EN+5* |
| >> PSUXMYH | VARS+6 |
| >> PSUXMYS1 | VARS+7 |
| >> X | MSG+7*, MSG+8*, XMD+6*, XMD+9, XMD+10, XMD+11, XMD+12, XMD+13, XMD+15, XMD+19* , NODATA+4*, NODATA+5* |
| >> XMCHAN | VARS+4* |
| >> XMSUB | VARS+2* |
| >> XMTEXT | VARS+3* |
| >> XMY | VARS+6*, VARS+7* |
| >> Y | MSG+8, NODATA+5 |
| >> Z | MSG+5*, XMD+12* |