©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
PSGEUDD ;BIR/MV-EXTRA UNITS DISPENSED REPORT ;14 JAN 97 / 9:22 AM
Source file <PSGEUDD.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 7 | ^PSGEUDP $$ENDDN^PSGMI ENKV^PSGSETU ^PSJAC ($$STDATE,$$STOP)^PSJMDIR $$GWP^PSJMDIR1 ($$SELDEV,EXIT,SETPRTQ,SETSORTQ)^PSJMUTL |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WARDGP | ;*** Find wards within a ward group
|
|
| C | ;***Select by CLINIC
|
|
| G | ;***Select by WARD GROUP
|
|
| START | ;***Start queuing here.
|
|
| ALLTM | ;*** Get UNIT DOSE information from ^PS(55
|
|
| P | ;***Select by Patient
|
|
| EXIT | ;***Exit report here.
|
|
| TMPWG | ;***Set ^TMP global for selected by Ward/Ward Group.
|
|
| W | ;***Select by Ward
|
|
| TEAM | ;*** Look up selected team. PSGTMALL= All teams were selected.
|
|
| ASK | ;***Ask for date range and output device
|
|
| NEW | ;***New needed variables.
|
|
| WARD | ;*** Go through each patient within a given WARD
|
|
| TMPPT | ;***Set ^TMP global for selected by patient.
|
|
| LOOP | ;***Loop thru ^PS(55 on the Dispense log multiple.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | WARDGP+1 |
| ^DPT("CN" | WARD+3 |
| ^PS(55 - [#55] | C+3, C+4, LOOP+1, LOOP+3, LOOP+4 |
| ^PS(57.5 - [#57.5] | WARDGP+1 |
| ^PS(57.7 - [#57.7] | ALLTM+3 |
| ^TMP($J | NEW+1!, EXIT+3!, TMPWG+1*, TMPPT+1* |
| Name | Line Occurrences |
|---|---|
| @( | START+1, LOOP+5 |
| ALLTM | TEAM+2, TEAM+4 |
| EXIT | ASK+7, START+3 |
| LOOP | P+1, C+4, WARD+3, TEAM+2, TEAM+3, TEAM+4 |
| START | ASK+13 |
| TEAM | WARD+3 |
| WARD | W+1, WARDGP+1 |
| WARDGP | G+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | WARDGP+1, ALLTM+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMT | NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1 |
| CLIN | C+1~, C+3*, C+4 |
| DIR | ASK+2! |
| DIR("?" | ASK+2* |
| DIR("A" | ASK+2* |
| DIR(0 | ASK+2* |
| DRG | NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1 |
| DT | C+1~, C+3*, C+4 |
| IO("Q" | ASK+5, ASK+7 |
| ND | NEW+2~, LOOP+4*, LOOP+5 |
| NO | NEW+2~, LOOP+4* |
| PPN | NEW+2~, P+1*, C+4*, WARD+3*, TMPWG+1, TMPPT+1 |
| PSGDT | EXIT+3!, LOOP+2*, LOOP+3*, LOOP+4, TMPWG+1, TMPPT+1 |
| PSGEDT | ASK+2*, EXIT+3!, C+3, LOOP+3 |
| PSGIO | EXIT+3!, START+3 |
| PSGORD | EXIT+3!, LOOP+1*, LOOP+3, LOOP+4 |
| PSGP | EXIT+3!, P+1*, C+4*, WARD+3*, LOOP+1, LOOP+3, LOOP+4, TMPWG+1, TMPPT+1 |
| PSGP(0 | C+4, WARD+3 |
| PSGPAT | EXIT+3! |
| PSGPAT( | P+1 |
| PSGSDT | ASK+1*, ASK+2, EXIT+3!, C+3, LOOP+2 |
| PSGSS | EXIT+3!, START+1, WARD+3, LOOP+5 |
| PSGTM | EXIT+3!, TEAM+3 |
| PSGTM( | TEAM+4 |
| PSGTMALL | EXIT+3!, TEAM+2 |
| PSGWD | EXIT+3!, WARDGP+1*, ALLTM+3 |
| PSGWG | EXIT+3!, WARDGP+1 |
| PSGWGNM | EXIT+3! |
| PSGWN | EXIT+3!, WARDGP+1*, WARD+3, TMPWG+1 |
| PSJACNWP | NEW+2~, P+1*, C+2*, WARD+2* |
| >> PSJPBID | TMPWG+1 |
| PSJPPID | P+1!, TMPPT+1 |
| PSJPRB | P+1!, ALLTM+3, TMPPT+1 |
| >> PSJPWDN | TMPPT+1 |
| PSJSTOP | EXIT+3! |
| TM | NEW+2~, C+2*, WARDGP+1*, TEAM+1*, TEAM+3*, TEAM+4, ALLTM+2*, ALLTM+3*, TMPWG+1 |
| U | WARDGP+1, ALLTM+3, LOOP+5, TMPWG+1, TMPPT+1 |
| WHO | NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1 |
| XDESC | NEW+2~, ASK+8*, ASK+12, START+4*, START+7 |
| XSAVE | NEW+2~, ASK+10*, ASK+12, START+5*, START+7 |
| XTRTN | NEW+2~, ASK+11*, ASK+12, START+6*, START+7 |
| >> Y | ASK+1, ASK+2 |