©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
BDGILD62 ; IHS/ANMC/LJF - TRANSFERS BETWEEN FACILITIES(PRINT) ;
Source file <BDGILD62.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 2 | $$NUMDATE^BDGF $$HRCN^BDGF2 |
| Kernel | 1 | $$REPEAT^XLFSTR |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET(DATA,NUM) | ; put display line into array
|
|
| STAT | ; gather stats by facility
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
| LISTS | ; gather patient lists
|
|
| LINE | ; build patient data line
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("BDGILD6" | SET+2* |
| ^TMP("BDGILD6A" | LISTS+5, LISTS+6, LISTS+7, LISTS+9, LISTS+10, LISTS+23! |
| ^TMP("BDGILD6D" | LISTS+15, LISTS+16, LISTS+17, LISTS+19, LISTS+20, LISTS+23! |
| Name | Line Occurrences |
|---|---|
| $$PAD | STAT+6, STAT+8, STAT+10, STAT+16, LINE+1, LINE+2, LINE+3, SP+1 |
| $$SP | STAT+16, LISTS+4, LISTS+14 |
| LINE | LISTS+11, LISTS+21 |
| LISTS | BDGILD62+4 |
| SET | STAT+12, STAT+15, STAT+17, LISTS+4, LISTS+14, LINE+4 |
| STAT | BDGILD62+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDGTI | STAT+1~, STAT+2*, STAT+9*, STAT+16 |
| BDGTO | STAT+1~, STAT+2*, STAT+11*, STAT+16 |
| >> BDGTYP | BDGILD62+3, BDGILD62+4 |
| D | PAD~, PAD+2 |
| DATA | SET~, SET+2 |
| DATE | LISTS+1~, LISTS+5*, LISTS+6, LISTS+7, LISTS+9, LISTS+10, LISTS+15*, LISTS+16, LISTS+17, LISTS+19 , LISTS+20, LINE+1 |
| DFN | LISTS+1~, LISTS+10*, LISTS+20*, LINE+1, LINE+2 |
| >> DGCT( | STAT+3, STAT+5, STAT+8, STAT+9, STAT+10, STAT+11 |
| DUZ(2 | LINE+2 |
| FAC | STAT+1~, STAT+3*, STAT+4, STAT+5, STAT+8, STAT+9, STAT+10, STAT+11, LISTS+1~, LISTS+7* , LISTS+9, LISTS+10, LISTS+17*, LISTS+19, LISTS+20, LINE+3 |
| IEN | LISTS+1~, LISTS+8*, LISTS+9*, LISTS+10, LISTS+18*, LISTS+19*, LISTS+20 |
| L | PAD~, PAD+2 |
| LINE | STAT+1~, STAT+4*, STAT+6*, STAT+8*, STAT+10*, STAT+12*, STAT+16*, STAT+17, LINE+1*, LINE+2* , LINE+3*, LINE+4 |
| N | SP~, SP+1 |
| NUM | SET~, SET+1*, SET+2 |
| SRV | STAT+1~, STAT+5*, STAT+6, STAT+8, STAT+9, STAT+10, STAT+11, LISTS+1~, LISTS+6*, LISTS+7 , LISTS+9, LISTS+10, LISTS+16*, LISTS+17, LISTS+19, LISTS+20, LINE+3 |
| U | STAT+8, STAT+9, STAT+10, STAT+11 |
| >> VALMCNT | STAT+12, STAT+15, STAT+17, LISTS+4, LISTS+14, LINE+4 |