Routine: SDM4

Information

SDM4 ;ALB/BOK,MGD - MAKE APPOINTMENT ;NOV 12,2024

Source Information

Source file <SDM4.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Scheduling	3	$$INP^SDAM2 END^SDM ^SDM0
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Registration	2	$$ELIG^DGCOMPACTELIG 2^VADPT
List Manager	1	$$UPPER^VALM1

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

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

Entry Points

Name	Comments	DBIA/ICR reference
TYPE	;
RAT	;Display rated service connected disabilities patch SD5.3394
APT
ELIG
1
SC	;SERVICE CONNECTED MESSAGE/IOFO - BAY PINES/TEH
GETMAS	;SD*585 get MAS Eligibility Code (file #8.1) for each of patient's
SBR

External References

Name	Field # of Occurrence
$$ELIG^DGCOMPACTELIG	RAT+2
^DIC	APT+5, APT+9
$$GET1^DIQ	RAT+6, RAT+8, RAT+14, RAT+21, RAT+34, RAT+35, RAT+39, RAT+40, RAT+41, RAT+50 , RAT+51, SBR+2
^DIR	SBR+3
$$INP^SDAM2	RAT+41
END^SDM	APT+13
^SDM0	APT+13
2^VADPT	RAT+4
$$UPPER^VALM1	1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"COMPACT Act Administrative Eligibility:" Line Location: RAT+1
Function Call: WRITE	Prompt: !," COMPACT Act: ",$$ELIG^DGCOMPACTELIG(DFN,"SDM4") Line Location: RAT+2
Function Call: WRITE	Prompt: !!,"PATIENT'S SERVICE CONNECTION AND RATED DISABILITIES:" Line Location: RAT+5
Function Call: WRITE	Prompt: !,"Primary Eligibility Code: "_$P(VAEL(1),"^",2) Line Location: RAT+18
Function Call: WRITE	Prompt: !,"No Service Connected Disabilities Listed" Line Location: RAT+19
Function Call: WRITE	Prompt: ! Line Location: RAT+20
Function Call: WRITE	Prompt: !,"'SERVICE CONNECTED?' field is blank please update patient record." Line Location: RAT+22
Function Call: WRITE	Prompt: !,"'PRIMARY ELIGIBILITY CODE' field is blank please update patient record." Line Location: RAT+23
Function Call: WRITE	Prompt: ! Line Location: RAT+32
Function Call: WRITE	Prompt: "*NO STOP CODE ASSIGNED*" Line Location: RAT+36
Function Call: WRITE	Prompt: " *NON-COUNT CLINIC*" Line Location: RAT+40
Function Call: WRITE	Prompt: " *PATIENT IS CURRENTLY AN INPATIENT*" Line Location: RAT+41
Function Call: READ	Variable: X Timeout: DTIME Line Location: APT+0
Function Call: WRITE	Prompt: !,"APPOINTMENT TYPE IS REQUIRED" Line Location: APT+1
Function Call: WRITE	Prompt: !,"PLEASE ENTER MORE THAN ONE CHARACTER" Line Location: APT+2
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+10
Function Call: WRITE	Prompt: !!,"** Note - You are making a ",$P(^SD(409.1,+COLLAT,0),U)," appt.",! Line Location: APT+11
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	Variable: X Timeout: DTIME 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+5 APT+9
Routine Call	DIR Line Location: SBR+3

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+8, GETMAS+5, GETMAS+6, GETMAS+13, GETMAS+14
^DIC(8.1 - [#8.1]	GETMAS+8, GETMAS+9, GETMAS+16, GETMAS+17
^DPT - [#2]	RAT+12, RAT+13, RAT+19, SC+1, SBR+2
^SC - [#44]	RAT+44, RAT+48
^SD(409.1 - [#409.1]	RAT+44, RAT+48, RAT+51, APT+11, APT+13
^SD(409.45 - [#409.45]	RAT+35, RAT+37, RAT+38

Label References

Name	Line Occurrences
1	1
APT	RAT+36, RAT+39, RAT+40, RAT+41, APT+1, APT+2, APT+7
ELIG	1
GETMAS	RAT+24
SBR	RAT+47, SBR+4
SC	TYPE+1
TYPE	APT+10

Naked Globals

Name	Field # of Occurrence
^(	SC+1
^("AT"	RAT+44, RAT+48
^(0	RAT+44, RAT+48, APT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Scheduling