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 |