©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
BAR50L02 ; IHS/SD/LSL - AR DOWNLOAD FILE LIST ;
Source file <BAR50L02.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 4 | (,HOME)^%ZIS ^%ZTLOAD $$REPEAT^XLFSTR DISP^XQORM1 |
| Registration | 4 | EN^VALM TERM^VALM0 CLEAR^VALM1 EN^VALM2 |
| Uncategorized | 2 | PRINT^AMCOHL1 ($$READ,$$VALMSG,MSG)^AMCOUT |
| VA Fileman | 2 | ^DIC ^DIE |
| IHS Accounts Receivable | 1 | EN^BAR50L03 |
| IHS VA Utilities | 1 | ENPM^XBDIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESET | ;EP; -- code to rebuild array after action
|
|
| EN | ;EP -- main entry point list template
|
|
| GATHER(SUBF) | ; -- SUBRTN to set data into array
|
|
| HDR | ;EP -- header code
|
|
| EDIT | ;EP; -- called to edit document
; called by AMCO HELP EDIT (Add/Edit Help Text) protocol ; called by AMCO DEV HELP EDIT (Add/Edit Help Text) protocol |
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
| EXPND | ;EP -- expand code
|
|
| BROWSE(FILE) | ;EP; -- called to browse help on screen
; Called by AMCO HELP BROWSE (Browse Help Text) protocol |
|
| PAD(D,L) | ; -- SUBRTN to pad length of data
; -- D=data L=length |
|
| INIT | ;EP -- init variables and list array
|
|
| EXIT | ;EP -- exit code
|
|
| GETITEM | ; -- select item from list
|
|
| ;EP; call to print help documents on paper
; Called by AMCO HELP PRINT (Print Help Text) protocol |
||
| NODATA | ; No data to be reported
|
|
| HELP | ;EP -- help code
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | PRINT+6 |
| HOME^%ZIS | PRINT+15 |
| ^%ZTLOAD | PRINT+13 |
| PRINT^AMCOHL1 | PRINT+16 |
| $$READ^AMCOUT | EDIT+4 |
| $$VALMSG^AMCOUT | HDR+1 |
| MSG^AMCOUT | HELP+2 |
| EN^BAR50L03 | BROWSE+7, BROWSE+10 |
| ^DIC | EDIT+8 |
| ^DIE | EDIT+13, EDIT+22 |
| EN^VALM | EN+1 |
| TERM^VALM0 | RESET+2 |
| CLEAR^VALM1 | BAR50L02+4, EXIT+1, PRINT+16 |
| EN^VALM2 | GETITEM+4 |
| ENPM^XBDIQ1 | GATHER+26 |
| $$REPEAT^XLFSTR | PAD+2 |
| DISP^XQORM1 | HELP+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BAREDI("1T" - [#90056.01] | HDR+2 |
| ^TMP($J | GATHER+22!, GATHER+27, GATHER+30, GATHER+32, GATHER+33, GATHER+36*, GATHER+37*, NODATA+2*, NODATA+3*, GETITEM+1! , GETITEM+3, GETITEM+11, GETITEM+12, GETITEM+13, GETITEM+14*, GETITEM+15, BROWSE+2! |
| Name | Line Occurrences |
|---|---|
| $$PAD | GATHER+35, SP+1 |
| GATHER | GETITEM+9 |
| GETITEM | BROWSE+3, EDIT+15, PRINT+3 |
| HDR | RESET+4 |
| INIT | RESET+4 |
| NODATA | GATHER+9, GATHER+27 |
| RESET | PRINT+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | PRINT+2~, PRINT+5* |
| AMCODR | EDIT+3~, EDIT+16, PRINT+2~, PRINT+4 |
| AMCODR( | EDIT+18, EDIT+20 |
| AMCON | EDIT+3~, EDIT+17*, EDIT+18*, EDIT+20 |
| BARDR | GETITEM+1!, BROWSE+3, BROWSE+11! |
| BARDR( | GETITEM+13*, GETITEM+14 |
| >> BAREDL("A" | GATHER+21*, GATHER+26 |
| D | PAD~, PAD+2 |
| >> D2 | GATHER+18* |
| DA | EDIT+3~, EDIT+11*, EDIT+20* |
| >> DATA | GATHER+33*, GATHER+34*, GATHER+35 |
| DIC | EDIT+3~, EDIT+6* |
| DIC(0 | EDIT+7* |
| DIE | EDIT+3~, EDIT+10*, EDIT+19* |
| DLAYGO | EDIT+3~, EDIT+6* |
| DR | EDIT+3~, EDIT+12*, EDIT+21* |
| FILE | BROWSE~ |
| >> FL | GATHER+8*, GATHER+9, GATHER+26, BROWSE+5, BROWSE+8 |
| >> FL02 | GATHER+7*, GATHER+8 |
| >> FL06 | GATHER+6*, GATHER+8 |
| >> FLDNM | GATHER+31*, GATHER+32*, GATHER+33, GATHER+34, GATHER+35 |
| >> FLNUM | HDR+2, GATHER+8 |
| >> FLST | GATHER+5*, GATHER+26 |
| >> HDR | GETITEM+15*, BROWSE+7, BROWSE+10 |
| IO("Q" | PRINT+8, PRINT+12! |
| L | PAD~, PAD+2 |
| >> LAB | GATHER+23* |
| LINE | GATHER+22!, GATHER+40! |
| LINE( | GATHER+31*, GATHER+35*, GATHER+36, GATHER+37 |
| >> LN | GATHER+17* |
| >> LSTFILE | BROWSE+6*, BROWSE+7, BROWSE+9*, BROWSE+10 |
| N | SP~, SP+1 |
| >> PAD( | GATHER+10*, GATHER+11*, GATHER+12*, GATHER+13*, GATHER+14*, GATHER+15*, GATHER+16*, GATHER+35 |
| POP | PRINT+2~, PRINT+7 |
| >> RECN | GATHER+19*, GATHER+30*, GATHER+31, GATHER+32, GATHER+33, GATHER+35, GATHER+36, GATHER+37 |
| SF | GETITEM+6~, GETITEM+7*, GETITEM+8*, GETITEM+9, GETITEM+11, GETITEM+12, GETITEM+13, GETITEM+15 |
| >> SPACE | GATHER+20*, GATHER+34 |
| SUBF | GATHER~, GATHER+36, GATHER+37, NODATA+2, NODATA+3 |
| >> VALMBCK | RESET+1*, RESET+3* |
| >> VALMCNT | INIT+1* |
| >> VALMHDR(1 | HDR+2* |
| >> VALMLST | GETITEM+2*, GETITEM+3* |
| >> VALMQUIT | RESET+1 |
| >> VALMSG | HDR+1* |
| >> VALMY | GETITEM+5 |
| >> VALMY( | GETITEM+8 |
| >> X | HELP+1* |
| >> XQORNOD(0 | GETITEM+4 |
| >> Y | EDIT+4*, EDIT+5, EDIT+9, EDIT+11 |
| Z | GETITEM+6~, GETITEM+10*, GETITEM+11*, GETITEM+12, GETITEM+13, GETITEM+14 |
| >> ZTDESC | PRINT+10* |
| >> ZTRTN | PRINT+9* |
| >> ZTSAVE("AMCODR(" | PRINT+11* |
| ZTSK | PRINT+14! |