©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
IBDF9B1 ;ALB/CJM - ENCOUNTER FORM - (report data fields) ;APRIL 22,1993
Source file <IBDF9B1.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 2 | $$INRANGE^IBDF10A $$DATANAME^IBDFU1B |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PAUSE() | ;pauses after each field discription is displayed
|
|
| ;prints @ARY
|
||
| SETARY | ;writes data field description to @ARY
|
|
| SEARCH(TOP,BOTTOM,LEFT,RIGHT) | ;searches for data fields in IBBLK falling within the rectangle defined by TOP,BOTTOM,LEFT,RIGHT and reports on them
|
|
| RANGE | ;asks the user for the range - returns TOP,BOTTOM,LEFT,RIGHT
|
|
| RTNDESCR | ;sets RTN=package interface and gets fields needed from the 0 node, sets the flags LIST, & WP
|
|
| REPORT | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.5 - [#357.5] | SEARCH+5, SEARCH+6, SEARCH+10, SEARCH+16, SEARCH+17 |
| ^IBE(357.6 - [#357.6] | RTNDESCR+3, SETARY+9 |
| Name | Line Occurrences |
|---|---|
| $$PAUSE | PRINT+6 |
| SEARCH+19 | |
| RANGE | REPORT+3 |
| RTNDESCR | SEARCH+12 |
| SEARCH | REPORT+4 |
| SETARY | SEARCH+15, SEARCH+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | PAUSE+1~, PAUSE+2*, PAUSE+3 |
| ARY | SEARCH+1~, SEARCH+2*, SEARCH+3, SEARCH+20, PRINT+2, PRINT+3, PRINT+4, SETARY+3, SETARY+5, SETARY+6 , SETARY+8, SETARY+9 |
| BOTTOM | REPORT+1~, REPORT+4, RANGE+14*, RANGE+30*, SEARCH~, SEARCH+13, SEARCH+18 |
| CNT | SEARCH+1~, SEARCH+10*, PRINT+1~*, PRINT+4*, PRINT+5* |
| COUNT | SEARCH+1~, SEARCH+4*, PRINT+2*, PRINT+3, PRINT+4, SETARY+2*, SETARY+3, SETARY+5, SETARY+6, SETARY+8 , SETARY+9 |
| DATA | SETARY+1~, SETARY+7*, SETARY+8 |
| DIR | RANGE+3!, RANGE+7!, RANGE+13!, RANGE+18!, RANGE+25! |
| DIR("?" | RANGE+10*, RANGE+22* |
| DIR("A" | RANGE+5*, RANGE+10*, RANGE+16*, RANGE+21* |
| DIR("B" | RANGE+6*, RANGE+11!, RANGE+17*, RANGE+23! |
| DIR(0 | RANGE+6*, RANGE+12*, RANGE+17*, RANGE+24* |
| >> DIRUT | RANGE+7, RANGE+18 |
| DTIME | PAUSE+2 |
| >> DTOUT | RANGE+13, RANGE+25 |
| >> DUOUT | RANGE+13, RANGE+25 |
| FLD | SEARCH+1~, SEARCH+5*, SEARCH+6, SEARCH+10, SEARCH+16, SEARCH+17 |
| FLD("MULTIPLE | SF" , SEARCH+9*, SEARCH+10*, SEARCH+14*, SETARY+3 |
| FLD("NAME" | SEARCH+8*, SETARY+3 |
| FLD("NODE0" | SEARCH+6*, SEARCH+7, SEARCH+8, SEARCH+11, SEARCH+13, RTNDESCR+1, SETARY+4, SETARY+5 |
| HT | RANGE+1~, RANGE+2*, RANGE+6, RANGE+12 |
| I | RANGE+1~ |
| >> IBBLK | SEARCH+5, SEARCH+11 |
| >> IBBLK("H" | RANGE+2 |
| >> IBBLK("W" | RANGE+2 |
| IBX | SEARCH+1~, SEARCH+13*, SEARCH+18*, PRINT+3*, PRINT+4, SETARY+3, SETARY+4, SETARY+5, SETARY+6, SETARY+8 , SETARY+9 |
| IBY | SEARCH+1~, SEARCH+13*, SEARCH+18*, PRINT+2*, PRINT+3, PRINT+4, SETARY+3, SETARY+4, SETARY+5, SETARY+6 , SETARY+8, SETARY+9 |
| IOM | PRINT+4 |
| LEFT | REPORT+1~, REPORT+4, RANGE+19*, RANGE+24, RANGE+29*, SEARCH~, SEARCH+13, SEARCH+18 |
| LINE | PRINT+1~, PRINT+4*, SETARY+1~, SETARY+4*, SETARY+5 |
| LIST | SEARCH+1~, RTNDESCR+2*, RTNDESCR+4*, SETARY+5 |
| NODE | SEARCH+1~, SEARCH+10* |
| PIECE | SETARY+1~, SETARY+7* |
| QUIT | REPORT+1~, REPORT+2*, REPORT+4, RANGE+7*, RANGE+13*, RANGE+18*, RANGE+25*, SEARCH+1~, SEARCH+4*, SEARCH+5 , SEARCH+16, PRINT+1*, PRINT+2, PRINT+3, PRINT+6* |
| RIGHT | REPORT+1~, REPORT+4, RANGE+26*, RANGE+31*, SEARCH~, SEARCH+13, SEARCH+18 |
| RTN | SEARCH+1~, RTNDESCR+1*, RTNDESCR+2, RTNDESCR+3, SETARY+7, SETARY+9 |
| RTN("INTERFACE" | RTNDESCR+2*, RTNDESCR+6*, SETARY+6 |
| RTN("NODE0" | RTNDESCR+2*, RTNDESCR+3*, RTNDESCR+4, RTNDESCR+5, RTNDESCR+6, RTNDESCR+7 |
| RTN("PRINT CO | MPLETE" , RTNDESCR+2*, RTNDESCR+7*, SETARY+6 |
| SCRNSIZE | REPORT+1~, REPORT+2*, PRINT+5 |
| SUBFLD | SEARCH+1~, SEARCH+10*, SEARCH+16*, SEARCH+17 |
| SUBFLD("NODE0" | SEARCH+17*, SEARCH+18, SETARY+4, SETARY+7, SETARY+8 |
| TOP | REPORT+1~, REPORT+4, RANGE+8*, RANGE+12, RANGE+29*, SEARCH~, SEARCH+13, SEARCH+18 |
| WIDTH | RANGE+1~, RANGE+2*, RANGE+17, RANGE+24 |
| WP | SEARCH+1~, SEARCH+13, RTNDESCR+2*, RTNDESCR+5*, SETARY+4, SETARY+7, SETARY+9 |
| >> Y | RANGE+7, RANGE+8, RANGE+13, RANGE+14, RANGE+18, RANGE+19, RANGE+25, RANGE+26 |