©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
IBDFBKR ;ALB/AAS - EF utilite, receive and format data for PCE ; OCT 1,1994
Source file <IBDFBKR.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 3 | $$FSCND^IBDF18C $$SEND^IBDF18E RECVERR^IBDFBK2 |
| VA Fileman | 2 | FILE^DICN FILE^DIE |
| Kernel | 1 | $$NOW^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDFBK2 IBDFFRFT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PCEQ | ||
| VALIDD(IBDATA) | ;
; -- Determine if data contains Formtype, FormID, and Page ; -- Does form ID and form type match entry in Form Tracking ; -- is the form supposed to have this page? ; -- Input IBDATA(array) ; -- Output result message indicator (3=valid, 4=invalid, 5=already recvd) |
|
| NEEDMOR(IBDATA) | ;
; -- check to see if all the pages have been received |
|
| VQ | ||
| NMQ | ||
| BRKQ | ||
| BRKARY(IB,IBDATA) | ;
; -- break array of data into known parts ; -- Input IB(array) contains raw data from receiver ; IBDATA(array) called by reference ; -- Output IBDATA(array) of new formated data ; result message indicator |
|
| FILAD(REC) | ;
; -- adds the data to the FORM TRACKING file ; -- awaiting all of the pages to be sent ; REC is the line of raw data, as received ; -- may change to FM call??? |
|
| RESULT | ;;
|
|
| PCE(IB,PXCA) | ;
; -- Entry point from Broker receiver to parse data and ; either send to PCE or store until all pages received |
|
| ARYAD(DATA) | ;
; -- Input DATA ; -- DATA format B=bubble or ; H=handprint>:<ien of form element in the form ; definition table>:<value entered ; D=dynamic bubble>:<field identifier>:<number of choice> ; -- Output Bubbles,Dynamic, or Handprint Array. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(357.96 | FILAD+15 |
| ^IBD(357.96 - [#357.96] | PCE+14, PCE+17, PCE+37, FILAD+14, FILAD+17, VALIDD+12, VALIDD+13, VALIDD+15, VALIDD+18, NEEDMOR+4 , NEEDMOR+5 |
| Name | Line Occurrences |
|---|---|
| $$BRKARY | PCE+8 |
| $$NEEDMOR | PCE+23 |
| $$VALIDD | PCE+11 |
| ARYAD | PCE+33, PCE+37 |
| FILAD | PCE+27 |
| PCEQ | PCE+11 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | NEEDMOR+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PCE+4~ |
| %H | PCE+4~ |
| %I | PCE+4~ |
| BUBBLES | PCE+4~, PCE+43 |
| BUBBLES( | ARYAD+9* |
| CNT | BRKARY+7~, BRKARY+8*, BRKARY+9, BRKARY+10*, BRKARY+11*, BRKARY+12*, BRKARY+13* |
| DA | PCE+20!, FILAD+16! |
| DA(1 | FILAD+15* |
| DATA | ARYAD~, ARYAD+8*, ARYAD+9, ARYAD+10, ARYAD+11 |
| DD | FILAD+16! |
| DIC | PCE+20!, FILAD+15*, FILAD+16! |
| DIC("P" | FILAD+15* |
| DIC(0 | FILAD+15* |
| DIE | PCE+20! |
| DLAYGO | FILAD+15*, FILAD+16! |
| DO | FILAD+16! |
| DR | PCE+20! |
| DYNAMIC | PCE+4~, PCE+43 |
| DYNAMIC( | ARYAD+10* |
| >> FDA( | PCE+15*, PCE+18* |
| HANDPRNT | PCE+4~, PCE+43 |
| HANDPRNT( | ARYAD+11* |
| I | PCE+4~, PCE+27*, PCE+33*, PCE+36*, PCE+37*, BRKARY+7~, BRKARY+8*, BRKARY+9*, BRKARY+10, BRKARY+11 , BRKARY+12, BRKARY+13, NEEDMOR+2~, NEEDMOR+3*, NEEDMOR+4*, NEEDMOR+5 |
| IB | PCE~, PCE+8, BRKARY~ |
| IB( | BRKARY+10, BRKARY+11, BRKARY+12, BRKARY+13 |
| IBDA | PCE+4~, PCE+14*, PCE+15 |
| IBDATA | PCE+4~, PCE+8, PCE+11, PCE+23, PCEQ, BRKARY~, VALIDD~, NEEDMOR~ |
| IBDATA("FORMID" | PCE+14, PCE+17, PCE+18, PCE+28, PCE+31, PCE+37, PCE+43, FILAD+14, FILAD+15, FILAD+17 , BRKARY+11*, VALIDD+9, VALIDD+12, VALIDD+13, VALIDD+15, VALIDD+18, NEEDMOR+4, NEEDMOR+5 |
| IBDATA("FORMTYPE" | BRKARY+10*, VALIDD+8, VALIDD+13 |
| IBDATA("PAGE" | PCE+14, PCE+17, BRKARY+12*, VALIDD+10, VALIDD+15, VALIDD+18 |
| >> IBDF( | PCE+27, PCE+33, BRKARY+9, BRKARY+10!, BRKARY+11!, BRKARY+12!, BRKARY+13! |
| J | PCE+4~ |
| NEEDMORE | PCE+4~, PCE+23*, PCE+25, PCE+30 |
| PXCA | PCE~, PCE+43 |
| REC | FILAD~, FILAD+6, FILAD+15 |
| RESULT | PCE+4~, PCE+5*, PCE+8*, PCE+11*, PCE+26*, PCE+27, PCE+32*, PCE+44*, PCEQ, PCEQ+1 , FILAD+14* |
| SUCCESS | PCE+28~*, PCE+31~* |
| X | PCE+4~, PCE+17*, PCE+18, FILAD+15*, BRKARY+7~, VALIDD+7~*, VALIDD+8*, VALIDD+9*, VALIDD+10*, VALIDD+12* , VALIDD+13*, VALIDD+15*, VALIDD+18*, VALIDD+19*, VQ, NEEDMOR+2~, NEEDMOR+3*, NEEDMOR+5*, NMQ |
| Y | PCE+4~ |
| Name | Field # of Occurrence |
|---|---|
| $T(RESULT+RESULT | PCEQ+1 |