©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
PSULR4 ;BIR/PDW - PBMS LABORATORY EMAIL GENERATOR ;10 JUL 1999
Source file <PSULR4.m>
| Package | Total | Call Graph |
|---|---|---|
| MailMan | 1 | ^XMD |
| Pharmacy Benefits Management | 1 | ($$VAL,$$VALI)^PSUTL |
| VA Fileman | 1 | IX^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NODATA | ;EP transmit NO DATA FOUND
|
|
| EN(PSUMSG) | ;Scan and process for Division(s)
; PSUMSGT ("M")= # MESSAGES ("L")= # LINES |
|
| VARS | ; Setup variables for contents
|
|
| MSG | ;EP Send divisional message
; Split and store into ^XTMP(PSULRSUB,"MESSAGE",PSUMC,PSULC) |
|
| DIV | ; Scan by division and send divisional messages
|
|
| TRANS | ;EP Transmit Messages
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | EN+12, DIV+2, MSG+2!, MSG+4, MSG+7*, MSG+9*, MSG+11*, MSG+15 |
| ^XTMP("PSU_" | VARS+2, VARS+4 |
| Name | Line Occurrences |
|---|---|
| MSG | DIV+2 |
| NODATA | EN+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | VARS+15*, NODATA+7* |
| >> DIC | VARS+15*, NODATA+7* |
| >> DIC(0 | VARS+15*, NODATA+7* |
| DUZ | VARS+6, VARS+18, NODATA+4 |
| >> I | MSG+8*, MSG+9, MSG+11 |
| >> PSUDIV | DIV+2*, MSG+4, MSG+17, MSG+18, VARS+2, VARS+4, VARS+5, VARS+15, VARS+17, NODATA+2* , NODATA+3, NODATA+7, NODATA+9 |
| >> PSUDIVNM | VARS+4*, VARS+5, VARS+16*, VARS+17, NODATA+8*, NODATA+9 |
| >> PSUDUZ | VARS+10, VARS+23, NODATA+13 |
| >> PSUJOB | VARS+2, VARS+4 |
| PSULC | EN+7~, MSG+4*, MSG+6* |
| >> PSULRSUB | EN+12, DIV+2, MSG+2, MSG+4, MSG+7, MSG+9, MSG+11, MSG+15 |
| >> PSUM | MSG+15*, VARS+3*, VARS+5, VARS+14*, VARS+17, NODATA+6*, NODATA+9 |
| >> PSUMASF | VARS+10, VARS+23, NODATA+3, NODATA+13 |
| PSUMAX | EN+7~, EN+9*, EN+10*, MSG+6 |
| PSUMC | EN+7~, MSG+3*, MSG+6*, MSG+7, MSG+9, MSG+11, MSG+15, MSG+17, VARS+3, VARS+5 , VARS+14, VARS+17, NODATA+6*, NODATA+9 |
| >> PSUMLC | MSG+3*, MSG+5*, MSG+6*, MSG+7, MSG+9, MSG+10*, MSG+11 |
| >> PSUMON | VARS+5, VARS+17, NODATA+9 |
| PSUMSG | EN~ |
| PSUMSG( | MSG+17*, MSG+18*, NODATA+3* |
| >> PSUPBMG | VARS+10, VARS+23, NODATA+13 |
| >> PSUSMRY | VARS+11, VARS+24 |
| >> PSUSNDR | NODATA+1*, NODATA+2 |
| PSUTLC | EN+7~, MSG+14*, MSG+15*, MSG+18 |
| PSUTMC | EN+7~ |
| >> PSUXMYH | VARS+8, VARS+20, NODATA+5 |
| U | VARS+4 |
| >> X | MSG+4*, MSG+7, MSG+8, MSG+9, MSG+11, MSG+15*, VARS+15*, VARS+16*, NODATA+1*, NODATA+7* , NODATA+8* |
| >> X(1 | NODATA+10* |
| >> XMCHAN | VARS+9*, VARS+21*, NODATA+12* |
| >> XMDUZ | VARS+6*, VARS+18*, NODATA+4* |
| >> XMSUB | VARS+5*, VARS+17*, NODATA+9* |
| >> XMTEXT | VARS+7*, VARS+19*, NODATA+11* |
| >> XMY | VARS+8*, VARS+20*, NODATA+5* |
| >> Y | VARS+16, NODATA+8 |
| >> Z | MSG+8* |