Routine: SCMCQK1

Information

SCMCQK1 ;ALBOI/REW - Single Pt Tm/Pt Tm Pos Assign and Discharge;11/07/02

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
Scheduling	15	$$ACPTTM^SCAPMC $$ACPTCL^SCAPMC18 $$ACPTTP^SCAPMC21 $$INPTSCTP^SCAPMC22 $$TPPT^SCAPMC23 $$INPTSCTM^SCAPMC7 ($$PCPOSCNT,$$TEAMCNT)^SCAPMCU1 $$GETPRTP^SCAPMCU2 $$GETEAM^SCAPMCU3 $$RESTPT^SCAPMCU4 $$WRITETP^SCMCDD1 $$OKINPTTM^SCMCTMU2 $$ACTTP^SCMCTPU ($$ONWAIT,$$WAITS)^SCMCWAIT ^SDCD
VA Fileman	4	NOW^%DTC ^DIC MIX^DIC1 ^DIR
Registration	1	ELIG^VADPT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Scheduling	3	SCMCQK SCMCQK2 SCMCTSK6

Entry Points

Name	Comments	DBIA/ICR reference
POSITION(SCTP)	;return position name
CONFIRM()	;confirmation call
ENRCL	; no longer used with SD5.3535
QTECL
ASTM	;assign patient to PC team
PRACSCR(SC40452)	;screen for for file 404.52
UNTM	;
YESNO1()	; added per SD5.3436
ASTP	;assign patient to PC practitioner
QTALL
YESNO2()	;
NAME(DFN)	;return patient name
CLINIC(SCCL)	;return clinic name
UNTP	;unassign patient from pc prac position
QTUNTP
DISCL	; no longer used with SD5.3535
QTUNTM
TEAMNM(SCTM)	;return team name
WAITYN()	;
QTASTM
QTPP
ACTCL(DFN,SCCL)	;is patient enrolled in clinic? - not called with SD5.3535
POSSCR(SCTP)	;screen for file 404.57
SC(DFN)	;Is patient 50 to 100%
SELPOS()	;return way to select position: 1=PRACT,2=POSIT,3=NONE
ALLPOS()	;unassign all patient-positions for team
YESNO()	;
QTDCL
DATE(TYPE)	;return date type=A or D
QTASTP

External References

Name	Field # of Occurrence
NOW^%DTC	ASTM+34, ASTP+37
^DIC	ASTM+9
MIX^DIC1	ASTP+19
^DIR	YESNO+3, YESNO1+4, YESNO2+4, CONFIRM+4, SELPOS+5, DATE+7, WAITYN+7
$$ACPTTM^SCAPMC	ASTM+35
$$ACPTCL^SCAPMC18	ENRCL+23
$$ACPTTP^SCAPMC21	ASTP+38
$$INPTSCTP^SCAPMC22	UNTP+8, UNTM+11, ALLPOS+26
$$TPPT^SCAPMC23	ALLPOS+7
$$INPTSCTM^SCAPMC7	UNTM+18
$$PCPOSCNT^SCAPMCU1	ASTP+27
$$TEAMCNT^SCAPMCU1	ASTM+23
$$GETPRTP^SCAPMCU2	UNTP+4
$$GETEAM^SCAPMCU3	ASTM+24
$$RESTPT^SCAPMCU4	ENRCL+9
$$WRITETP^SCMCDD1	UNTM+5
$$OKINPTTM^SCMCTMU2	UNTM+17
$$ACTTP^SCMCTPU	PRACSCR+6, POSSCR+3
$$ONWAIT^SCMCWAIT	WAITYN+3
$$WAITS^SCMCWAIT	WAITYN+8
^SDCD	DISCL+9
ELIG^VADPT	SC+1

Interaction Calls

