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 |