DGPMBSR ;ALB/LM - BED STATUS REPORT RECALCULATION; [ 05/30/2002 1:17 PM ]
Source file <DGPMBSR.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS Changes To ADT | 2 | PURG^BDGAD0 ^BDGAD1 | 
| VA Fileman | 2 | (C,YMD)^%DTC ^DIE | 
| Registration | 1 | CLEAN^DGPMGLG | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| A | ||
| Q | ||
| VAR | ;  RC=ReCalc from date  ;  YD=YesterDay  ;  RD=Report Date  ; ; BS=Bed Status ; GL=G&L ; REM=Recalc patient days ; ; PD=Previous Day ; W=Ward ; D=Division ; T=Treating Speciality | |
| UP43 | ; | |
| DELETE | ; Nulls earliest date to correct in the G&L Corrections file once that date has been recalculated and set recalculation date | 
| FileNo | Call Tags | 
|---|---|
| ^DG(43 - [#43] | Classic Fileman Calls | 
| ^DGS(43.5 - [#43.5] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("VOL" | UP43+3 | 
| ^%ZTSK - [#14.4] | UP43+2 | 
| ^DGS(43.5 - [#43.5] | A+14, DELETE+1 | 
| Name | Line Occurrences | 
|---|---|
| DELETE | A+14 | 
| Name | Field # of Occurrence | 
|---|---|
| ^("VOL" | UP43+3 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> %H | UP43+2* | 
| BD | Q! | 
| >> BS | A+6, A+9*, A+19* | 
| C | Q! | 
| D | Q! | 
| DA | A+18*!, Q!, UP43+3*!, DELETE+1* | 
| DAYC | A+9*, A+14*, Q! | 
| DGI | Q!, DELETE+1* | 
| DGP | Q! | 
| DGP("BS" | A+6*, A+19 | 
| DGP("GL" | A+6*, A+19 | 
| DGP("PD" | A+6*, A+19 | 
| DGP("RD" | A+6*, A+19 | 
| DGP("REM" | A+6*, A+19 | 
| DGP("TSR" | A+6*, A+19 | 
| DGX | UP43+2*! | 
| DIE | A+18*!, Q!, UP43+3*!, DELETE+1* | 
| DR | A+18*!, Q!, UP43+3*!, DELETE+1* | 
| DT | A+7, DELETE+1 | 
| >> GL | A+6, A+9*, A+19* | 
| I | Q!, DELETE+1* | 
| I1 | Q! | 
| IO("Q" | UP43+3! | 
| >> PD | A+6, A+8, A+14*, A+19* | 
| PP | A+14*, Q! | 
| >> RC | A, A+4, A+14, A+19* | 
| >> RD | A+6, A+14*, A+19* | 
| >> REM | A+6, A+19* | 
| T | Q! | 
| >> TSR | A+6, A+9*, A+19* | 
| >> TSRIPD | A+8* | 
| W | Q! | 
| X | A+7, A+8, A+14, Q!, UP43+2 | 
| X1 | A+7*, A+8*, A+14*, Q! | 
| X2 | A+7*, A+8*, A+14*, Q! | 
| >> Y | UP43+3* | 
| >> YD | A+7*, A+14 | 
| >> Z | UP43+2*, UP43+3* | 
| ZTSK | UP43+2, UP43+3*! |