©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
BDGEAN ; IHS/ANMC/LJF - INPTS W/ EXTERNAL ACCT # ;
Source file <BDGEAN.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2 |
| Kernel | 3 | ^%ZISC $$REPEAT^XLFSTR DISP^XQORM1 |
| IHS Changes To ADT | 2 | ($$BROWSE,$$CONF,$$NUMDATE,INIT,PAUSE,PRTKL,ZIS)^BDGF $$HRCN^BDGF2 |
| VA Fileman | 2 | ^DIE $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for BDG IPL W/ ACCT NO
|
|
| HELP | ; -- help code
|
|
| EDIT | ;EP; select patient from list and edit account #
|
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
| EXPND | ; -- expand code
|
|
| HDG | ; heading when printing to paper
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| INIT | ; -- init variables and list array
|
|
| EXIT | ; -- exit code
|
|
| SET(DATA,CNT,IEN,NUM) | ; put display line into array
|
|
| ;
|
||
| HDR | ; -- header code
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZISC | PRINT+6 |
| $$BROWSE^BDGF | BDGEAN+3 |
| $$CONF^BDGF | HDG+2 |
| $$NUMDATE^BDGF | INIT+16 |
| INIT^BDGF | PRINT+2 |
| PAUSE^BDGF | EDIT+14 |
| PRTKL^BDGF | PRINT+6 |
| ZIS^BDGF | BDGEAN+4 |
| $$HRCN^BDGF2 | INIT+15 |
| ^DIE | EDIT+17 |
| $$GET1^DIQ | INIT+13, INIT+14, INIT+16, INIT+17, EDIT+13, EDIT+16 |
| EN^VALM | EN+4 |
| TERM^VALM0 | EN+3 |
| CLEAR^VALM1 | EN+3, EN+5 |
| FULL^VALM1 | EDIT+2 |
| EN^VALM2 | EDIT+3 |
| $$REPEAT^XLFSTR | HDG+4, HDG+6, PAD+2 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGPM - [#405] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT("CN" | INIT+5, INIT+11, INIT+12 |
| ^TMP("BDGEAN" | INIT+3!, INIT+21, SET+2*, SET+3*, EDIT+6, EDIT+7, EDIT+8, EDIT+9, PRINT+3, PRINT+5 |
| Name | Line Occurrences |
|---|---|
| $$PAD | INIT+15, INIT+16, INIT+17, SP+1 |
| EN | BDGEAN+3 |
| EXIT | PRINT+6 |
| HDG | PRINT+2, PRINT+4 |
| HDR | EDIT+18 |
| INIT | EN+1, EDIT+18 |
| EN+1 | |
| SET | INIT+7, INIT+9, INIT+18, INIT+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADM | INIT+1~, INIT+12*, INIT+13, INIT+16, INIT+18 |
| >> BDGDATE | HDG+3 |
| BDGN | EDIT+1~, EDIT+9*, EDIT+11, EDIT+13 |
| BDGPG | PRINT+1~, HDG+1*, HDG+3 |
| >> BDGTIME | HDG+2 |
| >> BDGUSR | HDG+2 |
| >> BDGX | PRINT+3*, PRINT+5 |
| CNT | SET~, SET+3 |
| COUNT | INIT+1~, INIT+2*, INIT+7, INIT+9, INIT+14, INIT+18, INIT+19* |
| D | PAD~, PAD+2 |
| DA | EDIT+15~, EDIT+17* |
| DATA | SET~, SET+2 |
| DFN | INIT+1~, INIT+11*, INIT+12, INIT+14, INIT+15 |
| DIE | EDIT+15~, EDIT+17* |
| DR | EDIT+15~, EDIT+17* |
| DUZ(2 | INIT+15 |
| FIRST | INIT+1~, INIT+2*, INIT+7, INIT+8* |
| IEN | SET~, SET+3 |
| IO | PRINT+2 |
| IOF | HDG+1 |
| IOSL | PRINT+4 |
| IOST | EN+1 |
| L | PAD~, PAD+2 |
| LINE | INIT+1~, INIT+14*, INIT+15*, INIT+16*, INIT+17*, INIT+18 |
| N | SP~, SP+1 |
| NUM | SET~, SET+1*, SET+2, SET+3 |
| >> VALMBCK | EDIT+11*, EDIT+14*, EDIT+18* |
| VALMCNT | EN+2~, INIT+2*, INIT+7, INIT+9, INIT+18, INIT+21 |
| >> VALMY | EDIT+4 |
| >> VALMY( | EDIT+5 |
| VST | INIT+1~, INIT+13*, INIT+17, EDIT+13~*, EDIT+14, EDIT+16, EDIT+17 |
| WARD | INIT+1~, INIT+5*, INIT+9, INIT+11, INIT+12 |
| X | HELP+1*, EDIT+1~, EDIT+5*, EDIT+9 |
| >> XQORNOD(0 | EDIT+3 |
| Y | EDIT+1~, EDIT+6*, EDIT+7, EDIT+8, EDIT+9 |
| Z | EDIT+1~, EDIT+7*, EDIT+8, EDIT+9 |