SCMCBK ;ALB/SCK - Broker Utilities for multiple patient assignments; 4/8/96 [1/8/99 7:53am]
Source file <SCMCBK.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PTTMBLD(SCOK,SC) | ; Build a list of patients for a selected team and return the $J of the TMP globall ; where the list is stored. ; ' SC BLD PAT TM LIST ' | |
| PTFILE(SCOK,SC) | ;  File the patient assignments in the ^TMP($J,"SC TEAM ASSIGN",SCDFN) global ; 'SC FILE PAT TM ASGN' | |
| PTSCBLD(SCOK,SC) | ; Build patient list for selected stop code ; 'SC BLD PAT SCDE LIST' | |
| POSFILE(SCOK,SC) | ;  File the patient assignments in the ^TMP($J,"SC PATIENT LIST") global ; ' SC FILE PAT POS ASGN ' | |
| BLKTM | ; | |
| PTGET(SCDATA,SC) | ;  Return a block of patients to the client ; 'SC GET PAT BLOCK' | |
| PTSCQ | ||
| PTCLNQ | ||
| PTAPQ | ||
| BLKPOS | ; | |
| PTAPBLD(SCOK,SC) | ;  Build patient list for selected appointment range. ; ' SC BLD PAT APT LIST ' | |
| FILEQ | ||
| PTCLBLD(SCOK,SC) | ; Build patient list for a selected clinic ; 'SC BLD PAT CLN LIST' | |
| PTLSTBLD(SCOK,SCVAL) | ;  Build the list of patients to be assigned in the ^TMP($J,"SC PATIENT LIST",DFN) global ; 'SC BLD PAT LIST' | |
| PTPSBLD(SCOK,SC) | ; ; ' SC BLD PAT POS LIST ' | |
| PTBLDQ | 
| Name | Field # of Occurrence | 
|---|---|
| $$PTTM^SCAPMC | BLKTM+4 | 
| $$PTTP^SCAPMC | BLKPOS+4 | 
| $$PTTP^SCAPMC11 | PTPSBLD+18 | 
| $$PTTM^SCAPMC2 | PTTMBLD+17 | 
| $$ACPTATP^SCAPMC21 | POSFILE+21 | 
| $$PTCLBR^SCAPMC26 | PTCLBLD+10 | 
| $$PTCLBRTP^SCAPMC26 | PTCLBLD+9 | 
| $$PTST^SCAPMC27 | PTSCBLD+20 | 
| $$PTAP^SCAPMC28 | PTAPBLD+20 | 
| $$ACPTATM^SCAPMC6 | PTFILE+22 | 
| ALPHA^SCAPMCU2 | PTCLBLD+17, PTSCBLD+27, PTTMBLD+24, PTPSBLD+24, PTAPBLD+28 | 
| BAD^SCMCBK1 | PTFILE+23 | 
| BAD2^SCMCBK1 | POSFILE+23 | 
| CLRVAR^SCMCBK1 | PTCLNQ, PTSCQ, PTTMBLD+29, PTPSBLD+30, PTAPBLD+31, PTGET+20, PTFILE+28, POSFILE+27 | 
| NEWVAR^SCMCBK1 | PTCLBLD+3, PTSCBLD+3, PTTMBLD+4, PTPSBLD+3, PTAPBLD+5 | 
| PARSE^SCMCBK1 | PTCLBLD+7, PTSCBLD+8, PTTMBLD+8, PTPSBLD+7, PTAPBLD+9, PTGET+14, PTFILE+13, POSFILE+13 | 
| QUEUED^SCMCBK4 | PTFILE+6, POSFILE+6 | 
| CHK^SCUTBK | PTCLBLD+4, PTSCBLD+5, PTTMBLD+5, PTPSBLD+4, PTAPBLD+6, PTGET+11, PTLSTBLD+5, PTFILE+10, POSFILE+10 | 
| TMP^SCUTBK | PTCLBLD+5, PTSCBLD+6, PTTMBLD+6, PTPSBLD+5, PTAPBLD+7, PTGET+12, PTLSTBLD+6, PTFILE+11, POSFILE+11 | 
| RPC Name | Call Tags | 
|---|---|
| SC GET PAT BLOCK | PTGET | 
| SC BLD PAT LIST | PTLSTBLD | 
| SC FILE PAT TM ASGN | PTFILE | 
| SC BLD PAT CLN LIST | PTCLBLD | 
| SC FILE PAT POS ASGN | POSFILE | 
| SC BLD PAT SCDE LIST | PTSCBLD | 
| SC BLD PAT TM LIST | PTTMBLD | 
| SC BLD PAT POS LIST | PTPSBLD | 
| SC BLD PAT APT LIST | PTAPBLD | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^TMP( | PTCLBLD+14, PTCLBLD+15!, PTGET+16, PTGET+17, PTGET+18!, PTLSTBLD+11!, PTLSTBLD+15*, PTFILE+26!, POSFILE+25! | 
| ^TMP("SCMC" | PTCLBLD+11!, PTSCBLD+21!, PTTMBLD+18!, PTPSBLD+19!, PTAPBLD+21! | 
| ^TMP($J | PTCLBLD+14*, PTCLBLD+19, PTSCBLD+10!, PTSCBLD+23*, PTSCBLD+24, PTSCBLD+25*, PTTMBLD+9!, PTTMBLD+19*, PTTMBLD+21, PTTMBLD+22* , PTTMBLD+25, PTPSBLD+9!, PTPSBLD+20*, PTPSBLD+22, PTPSBLD+23*, PTAPBLD+11!, PTAPBLD+23*, PTAPBLD+25, PTAPBLD+26* | 
| Name | Line Occurrences | 
|---|---|
| @( | PTSCBLD+15, PTTMBLD+15, PTPSBLD+14, PTAPBLD+16 | 
| FILEQ | PTFILE+14, POSFILE+14 | 
| PTAPQ | PTAPBLD+18 | 
| PTBLDQ | PTLSTBLD+9 | 
| PTCLNQ | PTCLBLD+12 | 
| PTSCQ | PTSCBLD+17 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> BLOCK | PTSCBLD+13*, PTSCBLD+15, PTTMBLD+13*, PTTMBLD+15, PTPSBLD+12*, PTPSBLD+14, PTAPBLD+14*, PTAPBLD+16 | 
| DT | PTFILE+20, POSFILE+19 | 
| DUZ | PTFILE+19, POSFILE+18 | 
| I | PTSCBLD+25*, PTTMBLD+21*, PTTMBLD+22, PTTMBLD+25*, PTTMBLD+27, PTPSBLD+23*, PTAPBLD+26*, PTGET+9~, PTGET+16*, PTGET+17 | 
| >> I1 | PTSCBLD+24*, PTSCBLD+25, PTSCBLD+28, PTTMBLD+25*, PTPSBLD+22*, PTPSBLD+23, PTPSBLD+25, PTAPBLD+25*, PTAPBLD+26, PTAPBLD+29 | 
| SC | PTCLBLD~, PTCLBLD+7, PTSCBLD~, PTSCBLD+8, PTTMBLD~, PTTMBLD+8, PTPSBLD~, PTPSBLD+7, PTAPBLD~, PTAPBLD+9 , PTGET~, PTGET+14, PTFILE~, PTFILE+13, POSFILE~, POSFILE+13 | 
| SC("RESTRICT" | PTFILE+18 | 
| SC("TYPE" | PTFILE+17, POSFILE+17 | 
| SCADDFLD | PTFILE+8~, POSFILE+8~ | 
| SCADDFLD( | PTFILE+17*, PTFILE+18*, PTFILE+19*, PTFILE+20*, POSFILE+17*, POSFILE+18*, POSFILE+19* | 
| SCADTM | POSFILE+8~, POSFILE+15*, POSFILE+21 | 
| SCBAD | PTFILE+8~, PTFILE+23, POSFILE+8~, POSFILE+23 | 
| >> SCBLOCK | PTSCBLD+14*, PTTMBLD+14*, PTPSBLD+13*, PTAPBLD+15*, BLKPOS+4, BLKTM+4 | 
| >> SCCLN | PTCLBLD+9, PTCLBLD+10, PTAPBLD+20 | 
| SCDATA | PTGET~ | 
| SCDATA( | PTGET+17* | 
| SCDFN | PTLSTBLD+3~, PTLSTBLD+14*, PTLSTBLD+15 | 
| >> SCDTRNG("END" | BLKPOS+2, BLKPOS+3*, BLKPOS+5*, BLKTM+2, BLKTM+3*, BLKTM+5* | 
| SCDTVAR | PTFILE+8~, PTFILE+22, POSFILE+8~, POSFILE+21 | 
| SCEND | PTGET+9~, PTGET+16, PTGET+18 | 
| SCERMSG | PTPSBLD+18, PTFILE+8~, POSFILE+8~ | 
| SCFILE | PTFILE+8~, POSFILE+8~ | 
| >> SCFRMPOS | PTPSBLD+18 | 
| >> SCFRMTM | PTTMBLD+17 | 
| SCJOB | PTGET+9~, PTGET+16, PTGET+17, PTGET+18, PTLSTBLD+3~, PTLSTBLD+13*, PTLSTBLD+15, PTFILE+8~, PTFILE+14, PTFILE+26 , POSFILE+8~, POSFILE+14, POSFILE+25 | 
| SCJOBID | PTGET+9~, PTGET+16, PTGET+17, PTGET+18 | 
| SCLAST | PTGET+9~, PTGET+18 | 
| >> SCLOC | PTSCBLD+20, PTSCBLD+23, PTTMBLD+17, PTTMBLD+19, PTPSBLD+18, PTPSBLD+20, PTAPBLD+20, PTAPBLD+23 | 
| SCMAFLD | POSFILE+8~ | 
| >> SCMORE | PTSCBLD+20, PTAPBLD+20 | 
| SCNEW | PTFILE+8~, POSFILE+8~ | 
| SCNEW1 | POSFILE+8~ | 
| >> SCNUM | PTSCBLD+20, PTAPBLD+20 | 
| SCOK | PTCLBLD~, PTCLBLD+9*, PTCLBLD+10*, PTCLBLD+12, PTCLBLD+14, PTCLBLD+15, PTCLBLD+19*, PTSCBLD~, PTSCBLD+17*, PTSCBLD+19* , PTSCBLD+20*, PTSCBLD+28*, PTTMBLD~, PTTMBLD+12*, PTTMBLD+17*, PTTMBLD+27*, PTPSBLD~, PTPSBLD+16*, PTPSBLD+18*, PTPSBLD+25* , PTAPBLD~, PTAPBLD+18*, PTAPBLD+19*, PTAPBLD+20*, PTAPBLD+29*, PTLSTBLD~, PTLSTBLD+8*, PTLSTBLD+10*, PTLSTBLD+11, PTLSTBLD+16* , PTFILE~, PTFILE+23, POSFILE~, POSFILE+23 | 
| SCOK( | PTFILE+24*, POSFILE+24* | 
| >> SCOK1 | PTSCBLD+17, PTAPBLD+18, BLKPOS+4*, BLKTM+4* | 
| SCOLD | PTFILE+8~, PTFILE+23, POSFILE+8~, POSFILE+23 | 
| SCPOS | PTCLBLD+9, PTSCBLD+13, PTSCBLD+14, PTTMBLD+13, PTTMBLD+14, PTPSBLD+12, PTPSBLD+13, PTAPBLD+14, PTAPBLD+15, POSFILE+8~ , POSFILE+21 | 
| >> SCSCDE | PTSCBLD+20 | 
| SCSTART | PTGET+9~, PTGET+16 | 
| SCTEAM | PTCLBLD+10, PTSCBLD+14, PTTMBLD+14, PTPSBLD+13, PTAPBLD+15, PTFILE+8~, PTFILE+22, POSFILE+8~ | 
| SCVAL | PTLSTBLD~, PTLSTBLD+9, PTLSTBLD+13, PTLSTBLD+14 | 
| SCX | PTFILE+8~, PTFILE+22*, PTFILE+24, POSFILE+8~, POSFILE+21*, POSFILE+24, BLKPOS+1~, BLKPOS+2*, BLKPOS+5, BLKTM+1~ , BLKTM+2*, BLKTM+5 | 
| U | PTCLBLD+19, PTSCBLD+28, PTTMBLD+27, PTPSBLD+25, PTAPBLD+29, PTLSTBLD+13, PTLSTBLD+14 | 
| >> XWBAPVER | PTFILE+6, POSFILE+6 |