©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
PSJMDWS ;BIR/MV-MAIN DRIVER FOR MED DUE WORKSHEET ;18 JUN 96 / 2:58 PM
Source file <PSJMDWS.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 7 | ENKV^PSGSETU ^PSJAC ($$ENDATE,$$MEDTYPE,$$PRN,$$STDATE)^PSJMDIR $$GWP^PSJMDIR1 (,MEDTYPE,WARD)^PSJMEDS ^PSJMPRT ($$SELDEV,EXIT,EXITDEV,SETPRTQ,SETSORTQ)^PSJMUTL |
| Registration | 1 | DEM^VADPT |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRTQ | ;*** Entry when queue to the printer.
|
|
| ENLM | ;Enrty Point for PSJ LM MDWS protocol
|
|
| ASK | ;***Prompt for selection creteria. Quit when PSJSTOP=1
|
|
| EN | ||
| EXIT | ;
|
|
| SORTQ | ;*** Entry when queue to do the sorting.
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | ASK+3, ENLM+6 |
| ENKV^PSGSETU | EXIT+3 |
| ^PSJAC | SORTQ+5 |
| $$ENDATE^PSJMDIR | ASK+4, ENLM+7 |
| $$MEDTYPE^PSJMDIR | ASK+6, ENLM+8 |
| $$PRN^PSJMDIR | ASK+2, ENLM+5 |
| $$STDATE^PSJMDIR | ASK+3, ENLM+6 |
| $$GWP^PSJMDIR1 | ASK+5 |
| ^PSJMEDS | SORTQ+2, SORTQ+4 |
| MEDTYPE^PSJMEDS | SORTQ+5 |
| WARD^PSJMEDS | SORTQ+3 |
| ^PSJMPRT | PRTQ+1 |
| $$SELDEV^PSJMUTL | ASK+7, ENLM+9 |
| EXIT^PSJMUTL | EXIT+2 |
| EXITDEV^PSJMUTL | EXIT+2 |
| SETPRTQ^PSJMUTL | SORTQ+10 |
| SETSORTQ^PSJMUTL | EN+4 |
| DEM^VADPT | ENLM+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | PSJMDWS+4!, EXIT+1!, ENLM+2! |
| Name | Line Occurrences |
|---|---|
| ASK | PSJMDWS+5 |
| EN | ENLM+10 |
| EXIT | PSJMDWS+5, EN, SORTQ+6 |
| SORTQ | EN+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMIN | SORTQ+1~ |
| CD | SORTQ+1~ |
| >> DFN | ENLM+3* |
| DRG | SORTQ+1~ |
| DRGI | SORTQ+1~ |
| DRGN | SORTQ+1~ |
| DRGT | SORTQ+1~ |
| IO("Q" | EN |
| MID | SORTQ+1~ |
| MN | SORTQ+1~ |
| ND | SORTQ+1~ |
| ND1 | SORTQ+1~ |
| OD | SORTQ+1~ |
| ON | SORTQ+1~ |
| PFLG | EXIT+4! |
| PLSD | SORTQ+1~ |
| PPN | SORTQ+5*, EXIT+4!, ENLM+4* |
| PSGEXPDT | EXIT+4! |
| PSGIO | SORTQ+6, EXIT+4! |
| PSGLFD | EXIT+4! |
| PSGLOD | EXIT+4! |
| PSGLSD | EXIT+4! |
| PSGMAR | EXIT+4! |
| PSGMARWD | EXIT+4! |
| PSGMFOR | EXIT+4! |
| PSGMTYPE | EXIT+4!, ASK+6*, ENLM+8* |
| PSGOES | EXIT+4! |
| PSGON | EXIT+4! |
| PSGP | SORTQ+5*, EXIT+4!, ENLM+3, ENLM+4 |
| PSGP(0 | ENLM+3*, ENLM+4 |
| PSGPAT | EXIT+4! |
| PSGPAT( | SORTQ+5, ENLM+4* |
| PSGPG | EXIT+4! |
| PSGPLC | EXIT+4! |
| PSGPLF | EXIT+4!, ASK+4*, ENLM+7* |
| PSGPLO | EXIT+4! |
| PSGPLS | EXIT+5!, ASK+3*, ENLM+6* |
| PSGRBADM | EXIT+5! |
| PSGRBPPN | EXIT+5! |
| PSGRETF | EXIT+5! |
| PSGS0XT | EXIT+5! |
| PSGS0Y | EXIT+5! |
| PSGSS | SORTQ+2, SORTQ+3, SORTQ+4, SORTQ+5, EXIT+5!, ENLM+4* |
| PSGTM | EXIT+5! |
| PSGTMALL | EXIT+5! |
| PSGTMP | EXIT+5!, ASK+3*, ASK+4, ENLM+6*, ENLM+7 |
| PSGTMP1 | EXIT+5!, ASK+3*, ASK+4, ENLM+6*, ENLM+7 |
| PSGWD | EXIT+5!, ASK+6, ENLM+8 |
| PSGWG | SORTQ+4*, EXIT+5! |
| PSGWGNM | EXIT+5! |
| PSGWN | EXIT+6! |
| PSGWN1 | EXIT+6! |
| PSIVUP | SORTQ+1~ |
| PSJACNWP | SORTQ+5*, EXIT+6! |
| PSJADT | EXIT+6! |
| PSJADT1 | EXIT+6! |
| PSJADTME | EXIT+6! |
| PSJADTO | EXIT+6! |
| PSJASTR | EXIT+7! |
| PSJATME | EXIT+7! |
| PSJATME1 | EXIT+6! |
| PSJATMEO | EXIT+6!, EXIT+7! |
| PSJDOS | EXIT+7! |
| PSJHL1 | EXIT+7! |
| PSJHL2 | EXIT+7! |
| PSJHL3 | EXIT+7! |
| PSJHL62 | EXIT+7! |
| PSJHOLD | EXIT+7! |
| PSJLN | EXIT+7! |
| >> PSJMDWS | ENLM+4* |
| PSJMPRN | EXIT+7!, ASK+2*, ENLM+5* |
| PSJMR | EXIT+7! |
| PSJNEED | EXIT+7! |
| PSJONCAL | EXIT+7! |
| PSJONETM | EXIT+7! |
| PSJORIFN | SORTQ+1~ |
| PSJPLC | EXIT+8! |
| PSJPRB | EXIT+8! |
| PSJPRT | EXIT+8! |
| PSJPWDN | EXIT+8! |
| PSJPWDO | EXIT+8! |
| PSJSCHE | EXIT+8! |
| PSJSI | EXIT+8! |
| PSJSTOP | PSJMDWS+4*, PSJMDWS+5, EXIT+8!, ENLM+2* |
| PSJTOTLN | EXIT+8! |
| PST | SORTQ+1~ |
| QST | SORTQ+1~ |
| RBNO | SORTQ+1~ |
| ST | SORTQ+1~ |
| T | SORTQ+1~ |
| TM | SORTQ+1~ |
| TMNO | SORTQ+1~ |
| TS | SORTQ+1~ |
| UD0 | SORTQ+1~ |
| UD2 | SORTQ+1~ |
| VADM | ENLM+2~, ENLM+3! |
| VADM(1 | ENLM+3 |
| >> X | ASK+3, ENLM+6 |
| >> X1 | ASK+3*, ENLM+6* |
| >> X2 | ASK+3*, ENLM+6* |
| XDESC | EN+1~, EN+2*, EN+4, SORTQ+7~, SORTQ+8*, SORTQ+10 |
| XSAVE | EN+1~, EN+3*, EN+4, SORTQ+7~, SORTQ+9*, SORTQ+10 |
| XTRTN | EN+1~, EN+4*, SORTQ+7~, SORTQ+10* |
| XTYPE | SORTQ+1~ |
| >> Y | ASK+2, ASK+3, ASK+4, ASK+6, ENLM+5, ENLM+6, ENLM+7, ENLM+8 |
| ZSTOP | EXIT+8! |
| ZTQUEUED | EXIT+8! |