Name	Line Occurrences
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: !,?10,SCRESTA(SCTM) Line Location: ENRCL+15
Function Call: WRITE	Prompt: Y,"?" Line Location: ENRCL+20
Function Call: WRITE	Prompt: " made" Line Location: ENRCL+23
Function Call: WRITE	Prompt: "NOT made " Line Location: ENRCL+24
Function Call: WRITE	Prompt: Y,"?" Line Location: DISCL+6
Function Call: WRITE	Prompt: !!,"About to Unassign "_$$NAME(DFN)_" from "_$$TEAMNM(SCTM)_" team" Line Location: UNTM+4
Function Call: WRITE	Prompt: !,"Team Unassignment "_$S(OK:"made",1:"NOT made.") Line Location: QTUNTM+0
Function Call: WRITE	Prompt: !,"Checking for other position assignments to team..." Line Location: ALLPOS+9
Function Call: WRITE	Prompt: !,?5,$S(SCCNT:SCCNT,1:"No")_" current/future position assignment(s)" Line Location: ALLPOS+20
Function Call: WRITE	Prompt: !!,"About to unassign the above patient-position assignments" Line Location: ALLPOS+22
Function Call: WRITE	Prompt: !!,"About to Assign "_$$NAME(DFN)_" to a 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: ! Line Location: ASTM+20
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 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 PC POSITION Assignment: " Line Location: SELPOS+2
Function Call: WRITE	Prompt: !,"Patient Placed on Wait List" Line Location: WAITYN+8
Routine Call	DIC Line Location: ASTM+9
Routine Call	DIR Line Location: YESNO+3 YESNO1+4 YESNO2+4 CONFIRM+4 SELPOS+5 DATE+7 WAITYN+7

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"	ENRCL+20, DISCL+6, DATE+5
^DPT - [#2]	NAME+1, ACTCL+3, ACTCL+4
^SC - [#44]	CLINIC+1
^SCTM(404.51 - [#404.51]	ASTM+13, TEAMNM+1
^SCTM(404.52 - [#404.52]	PRACSCR+2, PRACSCR+6
^SCTM(404.57 - [#404.57]	ENRCL+4, DISCL+2, UNTM+14, ASTP+27, ASTP+40, POSITION+1, PRACSCR+5, POSSCR+2

Label References

Name	Line Occurrences
$$ACTCL	ENRCL+5, DISCL+3
$$ALLPOS	UNTM+16
$$CLINIC	ENRCL+6, DISCL+4
$$CONFIRM	UNTP+7, UNTM+8, ALLPOS+23, ASTM+19, ASTM+29, ASTP+32
$$DATE	UNTP+5, UNTM+6, ASTM+21, ASTP+25
$$NAME	UNTP+4, DISCL+4, UNTM+4, ASTM+3, ASTP+3
$$POSITION	UNTP+4, ENRCL+6, UNTM+5
$$SC	ASTM+4, ASTP+4
$$SELPOS	ASTM+36
$$TEAMNM	UNTM+4
$$WAITYN	ASTM+25, ASTP+28
$$YESNO	ENRCL+21, DISCL+7
$$YESNO1	ASTM+18
$$YESNO2	ASTM+25, ASTP+28
ASTP	ASTM+37
ENRCL	ASTP+41
QTALL	ALLPOS+21, ALLPOS+23
QTASTM	ASTM+10, ASTM+13, ASTM+22, ASTM+25, ASTM+29
QTASTP	ASTP+20, ASTP+26, ASTP+28, ASTP+32
QTECL	ENRCL+16
QTPP	PRACSCR+4
QTUNTM	UNTM+7, UNTM+8, UNTM+9
QTUNTP	UNTP+6, UNTP+7, UNTP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASTM+34, ASTP+37, WAITYN+1~
A	WAITYN+3~*
>> D	ASTP+12, ASTP+15
DFN	UNTP+4, UNTP+8, ENRCL+5, ENRCL+9, ENRCL+23, DISCL+3, DISCL+4, DISCL+8, DISCL+9~, UNTM+4 , UNTM+11, UNTM+17, UNTM+18, ALLPOS+7, ALLPOS+26, ASTM+3, ASTM+4, ASTM+35, ASTP+3, ASTP+4 , ASTP+38, NAME~, NAME+1, ACTCL~, ACTCL+3, ACTCL+4, WAITYN+3, WAITYN+8, SC~
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~, YESNO1+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+1~, WAITYN+4~
DIR("A"	YESNO1+2, YESNO2+3, CONFIRM+2, DATE+2, WAITYN+6*
DIR("B"	YESNO+2, YESNO1+3, YESNO2+2, SELPOS+4, DATE+6, WAITYN+5
DIR(0	YESNO+2, YESNO1+2, YESNO2+2, CONFIRM+3, SELPOS+3, DATE+3, WAITYN+5*
DT	UNTP+4, ENRCL+9
DUZ	ASTM+33, ASTP+36
OK	UNTP+2~, UNTP+3, UNTP+8, UNTP+9, QTUNTP, UNTM+2~, UNTM+3, UNTM+18, QTUNTM, ALLPOS+3~ , ALLPOS+7, ALLPOS+19, ALLPOS+21, ALLPOS+23, ALLPOS+25, ALLPOS+26, ALLPOS+27, QTALL, ASTM+1~, ASTM+2* , ASTM+38, QTASTM, QTASTM+1, ASTP+1~, ASTP+2, ASTP+39, QTASTP, QTASTP+1, PRACSCR+1~, PRACSCR+3 , PRACSCR+6*, QTPP, WAITYN+1~
OK2	UNTM+2~, UNTM+9, UNTM+11*, UNTM+12
OK3	UNTM+2~, UNTM+16*
SC	WAITYN+3~, WAITYN+8
SC40452	PRACSCR~, PRACSCR+2
>> SCASSDT	ENRCL+20, ENRCL+23, ASTM+21, ASTM+22, ASTM+35, ASTP+25, ASTP+26, ASTP+34, ASTP+38, DATE+4
SCBEGIN	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCCL	UNTP+2~, ENRCL+3~, ENRCL+4, ENRCL+5, ENRCL+6, ENRCL+23, DISCL+2~, DISCL+3, DISCL+4, DISCL+8 , UNTM+14, ASTP+1~, ASTP+40, ASTP+41, CLINIC~, CLINIC+1, ACTCL~, ACTCL+3
SCCLNM	ENRCL+2~, ENRCL+12*
SCCNT	ALLPOS+3~, ALLPOS+8, ALLPOS+10, ALLPOS+20, ALLPOS+21
SCDATES	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
>> SCDISCH	UNTP+5, UNTP+6, UNTP+8, DISCL+6, UNTM+6, UNTM+7, UNTM+11, UNTM+17, UNTM+18, ALLPOS+4 , ALLPOS+16, ALLPOS+26, DATE+4
SCDT1	ALLPOS+3~
SCDT1("BEGIN"	ALLPOS+4*
SCDT1("END"	ALLPOS+5*
SCDT1("INCL"	ALLPOS+6*
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+18, ALLPOS+26, ASTM+1~, ASTP+1~
SCERRR	ALLPOS+3~, ALLPOS+7
>> SCFLAG	ASTM+13, ASTM+14, ASTM+20
SCINCL	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLIST	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLOC	ALLPOS+3~, ALLPOS+12*, ALLPOS+13
SCLSEQ	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCN	UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCNODE	ALLPOS+3~, ALLPOS+13, ALLPOS+15, ALLPOS+16, PRACSCR+1~, PRACSCR+5, PRACSCR+6, POSSCR+1~, POSSCR+2*, POSSCR+3
>> SCOKCONS	ENRCL+16
SCP	PRACSCR+1~, PRACSCR+2*, PRACSCR+4, PRACSCR+5, PRACSCR+6
SCPTTP2	ALLPOS+3~
SCPTTP2(	ALLPOS+14*, ALLPOS+25
SCPTTPI	ALLPOS+3~, ALLPOS+11*, ALLPOS+12
SCPTTPX	ALLPOS+3~
SCPTTPX(	ALLPOS+13
SCPTTPX("SCTP"	ALLPOS+10, ALLPOS+11, ALLPOS+12
SCREST	ENRCL+2~, ENRCL+9*, ENRCL+10, ENRCL+16
SCRESTA	ENRCL+2~, ENRCL+8~
SCRESTA(	ENRCL+15
>> SCSELECT	ASTM+36*, ASTM+37, ASTP+6, ASTP+21
SCTM	ENRCL+2~, ENRCL+11~, ENRCL+14, ENRCL+15, UNTM+4, UNTM+17, UNTM+18, ALLPOS+10, ALLPOS+11, ALLPOS+12 , ASTM+1~, ASTM+11, ASTM+13, ASTM+23, ASTM+24, ASTM+30, ASTM+35, TEAMNM~, TEAMNM+1, PRACSCR+6 , POSSCR+3, WAITYN+8
>> SCTMCT	ASTM+23, ASTM+25, ASTM+27, ASTM+29, ASTP+27, ASTP+28, ASTP+30, WAITYN+2
SCTMFLDS	ASTM+1~
SCTMFLDS(	ASTM+32, ASTM+33, ASTM+34*
>> SCTMMAX	ASTM+24, ASTM+25, ASTM+28, ASTM+29, ASTP+27, ASTP+28, ASTP+31, WAITYN+2
SCTP	UNTP+1, UNTP+4, UNTP+8, ENRCL+4, ENRCL+6, DISCL+2, UNTM+5, UNTM+11, UNTM+14, ALLPOS+3~ , ALLPOS+8, ALLPOS+10, ALLPOS+11, ALLPOS+12, ALLPOS+14, ALLPOS+24, ALLPOS+25, ALLPOS+26, ASTP+22, ASTP+24 , ASTP+27, ASTP+38, ASTP+40, POSITION~, POSITION+1, POSSCR~, POSSCR+2, POSSCR+3, WAITYN+3, WAITYN+8
SCTPFLDS	ASTP+1~
SCTPFLDS(	ASTP+34, ASTP+35, ASTP+36, ASTP+37
>> SCTPSTAT	UNTM+5, UNTM+9
SCXX	ACTCL+2~, ACTCL+3*, ACTCL+4
SDCLN	DISCL+8~*
SDFN	DISCL+8~*
>> SDWLPCMM	QTASTM+1, QTASTP+1
TYPE	DATE~, DATE+2, DATE+4
U	UNTP+4, UNTM+14, ALLPOS+15, ALLPOS+16, ASTM+13, ASTP+22, ASTP+24, ASTP+27, NAME+1, POSITION+1 , TEAMNM+1, CLINIC+1, ACTCL+4, PRACSCR+6, POSSCR+3, SC+1
>> VAEL(3	SC+1
X	ASTP+1~, YESNO+1~, YESNO1+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+1~, WAITYN+4~
Y	ENRCL+12, ENRCL+20, DISCL+6, ASTM+1~, ASTM+10, ASTM+11, ASTM+30, ASTP+1~, ASTP+20, ASTP+22 , ASTP+24, YESNO+1~, YESNO+4, YESNO1+1~, YESNO1+5, YESNO2+1~, YESNO2+5, CONFIRM+1~, CONFIRM+5, SELPOS+1~ , SELPOS+6, DATE+1~, DATE+4, DATE+6, DATE+8, WAITYN+1~, WAITYN+4~, WAITYN+8, WAITYN+9

Customize PDF page

Package: Scheduling

Routine: SCMCQK1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: