Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: SCMRBK

Package: Scheduling

Routine: SCMRBK


Information

SCMRBK ;ALB/SCK - Broker Utilities for multiple patient reassignments; 4/8/96

Source Information

Source file <SCMRBK.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Scheduling 10 ($$PTTM,$$PTTP)^SCAPMC  $$PTTP^SCAPMC11  $$PTTM^SCAPMC2  ALPHA^SCAPMCU2  $$ACPTATP^SCAPMR21  $$ACPTRATM^SCAPMR6  (BAD,BAD2,CLRVAR,NEWVAR,PARSE)^SCMCBK1  $$PASSCNT^SCMCBK5  
DISCHPOS^SCRPMTA  (CHK,TMP)^SCUTBK  
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
VA FileMan 1 NOW^%DTC  

Entry Points

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 ;;

External References

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

Used in RPC

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$FILTOUT PTPOSLST+32
$$S BKG+4, BKG+5, BKG+11
BKG PTFILE+22, POSFILE+20
FILEQ PTFILE+12, POSFILE+13
PTBLDQ PTLSTBLD+9

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(T+SCX S
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All