ACKQAG05 ;DALC/PJU - UTILITY FOR TRANSMISSION ;02/09/07
Source file <ACKQAG05.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACKEXIST() | ||
| ENDA | ||
| DFNIN(DFN) | ||
| ENDD | ||
| NEWMSG() | ||
| DFNCT(RESULT,DFN) | ;Return number of entries in 509850.9 file
|
|
| ENDC | ||
| STARTD(RESULT,DFN,IEN,ACKQSTNU,ACKQUSNM,ACKQUSSR) | ;
|
|
| ENDS | ||
| ERRTEXT(ACKQERR) | ;error msg's, input error #
|
|
| 1 | ;;THE AUDIOMETRIC DATA FILE CANNOT BE ACCESSED
|
|
| 2 | ;;THERE IS NOT A VALID ENTRY FOR THIS PATIENT
|
|
| 3 | ;;THE MESSAGE COULD NOT BE SET UP
|
|
| 4 | ;;THE ADDRESS COULD NOT BE SET UP
|
|
| 5 | ;;THERE HAS BEEN AN ERROR IN COLLECTING THE AUDIOMETRIC DATA
|
|
| 6 | ;;ONE OF THE MESSAGE LINES WAS TOO LONG
|
|
| 7 | ||
| 8 | ;;THE ENTRY FOUND IS NOT THE SAME ENTRY THAT IS BEING EDITED
|
|
| 9 | ;;THERE IS A CONFLICT BETWEEN THE PATIENT AND THE FILE ENTRY
|
|
| 10 | ;;THE RECORD SELECTED HAS NOT BEEN LOCALLY DELETED
|
|
| ENDE | ||
| WRITEER | ;W !!,"*****",ACKQER,"*****" ;for testing
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | STARTD+21 |
| ^ACK(509850.9 - [#509850.9] | ACKEXIST+2, DFNIN+4, DFNIN+6, DFNIN+8, DFNIN+9, DFNCT+8, STARTD+9 |
| ^DPT - [#2] | DFNCT+7, STARTD+16, STARTD+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACKQANS | ACKEXIST+1~, ACKEXIST+2*, ACKEXIST+3*, ENDA, DFNIN+2~, DFNIN+3*, DFNIN+9*, ENDD |
| ACKQARR | STARTD+4!, STARTD+35!, ENDS! |
| ACKQARR(0 | STARTD+4* |
| ACKQARR(1 | STARTD+19*, STARTD+20*, STARTD+36* |
| ACKQARR(2 | STARTD+24*, STARTD+25*, STARTD+37* |
| ACKQARR(3 | STARTD+38* |
| ACKQER | STARTD+3~, STARTD+4*, STARTD+8*, STARTD+10*, STARTD+29*, ENDS, ENDS+2, WRITEER+2* |
| ACKQER1 | ERRTEXT+1~, ERRTEXT+2*, ENDE |
| ACKQERR | STARTD+3~, ERRTEXT~ |
| ACKQFA | STARTD+3~, STARTD+7*, STARTD+8 |
| ACKQHSSN | STARTD+3~, STARTD+18*, STARTD+19, STARTD+25 |
| ACKQI | DFNIN+2~, DFNIN+7*, DFNIN+8*, DFNIN+9 |
| ACKQL | DFNIN+2~, DFNIN+5*, DFNIN+6*, DFNIN+8 |
| ACKQMSG | STARTD+3~, STARTD+4*, STARTD+13*, STARTD+36, ENDS+2 |
| ACKQRMI | STARTD+3~, STARTD+11*, STARTD+19, STARTD+25, STARTD+38 |
| ACKQSTNU | STARTD~, STARTD+24 |
| ACKQUSNM | STARTD~, STARTD+24 |
| ACKQUSSR | STARTD~, STARTD+24 |
| ACKQVT | STARTD+3~ |
| CT | DFNCT+3~*, DFNCT+7, DFNCT+9*, DFNCT+10 |
| DFN | DFNIN~, DFNIN+4, DFNIN+6, DFNIN+8, DFNCT~, DFNCT+7, DFNCT+8, STARTD~, STARTD+16, STARTD+17 , STARTD+22 |
| >> DFNNAME | STARTD+16*, STARTD+19, STARTD+36 |
| DT | STARTD+20, STARTD+26, STARTD+37 |
| DUZ | NEWMSG+3, STARTD+26, STARTD+33 |
| I | DFNCT+3~*, DFNCT+8*, DFNCT+10, ENDS! |
| ICN | STARTD+3~, STARTD+22*, STARTD+23*, STARTD+25 |
| IEN | STARTD~, STARTD+9, STARTD+11 |
| RESULT | DFNCT~, DFNCT+3*, ENDC, STARTD~, ENDS+2* |
| RESULT( | DFNCT+10* |
| RESULT(0 | DFNCT+7*, DFNCT+10* |
| SSN | STARTD+3~, STARTD+17*, STARTD+18 |
| ST | STARTD+3~ |
| U | DFNCT+7, DFNCT+10, STARTD+16, STARTD+17, STARTD+24, STARTD+25, ENDS+2 |
| >> X | STARTD+21* |
| XMDUZ | NEWMSG+3*, STARTD+5~, STARTD+26*, STARTD+27, STARTD+33* |
| >> XMMG | STARTD+4*, ENDS+2 |
| XMRESTR | STARTD+5~, STARTD+27 |
| XMRESTR("NONET" | STARTD+28, STARTD+29 |
| XMSUB | NEWMSG+3*, STARTD+5~, STARTD+26*, STARTD+32*, STARTD+39* |
| XMTEXT | STARTD+5~, STARTD+26*, STARTD+39* |
| XMY | STARTD+5~ |
| XMY( | STARTD+33* |
| XMY("S.RMROES3@DDC.DOMAIN.EXT" | NEWMSG+4* |
| >> XMZ | NEWMSG+7, STARTD+4*, STARTD+13*, STARTD+27, ENDS+2 |
| >> XQDATE | STARTD+26* |
| Name | Field # of Occurrence |
|---|---|
| $T(@(3) | ERRTEXT+2 |
