XDRRMRG2 ;SF-IRMFO/GB,JLI - GET PATIENT HEALTH SUMMARY ;06/26/98 13:35 [ 04/02/2003 8:47 AM ]
Source file <XDRRMRG2.m>
Package | Total | Caller Graph |
---|---|---|
Toolkit | 2 | XDRDPICK XDRRMRG1 |
IHS Patient Merge | 1 | BPMVER |
Name | Comments | DBIA/ICR reference |
---|---|---|
QUEUE | ;Will process the print task for patients' health summaries.
|
|
PRINT2 | ;Prints the record pair using the Browser of to a device.
|
|
QUEUEX | ||
PRINTX | ||
LABIEN(FILE,REC) | ;REM - Resolve LABs DFNFR and DFNTO.
|
|
ASKX | ||
GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) | ; No need to gather
|
|
PRINT2X | ||
COUNTX | ||
COUNT(XDRFILE,FROM,TO) | ||
LABIENX | ||
REC2 | ||
PRINT(QLIST) | ;Call to print health summary
|
|
REC1 | ||
ASK(QLIST,ABORT) | ; Report-specific questions
|
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+10!, REC1+11*, REC2+11*, REC2+13, REC2+14! |
^TMP("XDRRMRG1" | PRINT2+10!, REC1+12*, REC2+12*, REC2+14! |
Name | Line Occurrences |
---|---|
PRINTX | REC2+3 |
REC2 | REC1+3 |
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+19* |
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+17* |
DIC("B" | ASK+15* |
DIC(0 | ASK+13* |
>> DIR("?" | PRINT2+4* |
>> DIR("A" | PRINT2+2*, PRINT2+3* |
>> DIR("B" | PRINT2+4*, PRINT2+7* |
>> DIR(0 | PRINT2+2* |
>> DIRUT | PRINT2+9 |
DTOUT | ASK+1~, ASK+19 |
DUOUT | ASK+1~, ASK+19 |
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+20*, 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+9*, REC1, REC1+8, REC2, REC2+8 |
Y | ASK+1~, ASK+19, ASK+20, PRINT2+9 |
>> 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 |