©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
BDGADD1 ; IHS/ANMC/LJF - A&D DETAILED PRINT CONT. ; [ 07/01/2002 10:18 AM ]
Source file <BDGADD1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 3 | SET^BDGADD ^BDGADD2 $$HRCN^BDGF2 |
| IHS Changes To Scheduling | 1 | PCP^BSDU1 |
| 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^BDGADD |
|
| DEATHS | ; Now display any deaths
; display total # of deaths first |
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| TRANSFER | ; loop through transfers (ward and service)
|
|
| COUNT(X,X1) | ; returns # of events based on type sent in X and X1
; X can = "ADMIT" or "DSCH" or "DEATH" ; X1 can = "O" or "I" or "N" or "" if X="DEATH" |
|
| COUNT2(X) | ; returns # of events based on type sent in X and X1
; X can = "WARD" or "SERV" |
|
| ADMITS | ; build array of admits
; first for inpatients, then observations, then newborns |
|
| SET(LINE,NUM) | ; put display line into array
|
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DIC(45.7 - [#45.7] | GET1^DIQ |
| ^AUPNPAT - [#9000001] | GET1^DIQ |
| ^BDGWD - [#9009016.5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BDGCTX - [#9009016.6] | COUNT+6, COUNT+13 |
| ^TMP("BDGAD" | ADMITS+12, ADMITS+13, ADMITS+17, ADMITS+18, TRANSFER+13, TRANSFER+14, TRANSFER+15, TRANSFER+17, DEATHS+7, DEATHS+8 , DEATHS+11 |
| Name | Line Occurrences |
|---|---|
| $$COUNT | ADMITS+9, DEATHS+5 |
| $$COUNT2 | TRANSFER+10 |
| $$PAD | ADMITS+9, ADMITS+22, ADMITS+23, ADMITS+24, ADMITS+25, ADMITS+26, ADMITS+27, ADMITS+29, TRANSFER+19, TRANSFER+21 , TRANSFER+22, DEATHS+5, DEATHS+12, DEATHS+13, DEATHS+14, DEATHS+15, DEATHS+16, DEATHS+18, DEATHS+19, DEATHS+22 , SP+1 |
| ADMITS | PATDATA+3 |
| DEATHS | PATDATA+3 |
| SET | ADMITS+9, ADMITS+31, TRANSFER+11, TRANSFER+23, DEATHS+5, DEATHS+24 |
| TRANSFER | PATDATA+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BDGT | COUNT+13, COUNT2+6 |
| BDGX | ADMITS+28!*, DEATHS+21!* |
| BDGX(1 | ADMITS+29, DEATHS+22 |
| COUNT | COUNT+4~, COUNT+14*, COUNT+15, COUNT2+3~, COUNT2+7*, COUNT2+8 |
| D | PAD~, PAD+2 |
| DATA | ADMITS+2~, ADMITS+18*, ADMITS+23, ADMITS+25, ADMITS+26, ADMITS+27, TRANSFER+1~, TRANSFER+17*, TRANSFER+21, TRANSFER+22 , DEATHS+2~, DEATHS+11*, DEATHS+14, DEATHS+16, DEATHS+18, DEATHS+19 |
| DFN | ADMITS+2~, ADMITS+13*, ADMITS+17, ADMITS+18, ADMITS+21, ADMITS+22, ADMITS+24, ADMITS+28, TRANSFER+1~, TRANSFER+14* , TRANSFER+15, TRANSFER+17, TRANSFER+20, DEATHS+2~, DEATHS+8*, DEATHS+11, DEATHS+12, DEATHS+13, DEATHS+15, DEATHS+21 |
| DUZ(2 | ADMITS+22, TRANSFER+20, DEATHS+13 |
| FIELD | TRANSFER+1~, TRANSFER+6*, TRANSFER+21, TRANSFER+22 |
| FILE | TRANSFER+1~, TRANSFER+6*, TRANSFER+21, TRANSFER+22 |
| GBL | COUNT2+3~, COUNT2+4*, COUNT2+5, COUNT2+6 |
| IFN | ADMITS+2~, ADMITS+17*, ADMITS+18, TRANSFER+1~, TRANSFER+15*, TRANSFER+17, DEATHS+2~ |
| L | PAD~, PAD+2 |
| LINE | ADMITS+2~, ADMITS+21*, ADMITS+22*, ADMITS+23*, ADMITS+24*, ADMITS+25*, ADMITS+26*, ADMITS+27*, ADMITS+29*, ADMITS+31 , TRANSFER+19*, TRANSFER+20*, TRANSFER+21*, TRANSFER+22*, TRANSFER+23, DEATHS+2~, DEATHS+12*, DEATHS+13*, DEATHS+14*, DEATHS+15* , DEATHS+16*, DEATHS+18*, DEATHS+19*, DEATHS+22*, DEATHS+24, SET~, SET+1 |
| N | COUNT+4~, COUNT+13*, COUNT+14, COUNT2+3~, COUNT2+6*, COUNT2+7, SP~, SP+1 |
| NAME | ADMITS+2~, ADMITS+12*, ADMITS+13, ADMITS+17, ADMITS+18, TRANSFER+1~, TRANSFER+13*, TRANSFER+14, TRANSFER+15, TRANSFER+17 , TRANSFER+19, DEATHS+2~, DEATHS+7*, DEATHS+8, DEATHS+11 |
| NUM | SET~, SET+1 |
| PIECE | COUNT+4~, COUNT+5*, COUNT+14 |
| SNM | COUNT+4~, COUNT+7*, COUNT+8, COUNT+9, COUNT+10, COUNT+11 |
| SUB | ADMITS+2~, ADMITS+3*, ADMITS+8, ADMITS+9, ADMITS+12, ADMITS+13, ADMITS+17, ADMITS+18, TRANSFER+1~, TRANSFER+3* , TRANSFER+6, TRANSFER+9, TRANSFER+10, TRANSFER+13, TRANSFER+14, TRANSFER+15, TRANSFER+17 |
| SUB2 | ADMITS+2~, ADMITS+4*, ADMITS+7, ADMITS+9, ADMITS+12, ADMITS+13, ADMITS+17, ADMITS+18 |
| SV | COUNT+4~, COUNT+6*, COUNT+7, COUNT+13, COUNT2+3~, COUNT2+5*, COUNT2+6 |
| TITLE | ADMITS+2~, ADMITS+7*, ADMITS+9, TRANSFER+1~, TRANSFER+9*, TRANSFER+11 |
| TITLE2 | ADMITS+2~, ADMITS+8*, ADMITS+9 |
| U | ADMITS+23, ADMITS+25, ADMITS+26, ADMITS+27, TRANSFER+21, TRANSFER+22, DEATHS+14, DEATHS+16, DEATHS+18, DEATHS+19 , COUNT+14, COUNT2+7 |
| >> VALMCNT | ADMITS+9, ADMITS+31, TRANSFER+11, TRANSFER+23, DEATHS+5, DEATHS+24 |
| X | ADMITS+2~, ADMITS+9*, TRANSFER+1~, TRANSFER+10*, TRANSFER+11, DEATHS+2~, DEATHS+5*, COUNT~, COUNT+5, COUNT+8 , COUNT+9, COUNT+10, COUNT+11, COUNT2~, COUNT2+4 |
| X1 | COUNT~, COUNT+8, COUNT+9, COUNT+10, COUNT+11 |