XDRRMRG2 ;SF-IRMFO/GB,JLI - GET PATIENT HEALTH SUMMARY ;06/26/98 13:35
Source file <XDRRMRG2.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 |
|---|---|---|
| ASK(QLIST,ABORT) | ; Report-specific questions
|
|
| ASKX | ||
| GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) | ; No need to gather
|
|
| PRINT(QLIST) | ;Call to print health summary
|
|
| PRINTX | ||
| PRINT2 | ;Prints the record pair using the Browser of to a device.
|
|
| REC1 | ||
| REC2 | ||
| PRINT2X | ||
| QUEUE | ;Will process the print task for patients' health summaries.
|
|
| QUEUEX | ||
| COUNT(XDRFILE,FROM,TO) | ||
| COUNTX | ||
| LABIEN(FILE,REC) | ;REM - Resolve LABs DFNFR and DFNTO.
|
|
| LABIENX |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^GMT(142 - [#142] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | COUNT+6 |
| ^DIC - [#1] | COUNT+3, LABIEN+2 |
| ^TMP("DDB" | REC1+12, REC2+12 |
| ^TMP("XDRRMRG" | PRINT2+6!, REC1+11*, REC2+11*, REC2+13, REC2+14! |
| ^TMP("XDRRMRG1" | PRINT2+6!, REC1+12*, REC2+12*, REC2+14! |
| Name | Field # of Occurrence |
|---|---|
| ^( | COUNT+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | REC1*, REC2* |
| >> %ZIS("A" | REC1+1*, REC2+1* |
| ABORT | ASK~, ASK+16* |
| DFN | GATHER~, REC1+5*, REC2+5*, QUEUE+1 |
| >> DFNFR(1 | REC1+11 |
| >> DFNFR(2 | REC1+11 |
| >> DFNFRX | REC1+5, REC1+9, REC1+11 |
| >> DFNTO(1 | REC2+11 |
| >> DFNTO(2 | REC2+11 |
| >> DFNTOX | REC2+5, REC2+9, REC2+11 |
| DIC | ASK+1~, ASK+10!, ASK+12* |
| DIC("A" | ASK+14* |
| DIC(0 | ASK+13* |
| >> DIR("?" | PRINT2+4* |
| >> DIR("A" | PRINT2+2*, PRINT2+3* |
| >> DIR("B" | PRINT2+4* |
| >> DIR(0 | PRINT2+2* |
| >> DIRUT | PRINT2+5 |
| DTOUT | ASK+1~, ASK+16 |
| DUOUT | ASK+1~, ASK+16 |
| FDATE | GATHER~ |
| FIL1 | COUNT+1~, COUNT+4*, COUNT+10 |
| FIL2 | COUNT+1~, COUNT+3*, COUNT+4, COUNT+5*, COUNT+11 |
| >> FILDIC | LABIEN+2*, LABIEN+3 |
| FILE | LABIEN~, LABIEN+2 |
| >> FILREC | LABIEN+3*, LABIEN+4 |
| FROM | COUNT~ |
| HIUSERS | GATHER~ |
| I | COUNT+1~, COUNT+6* |
| IO | REC1+10 |
| IO("Q" | REC1+3, REC2+3 |
| IO(0 | REC1+8, REC2+8, REC2+10 |
| ION | REC1+4, REC2+4 |
| >> IOP | REC1*, REC2* |
| N1 | COUNT+1~, COUNT+2*, COUNT+12*, COUNTX |
| N2 | COUNT+1~, COUNT+2*, COUNT+13*, COUNTX |
| >> NAMREC | LABIEN+1*, LABIEN+2, LABIEN+4*, LABIENX |
| NOD | COUNT+1~, COUNT+7*, COUNT+10, COUNT+11 |
| PIECE | COUNT+1~, COUNT+8*, COUNT+9, COUNT+10, COUNT+11 |
| >> POP | REC1+2, REC2+2 |
| QLIST | ASK~, GATHER~, PRINT~ |
| QLIST("DFN" | PRINT+1 |
| QLIST("TYPE" | ASK+17*, PRINT+1, REC1+5, REC1+9, REC2+5, REC2+9 |
| REC | LABIEN~ |
| TDATE | GATHER~ |
| TO | COUNT~ |
| >> TYPE | REC1+5*, REC2+5*, QUEUE+1 |
| U | COUNT+7, COUNT+8, COUNT+10, COUNT+11, LABIEN+4 |
| X | COUNT+1~, COUNT+6*, COUNT+7, COUNT+8 |
| X1 | COUNT+1~, COUNT+10*, COUNT+12, COUNT+13 |
| X2 | COUNT+1~, COUNT+11*, COUNT+12, COUNT+13 |
| XDRFILE | COUNT~, COUNT+3, COUNT+6 |
| XDRIOP | PRINT2+1~, PRINT2+5*, REC1, REC1+8, REC2, REC2+8 |
| Y | ASK+1~, ASK+16, ASK+17, PRINT2+5 |
| >> ZTDESC | REC1+4*, REC2+4* |
| >> ZTIO | REC1+4*, REC2+4* |
| >> ZTRTN | REC1+4*, REC2+4* |
| >> ZTSAVE("DFN" | REC1+5*, REC2+5* |
| >> ZTSAVE("TYPE" | REC1+5*, REC2+5* |
| >> ZTSK | REC1+6, REC2+6 |
