SCRPBK3 ;MJK/ALB - RPC Broker Utilities ; 27 FEB 96
Source file <SCRPBK3.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PRINTQ | ||
| PASSIGN(SCQREC,SCFLD) | ; -- determine if assign patient's is requested | |
| RPT2(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- detailed patient enrollments | |
| RPT5(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- team profile | |
| RPT4(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- practitioner's pateints | |
| RANGE(SCQREC) | ; -- deterime date range | |
| BUILDQ | ||
| BUILD(SCQREC,SCTYPE,VAUT) | ; -- build selection array ; is type active | |
| RPT7(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- team's patients | |
| RPT1(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- patient/team assignment | |
| PSTATUS(SCQREC,SCFLD) | ; -- determine pat status to show | |
| PRINT(SCDATA,SCPTR,SCDATE,SCTIME,SCQDEF) | ; ; -- print pcmm report | |
| ROOT(SCTYPE) | ; -- determine global root for file type | |
| RPT6(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- summaru listing of Teams | |
| YESNO(SCQREC,SCFLD) | ; -- determine yes/no field value | |
| RPT8(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- team's members | |
| RPT3(SCDATA,SCQREC,SCPNTR,SCRUNDT) | ; -- practitioner's demographics | |
| INIT(SCDATE,SCTIME,SCPTR,SCRUNDT,SCPNTR) | ; -- setup of general vars | |
| ROOTQ | ||
| FINDSORT(SCQREC) | ; -- find sort selected in report definition | 
| Name | Field # of Occurrence | 
|---|---|
| $$CHKTYPE^SCRPBK2 | BUILD+2 | 
| VALCHK^SCRPBK4 | PRINT+26 | 
| PARSE^SCRPBK5 | PRINT+22 | 
| $$ENTRY2^SCRPEC | RPT2+6 | 
| $$ENTRY2^SCRPITP | RPT5+4 | 
| $$ENTRY2^SCRPPAT | RPT4+8 | 
| $$ENTRY2^SCRPRAC | RPT3+3 | 
| $$ENTRY2^SCRPSLT | RPT6+5 | 
| $$ENTRY2^SCRPTA | RPT1+6 | 
| $$ENTRY2^SCRPTM | RPT8+7 | 
| $$ENTRY2^SCRPTP | RPT7+7 | 
| HDREC^SCUTBK3 | PRINT+28 | 
| RPC Name | Call Tags | 
|---|---|
| SCRP REPORT PRINT | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^SD(404.92 - [#404.92] | FINDSORT+6 | 
| Name | Line Occurrences | 
|---|---|
| $$FINDSORT | RPT4+7, RPT7+6 | 
| $$PASSIGN | RPT2+5 | 
| $$PSTATUS | RPT7+5 | 
| $$RANGE | RPT8+6 | 
| $$ROOT | BUILD+4 | 
| $$YESNO | RPT4+6 | 
| @( | PRINT+34 | 
| BUILD | RPT1+2, RPT1+3, RPT1+4, RPT1+5, RPT2+2, RPT2+3, RPT2+4, RPT3+2, RPT4+2, RPT4+3 , RPT4+4, RPT4+5, RPT5+2, RPT5+3, RPT6+2, RPT6+3, RPT6+4, RPT7+2, RPT7+3, RPT7+4 , RPT8+2, RPT8+3, RPT8+4, RPT8+5 | 
| BUILDQ | BUILD+2 | 
| INIT | PRINT+31 | 
| PRINTQ | PRINT+27 | 
| ROOTQ | ROOT+2, ROOT+3, ROOT+4, ROOT+5, ROOT+6, ROOT+7 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | FINDSORT+6 | 
| ^(0 | BUILD+6, FINDSORT+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DIERR | PRINT+19~, PRINT+27, PRINT+28 | 
| DT | RANGE+1 | 
| I | FINDSORT+1~, FINDSORT+5*, FINDSORT+6* | 
| SCDATA | PRINT~, PRINT+28, RPT1~, RPT2~, RPT3~, RPT4~, RPT5~, RPT6~, RPT7~, RPT8~ | 
| SCDATA(0 | PRINT+36*, RPT1+6*, RPT2+6*, RPT3+3*, RPT4+8*, RPT5+4*, RPT6+5*, RPT7+7*, RPT8+7* | 
| SCDATE | PRINT~, PRINT+31, INIT~, INIT+3 | 
| SCFLD | YESNO~, YESNO+1, PSTATUS~, PSTATUS+2, PASSIGN~, PASSIGN+1 | 
| SCLOG | PRINT+19~, PRINT+25*, PRINT+26 | 
| SCPNTR | PRINT+19~, PRINT+31, RPT1~, RPT1+6, RPT2~, RPT2+6, RPT3~, RPT3+3, RPT4~, RPT4+8 , RPT5~, RPT5+4, RPT6~, RPT6+5, RPT7~, RPT7+7, RPT8~, RPT8+7, INIT~, INIT+2* | 
| SCPTR | PRINT~, PRINT+31, INIT~, INIT+2 | 
| SCQDEF | PRINT~, PRINT+22 | 
| SCQREC | PRINT+19~, PRINT+22, PRINT+26, RPT1~, RPT1+2, RPT1+3, RPT1+4, RPT1+5, RPT2~, RPT2+2 , RPT2+3, RPT2+4, RPT2+5, RPT3~, RPT3+2, RPT4~, RPT4+2, RPT4+3, RPT4+4, RPT4+5 , RPT4+6, RPT4+7, RPT5~, RPT5+2, RPT5+3, RPT6~, RPT6+2, RPT6+3, RPT6+4, RPT7~ , RPT7+2, RPT7+3, RPT7+4, RPT7+5, RPT7+6, RPT8~, RPT8+2, RPT8+3, RPT8+4, RPT8+5 , RPT8+6, BUILD~, FINDSORT~, YESNO~, PSTATUS~, PASSIGN~, RANGE~ | 
| SCQREC("FIELDS" | FINDSORT+4, YESNO+1, PSTATUS+2, PASSIGN+1, RANGE+1 | 
| SCQREC("REPORTID" | PRINT+32, PRINT+34, FINDSORT+3 | 
| SCQREC("SELECTIONS" | BUILD+5 | 
| SCRANG | RPT8+1~, RPT8+6*, RPT8+7 | 
| SCRPT | FINDSORT+1~, FINDSORT+3*, FINDSORT+6 | 
| >> SCRT | BUILD+4*, BUILD+6 | 
| SCRUNDT | PRINT+19~, PRINT+31, RPT1~, RPT1+6, RPT2~, RPT2+6, RPT3~, RPT3+3, RPT4~, RPT4+8 , RPT5~, RPT5+4, RPT6~, RPT6+5, RPT7~, RPT7+7, RPT8~, RPT8+7, INIT~, INIT+4* | 
| SCSORT | RPT4+1~, RPT4+7*, RPT4+8, RPT7+1~, RPT7+6*, RPT7+7, FINDSORT+1~, FINDSORT+4*, FINDSORT+6 | 
| SCSORTID | FINDSORT+1~, FINDSORT+2*, FINDSORT+6*, FINDSORT+7 | 
| SCTIME | PRINT~, PRINT+31, INIT~, INIT+3 | 
| SCTYPE | BUILD~, BUILD+2, BUILD+4, BUILD+5, ROOT~, ROOT+2, ROOT+3, ROOT+4, ROOT+5, ROOT+6 , ROOT+7 | 
| SCX | BUILD+3~, BUILD+4*, BUILD+5*, BUILD+6 | 
| U | BUILD+6, FINDSORT+6, RANGE+1 | 
| VALUE | PSTATUS+1~, PSTATUS+2*, PSTATUS+3*, PSTATUS+4 | 
| VAUT | BUILD~, BUILD+7* | 
| VAUT( | BUILD+6* | 
| VAUT(0 | BUILD+7 | 
| VAUTA | RPT2+1~, RPT2+5*, RPT2+6 | 
| VAUTC | RPT2+1~, RPT2+4, RPT2+6, RPT4+1~ | 
| VAUTD | RPT1+1~, RPT1+2, RPT1+6, RPT2+1~, RPT2+2, RPT2+6, RPT4+1~, RPT4+2, RPT4+8, RPT5+1~ , RPT5+2, RPT5+4, RPT6+1~, RPT6+2, RPT6+5, RPT7+1~, RPT7+2, RPT7+7, RPT8+1~, RPT8+2 , RPT8+7 | 
| VAUTP | RPT1+1~, RPT1+5*, RPT1+6, RPT3+1~, RPT3+2, RPT3+3, RPT4+1~, RPT4+5, RPT4+8 | 
| VAUTPS | RPT7+1~, RPT7+5*, RPT7+7 | 
| VAUTR | RPT1+1~, RPT1+4, RPT1+6, RPT4+1~, RPT4+4, RPT4+8, RPT6+1~, RPT6+4, RPT6+5, RPT7+1~ , RPT7+4, RPT7+7, RPT8+1~, RPT8+5, RPT8+7 | 
| VAUTS | RPT4+1~, RPT4+6*, RPT4+8 | 
| VAUTT | RPT1+1~, RPT1+3, RPT1+6, RPT2+1~, RPT2+3, RPT2+6, RPT4+1~, RPT4+3, RPT4+8, RPT5+1~ , RPT5+3, RPT5+4, RPT6+1~, RPT6+3, RPT6+5, RPT7+1~, RPT7+3, RPT7+7, RPT8+1~, RPT8+3 , RPT8+7 | 
| VAUTUC | RPT8+1~, RPT8+4, RPT8+7 | 
| X | INIT+1~, INIT+3*, INIT+4 | 
| Y | ROOT+1~, ROOT+2*, ROOT+3*, ROOT+4*, ROOT+5*, ROOT+6*, ROOT+7*, ROOTQ |