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 |