©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
BDGPCCE ; IHS/ANMC/LJF - CODE PCC H VISIT ;
Source file <BDGPCCE.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 2 | $$READ^BDGF ^BDGPCCEL |
| Kernel | 2 | $$FMADD^XLFDT $$REPEAT^XLFSTR |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASK | ; ask user to select patient and visit
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVINP("AD" | ASK+16 |
| ^AUPNVSIT("AAH" | ASK+6, ASK+8 |
| Name | Line Occurrences |
|---|---|
| $$PAD | ASK+14, SP+1 |
| ASK | ASK+23, ASK+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | ASK+1~, ASK+30 |
| ARRAY( | ASK+29* |
| BDGA | ASK+1~, ASK+23 |
| BDGA( | ASK+14*, ASK+17*, ASK+21*, ASK+28, ASK+29, ASK+32 |
| >> BDGV | ASK+32* |
| COUNT | ASK+1~, ASK+13*, ASK+14, ASK+17, ASK+21, ASK+28*, ASK+29, ASK+30 |
| D | PAD~, PAD+2 |
| DATE | ASK+1~, ASK+5*, ASK+6*, ASK+8 |
| DFN | ASK+1~, ASK+2*, ASK+6, ASK+8 |
| DT | ASK+5 |
| DUZ(2 | ASK+10 |
| END | ASK+1~, ASK+5*, ASK+6 |
| L | PAD~, PAD+2 |
| N | SP~, SP+1 |
| U | ASK+14, ASK+29 |
| VSTN | ASK+1~, ASK+7*, ASK+8*, ASK+9, ASK+10, ASK+14, ASK+16, ASK+20 |
| >> X | ASK+16*, ASK+20*, ASK+21 |
| >> Y | ASK+30*, ASK+31, ASK+32 |