©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
BDGADS1 ; IHS/ANMC/LJF - A&D SUMMARY PRINT CONT. ;
Source file <BDGADS1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 3 | SET^BDGADS ^BDGADS2 $$HRCN^BDGF2 |
| Kernel | 1 | $$REPEAT^XLFSTR |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PATDATA | ;EP; build display lines for patient data
; called by INIT^BDGADS |
|
| DEATHS | ; Now display any deaths
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| TRANSFER | ; loop through transfers (ward and service)
|
|
| ADMITS | ; build array of admits and discharges
|
|
| SET(LINE,NUM) | ; put display line into array
|
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
| FileNo | Call Tags |
|---|---|
| ^DIC(45.7 - [#45.7] | GET1^DIQ |
| ^BDGWD - [#9009016.5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("BDGAD" | ADMITS+2, ADMITS+6, ADMITS+21, ADMITS+22, ADMITS+25, ADMITS+26, TRANSFER+2, TRANSFER+16, TRANSFER+17, TRANSFER+18 , TRANSFER+20, DEATHS+2, DEATHS+7, DEATHS+8, DEATHS+10 |
| Name | Line Occurrences |
|---|---|
| $$PAD | ADMITS+10, ADMITS+12, ADMITS+30, ADMITS+31, ADMITS+32, ADMITS+38, TRANSFER+5, TRANSFER+7, TRANSFER+23, TRANSFER+24 , TRANSFER+25, TRANSFER+30, DEATHS+12, DEATHS+13, DEATHS+14, SP+1 |
| $$SP | ADMITS+10, TRANSFER+5, DEATHS+4, DEATHS+5, DEATHS+11 |
| ADMITS | PATDATA+3 |
| DEATHS | PATDATA+3 |
| SET | ADMITS+11, ADMITS+13, ADMITS+39, TRANSFER+6, TRANSFER+8, TRANSFER+31, DEATHS+4, DEATHS+5, DEATHS+15 |
| TRANSFER | PATDATA+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMIT | ADMITS+18~ |
| ADMIT( | ADMITS+37, ADMITS+38 |
| COUNT | ADMITS+18~, ADMITS+20*, ADMITS+33*, ADMITS+37*, ADMITS+38, TRANSFER+1~, TRANSFER+11*, TRANSFER+26*, TRANSFER+29*, TRANSFER+30 |
| D | PAD~, PAD+2 |
| DATA | ADMITS+18~, ADMITS+26*, ADMITS+29, ADMITS+30, TRANSFER+20*, TRANSFER+22, TRANSFER+23, DEATHS+1~, DEATHS+10*, DEATHS+11 , DEATHS+12 |
| DFN | ADMITS+18~, ADMITS+22*, ADMITS+25, ADMITS+26, ADMITS+31, TRANSFER+1~, TRANSFER+17*, TRANSFER+18, TRANSFER+20, TRANSFER+24 , DEATHS+1~, DEATHS+8*, DEATHS+10, DEATHS+13 |
| DSCH | ADMITS+18~ |
| DSCH( | ADMITS+37, ADMITS+38 |
| DUZ(2 | ADMITS+31, TRANSFER+24, DEATHS+13 |
| FIELD | TRANSFER+1~, TRANSFER+14*, TRANSFER+22, TRANSFER+23 |
| FILE | TRANSFER+1~, TRANSFER+14*, TRANSFER+22, TRANSFER+23 |
| IFN | ADMITS+18~, ADMITS+25*, ADMITS+26, TRANSFER+1~, TRANSFER+18*, TRANSFER+20 |
| L | PAD~, PAD+2 |
| LINE | ADMITS+1~, ADMITS+10*, ADMITS+11, ADMITS+12*, ADMITS+13, ADMITS+29*, ADMITS+30*, ADMITS+31*, ADMITS+32*, ADMITS+33 , ADMITS+38*, ADMITS+39, TRANSFER+1~, TRANSFER+5*, TRANSFER+6, TRANSFER+7*, TRANSFER+8, TRANSFER+22*, TRANSFER+23*, TRANSFER+24* , TRANSFER+25*, TRANSFER+26, TRANSFER+30*, TRANSFER+31, DEATHS+1~, DEATHS+11*, DEATHS+12*, DEATHS+13*, DEATHS+14*, DEATHS+15 , SET~, SET+1 |
| N | SP~, SP+1 |
| NAME | ADMITS+18~, ADMITS+21*, ADMITS+22, ADMITS+25, ADMITS+26, ADMITS+32, TRANSFER+1~, TRANSFER+16*, TRANSFER+17, TRANSFER+18 , TRANSFER+20, TRANSFER+25, DEATHS+1~, DEATHS+7*, DEATHS+8, DEATHS+10, DEATHS+14 |
| NUM | SET~, SET+1 |
| SERV | TRANSFER+1~ |
| SERV( | TRANSFER+29, TRANSFER+30 |
| >> SUB | ADMITS+19*, ADMITS+21, ADMITS+22, ADMITS+25, ADMITS+26, ADMITS+33, TRANSFER+10*, TRANSFER+14, TRANSFER+16, TRANSFER+17 , TRANSFER+18, TRANSFER+20, TRANSFER+26 |
| SUB2 | ADMITS+1~, ADMITS+4*, ADMITS+6, ADMITS+9, ADMITS+21, ADMITS+22, ADMITS+25, ADMITS+26 |
| U | ADMITS+29, ADMITS+30, TRANSFER+22, TRANSFER+23, DEATHS+12 |
| >> VALMCNT | ADMITS+11, ADMITS+13, ADMITS+39, TRANSFER+6, TRANSFER+8, TRANSFER+31, DEATHS+4, DEATHS+5, DEATHS+15 |
| WARD | TRANSFER+1~ |
| WARD( | TRANSFER+29, TRANSFER+30 |
| X | ADMITS+1~, ADMITS+9*, ADMITS+10 |