Routine: SCMCQK2

Package	Total	Call Graph
Scheduling	13	($$ACPTTM,$$TPPT)^SCAPMC $$ACPTTP^SCAPMC21 $$INPTSCTP^SCAPMC22 $$TMPT^SCAPMC3 $$INPTSCTM^SCAPMC7 ($$PCPOSCNT,$$TEAMCNT)^SCAPMCU1 $$GETPRTP^SCAPMCU2 $$GETEAM^SCAPMCU3 $$WRITETP^SCMCDD1 $$NEWPERSN^SCMCGU ($$ALLPOS,$$SC,WARNMESS)^SCMCQK1 $$OKINPTTM^SCMCTMU2 $$ACTTP^SCMCTPU
VA FileMan	4	NOW^%DTC ^DIC MIX^DIC1 ^DIR

Package	Total	Caller Graph
Scheduling	1	SCMCQK

Entry Points

Name	Comments	DBIA/ICR reference
DSPL	;
NPC
READ
UNTP	;unassign patient from position
QTUNTP
UNTM	;
QTUNTM
ASTM	;assign patient to team
QTASTM
ASTP	;assign patient to practitioner
QTASTP
NAME(DFN)	;return patient name
POSITION(SCTP)	;return position name
TEAMNM(SCTM)	;return team name
CLINIC(SCCL)	;return clinic name
YESNO()	;
YESNO2()	;
CONFIRM()	;confirmation call
SELPOS()	;return way to select position: 1=PRACT,2=POSIT,3=NONE
DATE(TYPE,DFN)	;type=A(Assignment) or D(Unassignment) ; Returns assignment/unassignment date or "^"
PRACSCR(SC40452)	;screen for for file 404.52
QTPP
POSSCR(SCTP)	;screen for file 404.57
NEW()	;

External References

