Routine: SCMCBK1

Information

SCMCBK1 ;LB/SCK - Broker Utilities for multiple patient assignments;

Package	Total	Call Graph
Scheduling	14	($$PTTM,$$PTTP)^SCAPMC $$PTTP^SCAPMC11 $$ACPTCL^SCAPMC18 $$PTTM^SCAPMC2 PTPCNOTM^SCAPMC20 $$ACPTATP^SCAPMC21 $$PTCLBR^SCAPMC26 $$PTST^SCAPMC27 $$PTAP^SCAPMC28 $$ACPTATM^SCAPMC6 ALPHA^SCAPMCU2 $$PCRLPTTP^SCMCTPU2 (CHK,TMP)^SCUTBK HDREC^SCUTBK3
VA FileMan	1	BLD^DIALOG

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

Package	Total	Caller Graph
Scheduling	8	SC BLD NOPC TM LIST SC CHECK FOR PC POS SC FILE ALL PAT POS ASGN SC FILE ALL PAT TM ASGN SC PAT ENROLL CLN SCMCBK SCMCBK4 SCMRBK

Entry Points

Name	Comments	DBIA/ICR reference
PARSE(SC)	;
NEWVAR	;
CLRVAR	; Clear all parsing variables
PTCLEN(SCOK,SC)	; Enroll patient in associated clinic for a position ; ' SC PAT ENROLL CLN '
CHKPOS(SCOK,SC)	; Check for primary care pratitioner and attending positions for patient ; ' SC CHECK FOR PC POS ' ; Piece 1 of SCOK = 1 if ok for practitioner role ; 0 if not ok ; Piece 2 of SCOK = 1 if ok for ateending role ; 0 if not ok
NOPCTM(SCOK,SC)	; Build list of patients with a primary care assignment, but no primary care team; ; ' SC BLD NOPC TM LIST '
ASGNALL(SCOK,SC)	; Assign all entries for the selection source to the appropriate team. ; ' SC FILE ALL PAT TM ASGN '
CLN	; File all patients in selected clinic.
STOPC	; File all patients in the selected stop code
APPT	; File all patients for the selected clinic appointment range
TEAM	; File all patients for the selected team
ASGALLP(SCOK,SC)	; Assign all entries in the selected source to the selected team and position
PCLN	; File all patients in selected clinic to the new position and team
PSTOPC	; File all patients in with the selected stop code to the new position and team
PAPPT	;
PTEAM	;
PPOS	;
BAD(SCBAD,SCOLD,SCOK)	;
BAD2(SCBAD,SCOLD,SCOK)	;

External References

Name	Field # of Occurrence
BLD^DIALOG	BAD+5, BAD+9, BAD2+5, BAD2+9
$$PTTM^SCAPMC	ASGNALL+17
$$PTTP^SCAPMC	ASGALLP+15
$$PTTP^SCAPMC11	PPOS+1
$$ACPTCL^SCAPMC18	PTCLEN+15
$$PTTM^SCAPMC2	TEAM+1, PTEAM+1
PTPCNOTM^SCAPMC20	NOPCTM+20
$$ACPTATP^SCAPMC21	ASGALLP+22
$$PTCLBR^SCAPMC26	CLN+2, PCLN+2
$$PTST^SCAPMC27	STOPC+2, PSTOPC+2
$$PTAP^SCAPMC28	APPT+1, PAPPT+1
$$ACPTATM^SCAPMC6	ASGNALL+24
ALPHA^SCAPMCU2	NOPCTM+27
$$PCRLPTTP^SCMCTPU2	CHKPOS+14
CHK^SCUTBK	PTCLEN+5, CHKPOS+9, NOPCTM+6, ASGNALL+5, ASGALLP+4
TMP^SCUTBK	PTCLEN+6, CHKPOS+10, NOPCTM+7, ASGNALL+6, ASGALLP+5
HDREC^SCUTBK3	BAD+10, BAD2+10

