GMRCTIU3 ;SLC/DCM,JFR - Extract medicine results for consults tracking ;7/1/00 09:30
Source file <GMRCTIU3.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 |
|---|---|---|
| EN(GMRCO,ORIFN,GLOBAL,COUNT) | ;;This entry point is used to collect consult data from the Medicine Package.
|
|
| ENDT | ;Get Medicine Results for display
|
|
| MCRPT(RESULT,GBL,CNT) | ; call MCAPI with OR WORKSTATION and format global
|
|
| EXIT | ||
| SETFLD | ||
| SUM | ;
|
|
| END |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("MC" | EXIT+1!, SETFLD, SUM+1 |
| ^TMP("ORDATA" | MCRPT+5, MCRPT+9, MCRPT+10, MCRPT+12! |
| Name | Field # of Occurrence |
|---|---|
| ^( | SETFLD |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | MCRPT~, MCRPT+6, MCRPT+7*, MCRPT+10, MCRPT+11* |
| COUNT | EN~, ENDT+1*, ENDT+2*, ENDT+3, ENDT+4*, SETFLD+2*, SETFLD+3, SETFLD+4*, SETFLD+5, SETFLD+6* , SUM+2, SUM+3*, SUM+4*, END, END+1! |
| DFN | MCRPT+2, MCRPT+3~ |
| GBL | MCRPT~, MCRPT+6, MCRPT+10 |
| GLOBAL | EN~, ENDT+1, ENDT+2, ENDT+3, ENDT+4, SETFLD+2, SETFLD+3, SETFLD+4, SETFLD+5, SUM+2 , SUM+3, SUM+4 |
| >> GMRCCT | END* |
| GMRCDFN | MCRPT+1~, MCRPT+2* |
| GMRCFLD | EXIT!, SETFLD*, END+1! |
| GMRCFLD(0 | SETFLD*, SETFLD+1, SETFLD+4, SETFLD+5 |
| GMRCFLDN | EXIT!, SETFLD+1*, SETFLD+2, SETFLD+3, END+1! |
| GMRCFLDP | EXIT!, SETFLD*, SETFLD+2, SETFLD+3*, END+1! |
| GMRCFT | EXIT!, SETFLD, END+1! |
| GMRCH | EXIT!, END+1! |
| GMRCO | EN~ |
| GMRCPRNM | EXIT!, END+1! |
| GMRCRTIT | EXIT!, END+1! |
| GMRCSR | ENDT+3, EXIT! |
| GMRCSUM | EXIT!, SUM+1*, SUM+2, SUM+3, END+1! |
| GMRCSUMP | EXIT!, SUM+1*, SUM+2, SUM+4, END+1! |
| GMRCX | EXIT! |
| I | MCRPT+8~*, MCRPT+9*, MCRPT+10 |
| MCC | EXIT!, END+1! |
| MCK | EXIT!, END+1! |
| MCMFLD | EXIT!, END+1! |
| MCMUP | EXIT!, END+1! |
| ORIFN | EN~ |
| RESULT | MCRPT~ |
| >> TAB | SETFLD+3, SUM+3 |
