Routine: SDM4

Package	Total	Call Graph
Scheduling	3	$$INP^SDAM2 END^SDM ^SDM0
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Registration	2	2^VADPT $$UPPER^VALM1

Package	Total	Caller Graph
Scheduling	7	SCMSPX1 SCMSPX2 SDAMWI SDAMWI1 SDM SDM1A SDPCE

Entry Points

External References

Name	Field # of Occurrence
^DIC	APT+9, APT+13
$$GET1^DIQ	RAT+2, RAT+4, RAT+10, RAT+17, RAT+28, RAT+29, RAT+33, RAT+34, RAT+35, RAT+44 , RAT+45, SBR+2
^DIR	SBR+3
$$INP^SDAM2	RAT+35
END^SDM	APT+17
^SDM0	APT+17
2^VADPT	APT+2
$$UPPER^VALM1	1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT'S SERVICE CONNECTION AND RATED DISABILITIES:" Line Location: RAT+1
Function Call: WRITE	Prompt: !,"Primary Eligibility Code: "_$P(VAEL(1),"^",2) Line Location: RAT+14
Function Call: WRITE	Prompt: !,"No Service Connected Disabilities Listed" Line Location: RAT+15
Function Call: WRITE	Prompt: ! Line Location: RAT+16
Function Call: WRITE	Prompt: !,"'SERVICE CONNECTED?' field is blank please update patient record." Line Location: RAT+18
Function Call: WRITE	Prompt: !,"'PRIMARY ELIGIBILITY CODE' field is blank please update patient record." Line Location: RAT+19
Function Call: WRITE	Prompt: ! Line Location: RAT+26
Function Call: WRITE	Prompt: "*NO STOP CODE ASSIGNED*" Line Location: RAT+30
Function Call: WRITE	Prompt: " *NON-COUNT CLINIC*" Line Location: RAT+34
Function Call: WRITE	Prompt: " *PATIENT IS CURRENTLY AN INPATIENT*" Line Location: RAT+35
Function Call: READ	Timeout: DTIME Variable: X Line Location: APT+1
Function Call: WRITE	Prompt: !,"APPOINTMENT TYPE IS REQUIRED" Line Location: APT+4
Function Call: WRITE	Prompt: !,"PLEASE ENTER MORE THAN ONE CHARACTER" Line Location: APT+5
Function Call: WRITE	Prompt: !,"Appointment type is required",!,"Patient must have the eligibility code EMPLOYEE, COLLATERAL or SHARING AGREEMENT",!,"to choose those types of appointments." Line Location: APT+14
Function Call: WRITE	Prompt: !!,"** Note - You are making a ",$P(^SD(409.1,+COLLAT,0),U)," appt.",! Line Location: APT+15
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS OTHER ENTITLED ELIGIBILITIES:" Line Location: ELIG+0
Function Call: WRITE	Prompt: !?5,$P(VAEL(1,SDOEL),U,2) Line Location: ELIG+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: 1+0
Function Call: WRITE	Prompt: $P($P(SDALLE,"^"_X,2),"^") Line Location: 1+1
Function Call: WRITE	Prompt: !,*7,"ENTER (Y or N) PLEASE!" Line Location: SBR+4
Routine Call	DIC Line Location: APT+9 APT+13
Routine Call	DIR Line Location: SBR+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(31 - [#31]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^SD(409.1 - [#409.1]	Classic Fileman Calls, GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	APT+12
^DPT - [#2]	RAT+8, RAT+9, RAT+15, SC+1, SBR+2
^SC - [#44]	RAT+38, RAT+42, APT+2
^SD(409.1 - [#409.1]	RAT+38, RAT+42, RAT+45, APT+2, APT+15, APT+17
^SD(409.45 - [#409.45]	RAT+29, RAT+31, RAT+32

Label References

Name	Line Occurrences
1	1
APT	TYPE+2, RAT+30, RAT+33, RAT+34, RAT+35, APT+4, APT+5, APT+11
ELIG	1
SBR	RAT+41, SBR+4
SC	TYPE+1
TYPE	APT+14

Naked Globals

Name	Field # of Occurrence
^(	SC+1
^("AT"	RAT+38, RAT+42, APT+2
^(0	RAT+38, RAT+42, APT+2, APT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACT	RAT+28, RAT+32, RAT+33
ANS	RAT+7~, RAT+42, RAT+43, RAT+44, RAT+46, SBR, SBR+1, SBR+2, SBR+3, SBR+4
>> COLLAT	APT+15*, APT+17
>> DFN	RAT+2, RAT+4, RAT+8, RAT+9, RAT+15, RAT+17, RAT+35, SC+1, SBR+2
DIC	APT+9, APT+13!
DIC("S"	APT+8, APT+13
DIC(0	APT+9, APT+13
DIR	SBR+5!
DIR("A"	SBR+3*
DIR(0	SBR+3*
DT	RAT+35
DTIME	1
>> IENACT	RAT+28, RAT+29, RAT+31, RAT+32
NN	RAT+7~, RAT+8, RAT+9, RAT+45*
NUM	RAT+7~, RAT+10
>> SC	RAT+28, RAT+33, RAT+34, RAT+35, RAT+38, RAT+42, RAT+44, APT+2
>> SDALLE	ELIG*, 1, 1+1
>> SDAMBAE	APT+16
>> SDAMSCN	SC+1*
SDANS	RAT+41!, SBR, SBR+2
>> SDAPTYP	RAT+38, RAT+42, APT+2, APT+15*, APT+17
SDATD	RAT+7~, RAT+30, RAT+31, RAT+32, RAT+33, RAT+34, RAT+35, RAT+37, RAT+38, RAT+39 , RAT+40, RAT+42, RAT+45, RAT+46, APT+2
>> SDCOL	APT+17*
>> SDD	APT+17
>> SDDECOD	APT+15*
>> SDEC	APT+12*
SDELIG	RAT+7~, RAT+17*, RAT+18, RAT+20, RAT+22, RAT+24
>> SDEMP	ELIG, 1, 1+1, 1+2*
>> SDMLT	APT+17
>> SDOEL	ELIG, 1+2
SDPER	RAT+7~
SDRAT	RAT+7~, RAT+10*, RAT+12
SDREC	RAT+7~, RAT+9*, RAT+10, RAT+11, RAT+12
SDSCFLG	RAT+7~, RAT+17, RAT+18, RAT+19, RAT+21, RAT+23, RAT+25, RAT+39, APT+6, APT+7 , APT+10, APT+11, SBR+1
SDSER	RAT+7~, RAT+11*, RAT+12
SIEN	RAT+28~
STOP	RAT+28~*, RAT+29
STOPN	RAT+28~, RAT+29*
U	RAT+19, RAT+20, RAT+38, RAT+42, APT+2, APT+12, APT+15, APT+17, ELIG, 1+2 , SC+1
>> VAEL(1	RAT+14, RAT+19, RAT+20, RAT+22, RAT+24, RAT+37, APT+12, ELIG, 1+2
>> VAEL(3	RAT+2, RAT+3, RAT+4, RAT+20, RAT+22, RAT+24
>> X	APT+2, APT+4, APT+5, APT+14, 1, 1+1
>> Y	APT+9, APT+14, APT+15, SBR+3

Customize PDF page

Package: Scheduling

Routine: SDM4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SBR
ELIG
APT
1
RAT	;Display rated service connected disabilities patch SD5.3394
SC	;SERVICE CONNECTED MESSAGE/IOFO - BAY PINES/TEH
TYPE	;