RPC Name	Call Tags
SC PAT ENROLL CLN	PTCLEN
SC CHECK FOR PC POS	CHKPOS
SC FILE ALL PAT TM ASGN	ASGNALL
SC FILE ALL PAT POS ASGN	ASGALLP
SC BLD NOPC TM LIST	NOPCTM

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PTCLEN+14, BAD+4, BAD+8, BAD2+4, BAD2+8
^SCTM(404.57 - [#404.57]	PTCLEN+13
^TMP("SC TMP LIST"	NEWVAR+9!, CLRVAR+9!
^TMP("SCMC"	NOPCTM+21!, ASGNALL+26!, ASGALLP+24!
^TMP($J	NEWVAR+7!, NEWVAR+8!, NEWVAR+10!, CLRVAR+7!, CLRVAR+8!, CLRVAR+10!, NOPCTM+11!, NOPCTM+24, NOPCTM+25, NOPCTM+28 , CLN+3, CLN+4, CLN+5!, STOPC+3, STOPC+4, STOPC+5, APPT+2, APPT+3, APPT+4, TEAM+2* , TEAM+3, TEAM+4, PCLN+3, PCLN+4, PSTOPC+3, PSTOPC+4, PSTOPC+5, PAPPT+2, PAPPT+3, PAPPT+4 , PTEAM+2, PTEAM+3, PTEAM+4, PPOS+2, PPOS+3, PPOS+4

Label References

Name	Line Occurrences
@(	NOPCTM+15, ASGNALL+21, ASGALLP+19
BAD	ASGNALL+27
BAD2	ASGALLP+25
CLRVAR	NEWVAR+2, PTCLEN+17, CHKPOS+16, NOPCTM+32, ASGNALL+30, ASGALLP+28
NEWVAR	NOPCTM+4, ASGNALL+3, ASGALLP+3
PARSE	PTCLEN+8, CHKPOS+12, NOPCTM+9, ASGNALL+8, ASGALLP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLOCK	NEWVAR+4~, CLRVAR+3!, NOPCTM+13*, NOPCTM+15
DIERR	BAD+1~, BAD+10, BAD2+1~, BAD2+10
DT	PARSE+3, PARSE+4, PARSE+5, ASGNALL+13, ASGALLP+11
DTMP	ASGNALL+15, ASGNALL+18, ASGALLP+2~, ASGALLP+13, ASGALLP+16
DUZ	ASGNALL+12, ASGALLP+10
>> I	NOPCTM+23, NOPCTM+24, NOPCTM+25, NOPCTM+28, NOPCTM+30, CLN+3, CLN+4, STOPC+4, STOPC+5, APPT+3 , APPT+4, TEAM+3, TEAM+4, PCLN+3, PCLN+4, PSTOPC+4, PSTOPC+5, PAPPT+3, PAPPT+4, PTEAM+3* , PTEAM+4, PPOS+3*, PPOS+4
I1	NOPCTM+3~, NOPCTM+28*
SC	PARSE~, PTCLEN~, PTCLEN+8, CHKPOS~, CHKPOS+12, NOPCTM~, NOPCTM+9, ASGNALL~, ASGNALL+8, ASGALLP~ , ASGALLP+7
SC("ADD1"	PTCLEN+9
SC("BEGIN"	PARSE+4
SC("BEND"	PARSE+9
SC("BLAST"	PARSE+10
SC("BSTART"	PARSE+8
SC("CLINIC"	PARSE+14
SC("DATE"	PARSE+3
SC("DFN"	PARSE+18
SC("END"	PARSE+5
SC("FILE"	PARSE+11
SC("FROMPOS"	PARSE+17
SC("FROMTEAM"	PARSE+16
SC("INCL"	PARSE+6
SC("JOB"	PARSE+7
SC("JOBID"	PARSE+12
SC("MAX"	PARSE+13
SC("MORE"	PARSE+19
SC("POSITION"	PARSE+2
SC("RESTRICT"	ASGNALL+11
SC("SOURCE"	ASGNALL+9, ASGALLP+8
SC("STOPCODE"	PARSE+15
SC("TEAM"	PARSE+1
SC("TYPE"	ASGNALL+10, ASGALLP+9
SCADDFLD	NEWVAR+5~, CLRVAR+5!, PTCLEN+3~
SCADDFLD(	ASGNALL+10, ASGNALL+11, ASGNALL+12, ASGNALL+13, ASGALLP+9, ASGALLP+10, ASGALLP+11*
SCADDFLD(1	PTCLEN+9*
SCBAD	NEWVAR+5~, CLRVAR+4!, ASGNALL+23!, ASGNALL+27, ASGALLP+21!, ASGALLP+25, BAD~, BAD2~
SCBAD(	BAD+3, BAD2+3
SCBLOCK	NEWVAR+4~, CLRVAR+3!, NOPCTM+14*
SCCLN	PARSE+14, NEWVAR+4~, CLRVAR+2!, PTCLEN+3~, PTCLEN+13, PTCLEN+14, PTCLEN+15
SCCOUNT	NEWVAR+4~, CLRVAR+4!
SCDFN	PARSE+18, CLRVAR+3!, PTCLEN+3~, PTCLEN+14, PTCLEN+15, CHKPOS+7~, CHKPOS+14, BAD+1~, BAD+2, BAD+3* , BAD+4, BAD+7, BAD+8, BAD2+1~, BAD2+2, BAD2+3, BAD2+4, BAD2+7, BAD2+8
SCDTRNG	NEWVAR+4~, CLRVAR+2!
SCDTRNG("BEGIN"	PARSE+4*
SCDTRNG("END"	PARSE+5, ASGNALL+15, ASGNALL+18, ASGALLP+13, ASGALLP+14, ASGALLP+16
SCDTRNG("INCL"	PARSE+6*
>> SCDTTRNG("END"	ASGNALL+16*
SCDTVAR	PARSE+3*, CLRVAR+3!, PTCLEN+3~, PTCLEN+15, CHKPOS+7~, CHKPOS+14, NOPCTM+20, ASGNALL+24, ASGALLP+22
SCEND	PARSE+9*, CLRVAR+2!
SCER2	NEWVAR+4~, CLRVAR+5!
SCERMSG	NEWVAR+4~, CLRVAR+4!, PTCLEN+3~
SCFILE	PARSE+11*, CLRVAR+2!
SCFRMPOS	PARSE+17*, NEWVAR+4~, CLRVAR+3!
SCFRMTM	PARSE+16*, NEWVAR+4~, CLRVAR+3!
SCJOB	PARSE+7*, CLRVAR+2!
SCJOBID	PARSE+12*, CLRVAR+2!
SCLAST	PARSE+10*, CLRVAR+2!
SCLOC	NEWVAR+4~, CLRVAR+4!, NOPCTM+19*, NOPCTM+20
SCMORE	PARSE+19*, NEWVAR+4~, CLRVAR+4!
SCNEW	NEWVAR+5~, CLRVAR+4!, ASGNALL+23!, ASGALLP+21!
SCNUM	PARSE+13*, NEWVAR+4~, CLRVAR+2!, STOPC+2, APPT+1
SCOK	PTCLEN~, PTCLEN+10, PTCLEN+15, CHKPOS~, CHKPOS+14, NOPCTM~, NOPCTM+17, NOPCTM+30*, ASGNALL~, ASGNALL+27 , ASGALLP~, ASGALLP+25, BAD~, BAD+10, BAD2~, BAD2+10
SCOK(	ASGNALL+28, ASGALLP+26
SCOK1	NEWVAR+4~, CLRVAR+4!, CLN+2, STOPC+2, APPT+1, TEAM+1, PCLN+2, PSTOPC+2, PAPPT+1, PTEAM+1 , PPOS+1*
>> SCOK2	ASGNALL+17, ASGALLP+15
SCOLD	NEWVAR+5~, CLRVAR+4!, ASGNALL+23!, ASGNALL+27, ASGALLP+21!, ASGALLP+25, BAD~, BAD2~
SCOLD(	BAD+7, BAD2+7
SCOUT	NEWVAR+4~, CLRVAR+5!
SCPARM	BAD+1~, BAD+5, BAD+9, BAD2+1~, BAD2+5, BAD2+9
SCPARM("PATIENT"	BAD+4, BAD+8, BAD2+4, BAD2+8
SCPOS	PARSE+2*, CLRVAR+3!, PTCLEN+13, CHKPOS+7~, CHKPOS+14, NOPCTM+13, NOPCTM+14, ASGALLP+15, ASGALLP+22
SCSCDE	PARSE+15*, NEWVAR+4~, CLRVAR+2!
SCSRCE	NEWVAR+4~, CLRVAR+5!, ASGNALL+9, ASGNALL+20, CLN+2, STOPC+2, APPT+1, TEAM+1, ASGALLP+8, ASGALLP+18 , PCLN+2, PSTOPC+2, PAPPT+1, PTEAM+1, PPOS+1
SCSRCTYP	NEWVAR+4~, CLRVAR+5!, ASGNALL+20, ASGNALL+21, ASGALLP+18, ASGALLP+19
SCSTART	PARSE+8*, CLRVAR+2!
SCTEAM	PARSE+1*, NEWVAR+4~, CLRVAR+3!, NOPCTM+14, ASGNALL+17, ASGNALL+24, CLN+2, PCLN+2
SCTMP	NEWVAR+5~, CLRVAR+4!, STOPC+2, STOPC+3, APPT+1, APPT+2, TEAM+1, TEAM+2, PSTOPC+2, PSTOPC+3 , PAPPT+1, PAPPT+2, PTEAM+1, PTEAM+2, PPOS+1, PPOS+2
SCX	NEWVAR+5~, CLRVAR+3!, ASGNALL+24, ASGNALL+28, ASGALLP+22, ASGALLP+26
SUBRTN	NEWVAR+5~, CLRVAR+3!
U	NOPCTM+30, ASGNALL+20, CLN+2, CLN+4, STOPC+2, STOPC+5, APPT+1, APPT+4, TEAM+1, TEAM+4 , ASGALLP+18, PCLN+2, PCLN+4, PSTOPC+2, PSTOPC+5, PAPPT+1, PAPPT+4, PTEAM+1, PTEAM+4, PPOS+1 , PPOS+4, BAD+4, BAD+8, BAD2+4, BAD2+8

Customize PDF page

Package: Scheduling

Routine: SCMCBK1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend: