©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
PSOELPS2 ;BIR/EJW-CPRS and Outpatient Pharmacy Status Update ;12/04/02
Source file <PSOELPS2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | (,DD)^%DT (C,NOW)^%DTC ^DIC ^DIR |
| Kernel | 3 | ^%ZTLOAD $$DT^XLFDT (BMES,MES)^XPDUTL |
| MailMan | 1 | ^XMD |
| Order Entry Results Reporting | 1 | $$STATUS^ORQOR2 |
| Outpatient Pharmacy | 1 | EN^PSOHLSN1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| CHKARROW | ;
|
|
| ACT | ; SET ENTRY IN ACTIVITY LOG
|
|
| ASK | ||
| ;Send MailMan message upon job completion
|
||
| UPDCPRS | ; UPDATE CPRS ENTRY WITH CORRECT STATUS AND DATE
|
|
| GETPACRF | ;
|
|
| GETDEL | ;
|
|
| GETDATE | ; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | GETDATE+8 |
| DD^%DT | MAIL+8, MAIL+9, GETDATE+3, GETDATE+11 |
| C^%DTC | UPDCPRS+3 |
| NOW^%DTC | EN+5, MAIL+4, ACT+4, GETDATE+3, GETDATE+7 |
| ^%ZTLOAD | PSOELPS2+21 |
| ^DIC | GETPACRF+1 |
| ^DIR | GETPACRF+6 |
| $$STATUS^ORQOR2 | EN+11 |
| EN^PSOHLSN1 | UPDCPRS+1 |
| $$DT^XLFDT | EN+4 |
| ^XMD | MAIL+12 |
| BMES^XPDUTL | PSOELPS2+10, PSOELPS2+13, PSOELPS2+17, GETPACRF+3, GETPACRF+4, GETPACRF+5, GETDATE+4, ASK, ASK+1 |
| MES^XPDUTL | PSOELPS2+11, PSOELPS2+12, PSOELPS2+14, PSOELPS2+15, PSOELPS2+16, PSOELPS2+18, PSOELPS2+19, GETDATE+5, GETDATE+6, GETDATE+8 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DILOCKTM" | EN+1 |
| ^OR(100 - [#100] | EN+12, EN+13, UPDCPRS+4*, UPDCPRS+5* |
| ^PSRX - [#52] | EN+8, EN+9, EN+14, EN+24*, GETDEL+2, GETDEL+4, ACT+2, ACT+3*, ACT+4*, CHKARROW+2 , CHKARROW+8* |
| ^PSRX("APL" | EN+7 |
| ^XTMP("PSOELPS2" | EN+1, MAIL+13, UPDCPRS+3*, UPDCPRS+4*, UPDCPRS+5*, CHKARROW+5* |
| Name | Line Occurrences |
|---|---|
| ACT | EN+22 |
| ASK | ASK+1 |
| CHKARROW | EN+10 |
| GETDATE | PSOELPS2+20, ASK+2 |
| GETDEL | EN+16, EN+20 |
| GETPACRF | PSOELPS2+8, EN+3 |
| UPDCPRS | EN+18, EN+23 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GETDEL+2 |
| ^(3 | UPDCPRS+5 |
| ^(6 | UPDCPRS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+5, MAIL+4, ACT+4, GETDATE+3, GETDATE+7 |
| %DT | GETDATE+7!*, GETDATE+8! |
| %DT("A" | GETDATE+7* |
| %DT(0 | GETDATE+7* |
| DIC | GETPACRF+1*! |
| DIC(0 | GETPACRF+1* |
| DIFROM | MAIL+12~ |
| DIR | GETPACRF+6! |
| DIR("A" | GETPACRF+6* |
| DIR(0 | GETPACRF+6* |
| DT | EN+4*, UPDCPRS+2, UPDCPRS+3 |
| >> DTOUT | GETDATE+8 |
| DUZ | MAIL+2, MAIL+3, UPDCPRS+1*, ACT+4 |
| IR | ACT+1~, ACT+2*, ACT+3*, ACT+4 |
| J | ACT+1~, ACT+2* |
| >> NOW | GETDATE+2*, GETDATE+8*, GETDATE+9, ASK |
| PSOACRL | EN+2~, GETDEL+4*, GETDEL+5 |
| PSOADT | EN+2~, GETDEL+2*, GETDEL+5*, UPDCPRS+2*, UPDCPRS+4, UPDCPRS+5 |
| PSOALC | EN+2~, GETDEL+5*, GETDEL+6 |
| PSOCOMM | EN+2~, GETDEL+1*, GETDEL+5*, GETDEL+6*, UPDCPRS+1 |
| PSOCPRS | EN+2~, EN+7*, EN+8, EN+11, EN+12, EN+13, UPDCPRS+4, UPDCPRS+5 |
| PSOCSTAT | EN+2~, EN+14*, EN+15, EN+19 |
| PSOECT | EN+2~, EN+6*, MAIL+6, UPDCPRS+1* |
| PSOEND | EN+2~, MAIL+4*, MAIL+9*, MAIL+11 |
| PSOETEXT | EN+2~ |
| PSOETEXT(1 | MAIL+5* |
| PSOETEXT(2 | MAIL+6* |
| PSOETEXT(3 | MAIL+7* |
| PSOETEXT(4 | MAIL+10* |
| PSOETEXT(5 | MAIL+11* |
| PSOIJ | EN+2~, GETDEL+2* |
| PSOJJ | EN+2~, EN+17, EN+21, GETDEL+2*, GETDEL+3, GETDEL+4 |
| PSONAT | EN+2~, GETDEL+5*, UPDCPRS+1 |
| PSOPACRF | PSOELPS2+7~, PSOELPS2+9, EN+3, EN+13, MAIL+1!, GETPACRF+7* |
| PSOPHR | EN+2~, GETDEL+2*, GETDEL+5*, UPDCPRS+1 |
| PSOREAS | EN+2~, GETDEL+2* |
| >> PSORX2 | EN+6*, MAIL+7, CHKARROW+7* |
| PSORXNUM | EN+2~, EN+7*, EN+8, EN+9, EN+12, EN+14, EN+24, GETDEL+2, GETDEL+4, UPDCPRS+1 , ACT+2, ACT+3, ACT+4, CHKARROW+2, CHKARROW+5, CHKARROW+8 |
| PSOSTA | EN+2~, EN+11*, EN+15, EN+19 |
| PSOSTART | EN+2~, EN+5*, MAIL+8*, MAIL+10 |
| PSOXCOM | EN+2~ |
| PSOXDT | EN+2~ |
| PSOZDUZ | EN+2~, UPDCPRS+1* |
| RX2 | CHKARROW+1~, CHKARROW+2*, CHKARROW+3, CHKARROW+4, CHKARROW+5, CHKARROW+6*, CHKARROW+8 |
| >> SAVEY | GETDATE+10*, GETDATE+13 |
| >> TODAY | GETDATE+3* |
| >> X | UPDCPRS+3, GETPACRF+1*, GETDATE+12*, ASK |
| >> X1 | UPDCPRS+3* |
| >> X2 | UPDCPRS+3* |
| XMDUZ | MAIL+3*, MAIL+12! |
| XMSUB | MAIL+3*, MAIL+12! |
| XMTEXT | MAIL+12*! |
| >> XMY( | MAIL+3* |
| >> XX | ASK+1*, ASK+2 |
| Y | MAIL+8*, MAIL+9*, MAIL+12!, GETPACRF+2, GETPACRF+7, GETDATE+3*, GETDATE+8, GETDATE+9, GETDATE+10, GETDATE+12 , GETDATE+13*, ASK+3 |
| ZTDESC | PSOELPS2+21*! |
| ZTDTH | PSOELPS2+21!, GETDATE+1*, GETDATE+8*, ASK+3*, ASK+4* |
| ZTIO | PSOELPS2+21*! |
| >> ZTQUEUED | PSOELPS2+22, EN+1, MAIL+14 |
| >> ZTREQ | EN+1*, MAIL+14* |
| ZTRTN | PSOELPS2+21*! |
| >> ZTSAVE("PSOPACRF" | PSOELPS2+21* |
| >> ZTSK | PSOELPS2+22 |