SCMRBK ;ALB/SCK - Broker Utilities for multiple patient reassignments; 4/8/96
Source file <SCMRBK.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
PTGET(SCDATA,SC) | ||
PTLSTBLD(SCOK,SCVAL) | ; Build the list of patients to be assigned in the ^TMP($J,"SCPATIENT LIST",DFN) global
; 'SC BLD PAT LIST' |
|
PTBLDQ | ||
PTFILE(SCOK,SC) | ; File the patient assignments in the ^TMP($J,"SC TEAM ASSIGN",SCDFN) global
; 'SCMC FILE PAT TM REASGN' |
|
BKGTM | ||
FILEQ | ||
POSFILE(SCOK,SC) | ||
BKGPOS | ||
BLKPOS | ||
BLKTM | ||
PTPOSLST(SCOK,SC) | ||
FILTOUT(DD,AD) | ||
PTTMLST(SCOK,SC) | ||
DISCHPOS(SCOK,SC) | ||
BKG(SCX) | ;hand off to taskman
|
|
S(SCX) | ||
T | ;;
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | PTFILE+8 |
^%ZTLOAD | BKG+9 |
$$PTTM^SCAPMC | BLKTM+4 |
$$PTTP^SCAPMC | BLKPOS+4 |
$$PTTP^SCAPMC11 | PTPOSLST+24 |
$$PTTM^SCAPMC2 | PTTMLST+14 |
ALPHA^SCAPMCU2 | PTPOSLST+35, PTTMLST+26 |
$$ACPTATP^SCAPMR21 | BKGPOS+2 |
$$ACPTRATM^SCAPMR6 | BKGTM+2 |
BAD^SCMCBK1 | BKGTM+4 |
BAD2^SCMCBK1 | BKGPOS+5 |
CLRVAR^SCMCBK1 | PTGET+23, BKGTM+8, BKGPOS+9, PTPOSLST+38, PTTMLST+30 |
NEWVAR^SCMCBK1 | PTPOSLST+4, PTTMLST+5 |
PARSE^SCMCBK1 | PTGET+17, PTFILE+11, POSFILE+10, PTPOSLST+11, PTTMLST+9 |
$$PASSCNT^SCMCBK5 | BKG+11 |
DISCHPOS^SCRPMTA | DISCHPOS+10 |
CHK^SCUTBK | PTGET+14, PTLSTBLD+5, PTFILE+6, POSFILE+6, PTPOSLST+5, PTTMLST+6, DISCHPOS+5 |
TMP^SCUTBK | PTGET+15, PTLSTBLD+6, PTFILE+7, POSFILE+7, PTPOSLST+6, PTTMLST+7, DISCHPOS+6 |
$$NOW^XLFDT | POSFILE+8 |
RPC Name | Call Tags |
---|---|
SCMC BLD TEAM PAT LIST | PTTMLST |
SCMC FILE PAT TM REASGN | PTFILE |
SCMC BLD REASSIGN PAT LIST | PTLSTBLD |
SCMC DIS TEAM POS | DISCHPOS |
SCMC FILE PAT POS REASGN | POSFILE |
SCMC BLD POS PAT LIST | PTPOSLST |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP( | PTGET+19, PTGET+20, PTGET+21!, PTLSTBLD+11!, PTLSTBLD+15*, BKGTM+7!, BKGPOS+8! |
^TMP("SCMC" | PTPOSLST+25!, PTTMLST+15! |
^TMP($J | PTPOSLST+13!, PTPOSLST+26*, PTPOSLST+28, PTPOSLST+31, PTPOSLST+33*, PTTMLST+10!, PTTMLST+16*, PTTMLST+19, PTTMLST+20, PTTMLST+24* , PTTMLST+28 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | PTFILE+9 |
AD | FILTOUT~, FILTOUT+3, FILTOUT+11 |
ASNST | PTPOSLST+3~ |
>> ASNSTAT | PTPOSLST+9*, FILTOUT+3, FILTOUT+7, FILTOUT+11 |
DD | FILTOUT~, FILTOUT+3, FILTOUT+7, FILTOUT+11 |
DUZ | PTFILE+19, POSFILE+17 |
FC | PTPOSLST+3~, PTPOSLST+29*, PTPOSLST+34*, PTPOSLST+36 |
FD | PTPOSLST+3~, PTPOSLST+7*, PTPOSLST+19, FILTOUT+7, FILTOUT+11 |
I | PTGET+12~, PTGET+19*, PTGET+20, PTPOSLST+30*, PTPOSLST+31, PTPOSLST+33, PTTMLST+18*, PTTMLST+19*, PTTMLST+20, PTTMLST+24 |
>> I1 | PTPOSLST+28*, PTPOSLST+30 |
PD | PTPOSLST+3~, PTPOSLST+31*, PTPOSLST+32 |
SC | PTGET~, PTGET+17, PTFILE~, PTFILE+11, POSFILE~, POSFILE+10, PTPOSLST~, PTPOSLST+11, PTTMLST~, PTTMLST+9 , DISCHPOS~ |
SC("ASSIGNSTAT" | PTPOSLST+9 |
SC("BKG" | PTFILE+22, POSFILE+20 |
SC("DATE" | DISCHPOS+10 |
SC("DFN" | DISCHPOS+10 |
SC("FROMDATE" | PTPOSLST+7 |
SC("FROMPOSITION" | POSFILE+12 |
SC("NOP" | BKG+9, BKG+11 |
SC("POSITION" | POSFILE+11 |
SC("RESTRICT" | PTFILE+16 |
SC("TMASGN" | DISCHPOS+10 |
SC("TODATE" | PTPOSLST+8 |
SC("TYPE" | PTFILE+15, POSFILE+16 |
SCADDFLD | PTFILE+3~, POSFILE+3~ |
SCADDFLD( | PTFILE+15*, PTFILE+16*, PTFILE+19*, PTFILE+20*, POSFILE+16*, POSFILE+17*, POSFILE+18* |
SCADTM | POSFILE+4~, POSFILE+14*, BKGPOS+2 |
SCBAD | PTFILE+3~, BKGTM+4, POSFILE+3~, BKGPOS+5 |
SCBEGIN | DISCHPOS+4~ |
>> SCBLOCK | BLKPOS+4, BLKTM+4 |
SCDATA | PTGET~ |
SCDATA( | PTGET+20* |
SCDATES | DISCHPOS+4~ |
SCDD | PTTMLST+4~, PTTMLST+21*, PTTMLST+22 |
SCDFN | PTLSTBLD+3~, PTLSTBLD+14*, PTLSTBLD+15 |
>> SCDTRNG("BEGIN" | PTPOSLST+19* |
>> SCDTRNG("END" | BLKPOS+2, BLKPOS+3*, BLKPOS+5*, BLKTM+2, BLKTM+3*, BLKTM+5*, PTPOSLST+20* |
>> SCDTRNG("INCL" | PTPOSLST+21* |
SCDTVAR | PTFILE+3~, BKGTM+2, POSFILE+4~, BKGPOS+2, FILTOUT+3, FILTOUT+11, PTTMLST+22, PTTMLST+23 |
SCEND | PTGET+12~, PTGET+19, PTGET+21, DISCHPOS+4~ |
SCERMSG | PTFILE+3~, POSFILE+3~, PTPOSLST+24 |
SCERR | DISCHPOS+4~, DISCHPOS+8*, DISCHPOS+9, DISCHPOS+10, DISCHPOS+11 |
SCFILE | PTFILE+3~, POSFILE+3~ |
>> SCFRMPOS | PTPOSLST+24 |
>> SCFRMTM | BKGTM+2, PTTMLST+14 |
SCINCL | DISCHPOS+4~ |
SCJOB | PTGET+12~, PTGET+19, PTGET+20, PTGET+21, PTLSTBLD+3~, PTLSTBLD+13*, PTLSTBLD+15, PTFILE+3~, PTFILE+12, BKGTM+1* , BKGTM+7, POSFILE+3~, POSFILE+13, BKGPOS+1*, BKGPOS+8 |
SCJOBID | PTGET+12~, PTGET+19, PTGET+20, PTGET+21 |
SCLAST | PTGET+12~, PTGET+21 |
>> SCLOC | PTPOSLST+24, PTPOSLST+26, PTTMLST+14, PTTMLST+16 |
SCMAFLD | POSFILE+4~ |
SCNEW | PTFILE+3~, POSFILE+3~ |
SCNEW1 | POSFILE+4~ |
SCNOW | PTFILE+4~, PTFILE+9*, PTFILE+20, POSFILE+4~, POSFILE+8*, POSFILE+18 |
SCOK | PTLSTBLD~, PTLSTBLD+8*, PTLSTBLD+10*, PTLSTBLD+11, PTLSTBLD+16*, PTFILE~, BKGTM+4, POSFILE~, BKGPOS+5, PTPOSLST~ , PTPOSLST+15*, PTPOSLST+24*, PTPOSLST+36*, PTTMLST~, PTTMLST+12*, PTTMLST+14*, PTTMLST+28*, DISCHPOS~, DISCHPOS+7*, DISCHPOS+11* |
SCOK( | BKGTM+5*, BKGPOS+6*, BKG+11* |
SCOK(0 | BKG+10* |
>> SCOK1 | BLKPOS+4*, BLKTM+4* |
SCOLD | PTFILE+3~, BKGTM+4, POSFILE+3~, BKGPOS+5 |
SCOTH | PTFILE+3~, BKGTM+2 |
SCPOSFRM | POSFILE+4~, POSFILE+12*, BKGPOS+2 |
SCPOSTO | POSFILE+4~, POSFILE+11*, BKGPOS+2 |
SCSTART | PTGET+12~, PTGET+19 |
SCTEAM | PTFILE+3~, BKGTM+2, POSFILE+3~ |
SCVAL | PTLSTBLD~, PTLSTBLD+9, PTLSTBLD+13, PTLSTBLD+14, PTLSTBLD+15 |
SCX | PTFILE+3~, BKGTM+2*, BKGTM+5, POSFILE+3~, BKGPOS+2*, BKGPOS+6, BLKPOS+1~, BLKPOS+2*, BLKPOS+5, BLKTM+1~ , BLKTM+2*, BLKTM+5, BKG~, BKG+4, BKG+5, S~ |
TD | PTPOSLST+3~, PTPOSLST+8*, PTPOSLST+20, FILTOUT+7, PTTMLST+4~, PTTMLST+20*, PTTMLST+21, PTTMLST+23 |
U | PTLSTBLD+13, PTLSTBLD+14, PTLSTBLD+15, BKGTM+5, BKGPOS+6, PTPOSLST+32, PTPOSLST+36, PTTMLST+21, PTTMLST+23, PTTMLST+28 , BKG+10, BKG+11 |
ZTDESC | PTFILE+4~, BKG+5* |
ZTDTH | PTFILE+4~, BKG+6* |
ZTPRI | PTFILE+4~, BKG+3* |
>> ZTQUEUED | BKGTM+1, BKGTM+3, BKGPOS+1, BKGPOS+4 |
ZTRTN | PTFILE+4~, BKG+4* |
>> ZTSAVE("SC*" | BKG+7* |
>> ZTSAVE("^TMP($J," | BKG+8* |
>> ZTSK | BKG+10 |
Name | Field # of Occurrence |
---|---|
$T(T+SCX | S |