Name	Field # of Occurrence
NOW^%DTC	ASTM+25, ASTP+37
^DIC	ASTM+9
MIX^DIC1	ASTP+19
^DIR	NPC+4, YESNO+3, YESNO2+4, CONFIRM+4, SELPOS+5, DATE+11
$$ACPTTM^SCAPMC	ASTM+26
$$TPPT^SCAPMC	DSPL+3
$$ACPTTP^SCAPMC21	ASTP+38
$$INPTSCTP^SCAPMC22	UNTP+8, UNTM+11
$$TMPT^SCAPMC3	DSPL+2
$$INPTSCTM^SCAPMC7	UNTM+17
$$PCPOSCNT^SCAPMCU1	ASTP+27
$$TEAMCNT^SCAPMCU1	ASTM+14
$$GETPRTP^SCAPMCU2	DSPL+19, UNTP+4
$$GETEAM^SCAPMCU3	ASTM+15
$$WRITETP^SCMCDD1	UNTM+5
$$NEWPERSN^SCMCGU	DSPL+19
$$ALLPOS^SCMCQK1	UNTM+15
$$SC^SCMCQK1	ASTM+4, ASTP+4
WARNMESS^SCMCQK1	DATE+13
$$OKINPTTM^SCMCTMU2	UNTM+16
$$ACTTP^SCMCTPU	PRACSCR+6, POSSCR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NON PC ASSIGNMENTS",! Line Location: DSPL+13
Function Call: WRITE	Prompt: !,CNT,?4,"Non-PC Team: "_$P(A,U,2),?48,"Phone: "_$P($G(^SCTM(404.51,+A,0)),U,2) Line Location: DSPL+14
Function Call: WRITE	Prompt: !,"No active NON PC ASSIGNMENTS for this patient",! Line Location: DSPL+23
Function Call: READ	Variable: X Timeout: DTIME Line Location: READ+0
Function Call: WRITE	Prompt: !,"Select 1-"_CNT_": " Line Location: READ+0
Function Call: WRITE	Prompt: !,"No position defined" Line Location: UNTP+1
Function Call: WRITE	Prompt: !,"About to Unassign "_$$NAME(DFN)_" from: ",!,?8,$$POSITION(SCTP)_" position ["_$P($$GETPRTP^SCAPMCU2(SCTP,DT),U,2)_"]" Line Location: UNTP+4
Function Call: WRITE	Prompt: !,"Position Unassignment "_$S(OK:"made.",1:"NOT made.") Line Location: QTUNTP+0
Function Call: WRITE	Prompt: !!,"About to Unassign "_$$NAME(DFN)_" from "_$$TEAMNM(SCTM)_" team" Line Location: UNTM+4
Function Call: WRITE	Prompt: !,"Future/Current Patient-Position Assignment exists" Line Location: UNTM+19
Function Call: WRITE	Prompt: !,"Team Unassignment "_$S(OK:"made",1:"NOT made.") Line Location: QTUNTM+0
Function Call: WRITE	Prompt: !!,"About to Assign "_$$NAME(DFN)_" to a non primary care team" Line Location: ASTM+3
Function Call: WRITE	Prompt: !!,"******** This patient is 50 percent or greater service-connected **********" Line Location: ASTM+4
Function Call: WRITE	Prompt: !,"Team Assignment "_$S(OK:"made",1:"NOT made.") Line Location: QTASTM+0
Function Call: WRITE	Prompt: !!,"About to Assign "_$$NAME(DFN)_" to non PC Position Assignment" Line Location: ASTP+3
Function Call: WRITE	Prompt: !!,"******** This patient is 50 percent or greater service-connected **********" Line Location: ASTP+4
Function Call: WRITE	Prompt: !,"Position Assignment "_$S(OK:"made",1:"NOT made.") Line Location: QTASTP+0
Function Call: WRITE	Prompt: !,"Choose way to select NON PC POSITION Assignment: " Line Location: SELPOS+2
Routine Call	DIC Line Location: ASTM+9
Routine Call	DIR Line Location: NPC+4 YESNO+3 YESNO2+4 CONFIRM+4 SELPOS+5 DATE+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SCTM(404.51 - [#404.51]	Classic Fileman Calls
^SCTM(404.52 - [#404.52]	Classic Fileman Calls
^SCTM(404.57 - [#404.57]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATE+9
^DPT - [#2]	NAME+1
^SC - [#44]	CLINIC+1
^SCTM(404.51 - [#404.51]	DSPL+14, DSPL+20, TEAMNM+1
^SCTM(404.52 - [#404.52]	PRACSCR+2, PRACSCR+6
^SCTM(404.57 - [#404.57]	UNTP+10, UNTM+14, ASTP+27, ASTP+40, POSITION+1, PRACSCR+5, POSSCR+2

Label References

Name	Line Occurrences
$$CONFIRM	UNTP+7, UNTM+8, ASTM+20, ASTP+32
$$DATE	UNTP+5, UNTM+6, ASTM+12, ASTP+25
$$NAME	UNTP+4, UNTM+4, ASTM+3, ASTP+3
$$POSITION	UNTP+4, UNTM+5
$$SELPOS	READ+2, ASTM+27
$$TEAMNM	UNTM+4
$$YESNO2	ASTM+16, ASTP+28
ASTM	NPC+7
ASTP	READ+2, ASTM+28
DSPL	NPC+1
NPC	NPC+7, READ+1, READ+2
QTASTM	ASTM+10, ASTM+13, ASTM+16, ASTM+20
QTASTP	ASTP+20, ASTP+26, ASTP+28, ASTP+32
QTPP	PRACSCR+4
QTUNTM	UNTM+7, UNTM+8, UNTM+9
QTUNTP	UNTP+6, UNTP+7, UNTP+9
READ	READ
UNTM	READ+1
UNTP	READ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASTM+25, ASTP+37
>> A	DSPL+12*, DSPL+14, DSPL+15, DSPL+17, DSPL+18, DSPL+20
>> B	DSPL+17*, DSPL+18, DSPL+19, DSPL+21
>> CNT	DSPL+11, DSPL+13, DSPL+14, DSPL+16*, DSPL+18, DSPL+20, DSPL+23, NPC+2, READ
>> D	ASTP+12, ASTP+15
>> DATA	READ+1, READ+2
>> DATA(	DSPL+14, DSPL+16, DSPL+18, READ+1, READ+2
DFN	DSPL+2, DSPL+3, UNTP+4, UNTP+5, UNTP+8, UNTM+4, UNTM+6, UNTM+11, UNTM+16, UNTM+17 , ASTM+3, ASTM+4, ASTM+12, ASTM+26, ASTP+3, ASTP+4, ASTP+25, ASTP+38, NAME~, NAME+1 , DATE~, DATE+2, DATE+13
DIC	ASTM+1~, ASTM+5, ASTP+1~, ASTP+9, ASTP+14*
DIC("A"	ASTP+8, ASTP+16
DIC("S"	ASTM+7, ASTP+11, ASTP+17*
DIC("W"	ASTP+7*
DIC(0	ASTM+6, ASTP+18
DIR	YESNO+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+3~, DATE+11!
DIR("A"	YESNO2+3, CONFIRM+2, DATE+6*
DIR("B"	NPC+3, YESNO+2, YESNO2+2, SELPOS+4, DATE+10*
DIR(0	NPC+2, YESNO+2, YESNO2+2, CONFIRM+3, SELPOS+3, DATE+7
DIRUT	NPC+6!, DATE+12!
DT	DSPL+19, UNTP+4
DTIME	READ
DUOUT	DATE+12!
DUZ	ASTM+24, ASTP+36
>> I	DSPL+15, DSPL+17, NEW+1, NEW+2
LP	DSPL+1~, DSPL+8, DSPL+9, DSPL+10, DSPL+12
OK	UNTP+2~, UNTP+3, UNTP+8, UNTP+9, QTUNTP, UNTM+2~, UNTM+3, UNTM+17, QTUNTM, ASTM+1~ , ASTM+2, ASTM+29, QTASTM, ASTP+1~, ASTP+2, ASTP+39, QTASTP, PRACSCR+1~, PRACSCR+3, PRACSCR+6 , QTPP
OK2	UNTM+2~, UNTM+9, UNTM+11*, UNTM+12
OK3	UNTM+2~, UNTM+15*
>> POS	DSPL+11, DSPL+18
>> RES	DSPL+19*
SC40452	PRACSCR~, PRACSCR+2
>> SCASSDT	ASTM+12, ASTM+13, ASTM+26, ASTP+25, ASTP+26, ASTP+34, ASTP+38, DATE+8
SCBEGIN	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCCL	UNTP+2~, UNTP+10, UNTM+14, ASTP+1~, ASTP+40*, CLINIC~, CLINIC+1
SCD	DSPL+1~, NPC~
SCD(	DSPL+12, NEW+1
SCDATES	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
>> SCDISCH	UNTP+5, UNTP+6, UNTP+8, UNTM+6, UNTM+7, UNTM+11, UNTM+16, UNTM+17, DATE+8
SCDT	NPC~
SCDTS	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCEND	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCER	UNTP+2~, UNTP+8, UNTM+2~, UNTM+11, UNTM+17, ASTM+1~, ASTP+1~
SCER1	NPC~
SCINCL	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLIST	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLSEQ	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCN	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCNODE	PRACSCR+1~, PRACSCR+5, PRACSCR+6, POSSCR+1~, POSSCR+2, POSSCR+3
>> SCOK	DSPL+3*
SCP	PRACSCR+1~, PRACSCR+2*, PRACSCR+4, PRACSCR+5, PRACSCR+6
SCPOS	DSPL+1~, NPC~
SCPOS(	DSPL+8, DSPL+9!, DSPL+10
SCPOS("T"	DSPL+10*, DSPL+15, DSPL+17
>> SCPR	DSPL+19*, DSPL+21, DSPL+22
>> SCPR(	DSPL+22
>> SCSELECT	READ+2, ASTM+27, ASTM+28, ASTP+6, ASTP+21
SCTM	READ+1, READ+2, UNTM+4, UNTM+16, UNTM+17, ASTM+1~, ASTM+11, ASTM+14, ASTM+15, ASTM+21 , ASTM+26, TEAMNM~, TEAMNM+1, PRACSCR+6, POSSCR+3
>> SCTMCT	ASTM+14, ASTM+16, ASTM+18, ASTM+20, ASTP+27, ASTP+28, ASTP+30
SCTMFLDS	ASTM+1~
SCTMFLDS(	ASTM+24, ASTM+25
>> SCTMMAX	ASTM+15, ASTM+16, ASTM+19, ASTM+20, ASTP+27, ASTP+28, ASTP+31
>> SCTOK	DSPL+2*
SCTP	READ+1, UNTP+1, UNTP+4, UNTP+8, UNTP+10, UNTM+5, UNTM+11, UNTM+14, ASTP+22, ASTP+24* , ASTP+27, ASTP+38, ASTP+40, POSITION~, POSITION+1, POSSCR~, POSSCR+2, POSSCR+3
SCTPFLDS	ASTP+1~
SCTPFLDS(	ASTP+34, ASTP+36, ASTP+37*
>> SCTPSTAT	READ+1*, UNTM+5, UNTM+9
SDFLG	DATE+3~, DATE+5, DATE+12*, DATE+13
SDY	DATE+3~, DATE+11*, DATE+13, DATE+14
TYPE	DATE~, DATE+6, DATE+8
U	DSPL+9, DSPL+10, DSPL+12, DSPL+14, DSPL+16, DSPL+18, DSPL+20, DSPL+21, DSPL+22, READ , READ+1, UNTP+4, UNTP+10, UNTM+14, ASTP+22, ASTP+24, ASTP+27, ASTP+40, NAME+1, POSITION+1 , TEAMNM+1, CLINIC+1, PRACSCR+6, POSSCR+3
X	NPC+6!, READ*, READ+1, READ+2, ASTP+1~, YESNO+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+3~ , DATE+12!
Y	NPC+5, NPC+6!, NPC+7, READ+1, ASTM+1~, ASTM+10, ASTM+11, ASTM+21, ASTP+1~, ASTP+20 , ASTP+22, ASTP+24, YESNO+1~, YESNO+4, YESNO2+1~, YESNO2+5, CONFIRM+1~, CONFIRM+5, SELPOS+1~, SELPOS+6 , DATE+3~, DATE+8*, DATE+10, DATE+11, DATE+12!, NEW+1

Customize PDF page

Package: Scheduling

Routine: SCMCQK2

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: