Routine: SDM4

Information

SDM4 ;ALB/BOK - MAKE APPOINTMENT ;JUN 21, 2017; Compiled April 9, 2007 14:26:51

Source Information

Source file <SDM4.m>

Call Graph

Call Graph Total: 8

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

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
^DIC	APT+5, APT+9
$$GET1^DIQ	RAT+3, RAT+5, RAT+11, RAT+18, RAT+31, RAT+32, RAT+36, RAT+37, RAT+38, RAT+47 , RAT+48, SBR+2
^DIR	SBR+3
$$INP^SDAM2	RAT+38
END^SDM	APT+13
^SDM0	APT+13
2^VADPT	RAT+1
$$UPPER^VALM1	1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT'S SERVICE CONNECTION AND RATED DISABILITIES:" Line Location: RAT+2
Function Call: WRITE	Prompt: !,"Primary Eligibility Code: "_$P(VAEL(1),"^",2) Line Location: RAT+15
Function Call: WRITE	Prompt: !,"No Service Connected Disabilities Listed" Line Location: RAT+16
Function Call: WRITE	Prompt: ! Line Location: RAT+17
Function Call: WRITE	Prompt: !,"'SERVICE CONNECTED?' field is blank please update patient record." Line Location: RAT+19
Function Call: WRITE	Prompt: !,"'PRIMARY ELIGIBILITY CODE' field is blank please update patient record." Line Location: RAT+20
Function Call: WRITE	Prompt: ! Line Location: RAT+29
Function Call: WRITE	Prompt: "*NO STOP CODE ASSIGNED*" Line Location: RAT+33
Function Call: WRITE	Prompt: " *NON-COUNT CLINIC*" Line Location: RAT+37
Function Call: WRITE	Prompt: " *PATIENT IS CURRENTLY AN INPATIENT*" Line Location: RAT+38
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+9, RAT+10, RAT+16, SC+1, SBR+2
^SC - [#44]	RAT+41, RAT+45
^SD(409.1 - [#409.1]	RAT+41, RAT+45, RAT+48, APT+11, APT+13
^SD(409.45 - [#409.45]	RAT+32, RAT+34, RAT+35

Label References

Name	Line Occurrences
1	1
APT	RAT+33, RAT+36, RAT+37, RAT+38, APT+1, APT+2, APT+7
ELIG	1
GETMAS	RAT+21
SBR	RAT+44, SBR+4
SC	TYPE+1
TYPE	APT+10

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACT	RAT+31, RAT+35, RAT+36
ANS	RAT+8~, RAT+44, RAT+45, RAT+46, RAT+47, RAT+49, 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+3, RAT+5, RAT+9, RAT+10, RAT+16, RAT+18, RAT+38, 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+38
DTIME	APT, 1
>> IENACT	RAT+31, RAT+32, RAT+34, RAT+35
MASIEN	GETMAS+6, GETMAS+7, GETMAS+8, GETMAS+9, GETMAS+14, GETMAS+15, GETMAS+16, GETMAS+17, GETMAS+18!
NN	RAT+8~, RAT+9, RAT+10, RAT+48*
NUM	RAT+8~, RAT+11
>> SC	RAT+31, RAT+36, RAT+37, RAT+38, RAT+41, RAT+45, RAT+47
>> SDALLE	ELIG*, 1, 1+1
>> SDAMBAE	APT+12
>> SDAMSCN	SC+1*
SDANS	RAT+44!, SBR, SBR+2
>> SDAPTYP	RAT+41, RAT+45, APT+11*, APT+13
SDATD	RAT+8~, RAT+33, RAT+34, RAT+35, RAT+36, RAT+37, RAT+38, RAT+40, RAT+41, RAT+42 , RAT+43, RAT+45, RAT+48, RAT+49*, APT
>> SDCOL	APT+13*
>> SDD	APT+13
>> SDDECOD	APT+11*
>> SDEC	APT+8*
SDECANS	RAT+44!*
SDELIG	RAT+8~, RAT+18*, RAT+19, RAT+23, RAT+25, RAT+27
>> SDEMP	ELIG, 1, 1+1, 1+2*
>> SDMLT	APT+13
>> SDOEL	ELIG, 1+2
SDPER	RAT+8~
SDRAT	RAT+8~, RAT+11*, RAT+13
SDREC	RAT+8~, RAT+10*, RAT+11, RAT+12, RAT+13
SDSCFLG	RAT+8~, RAT+18, RAT+19, RAT+20, RAT+24, RAT+26, RAT+28, RAT+42, APT+3, APT+6* , APT+7, SBR+1
SDSER	RAT+8~, RAT+12*, RAT+13
SDVAEL	RAT+8~
SDVAEL(1	RAT+23, RAT+25, RAT+27, RAT+40, GETMAS+3, GETMAS+9, GETMAS+17*
SIEN	RAT+31~
STOP	RAT+31~*, RAT+32
STOPN	RAT+31~, RAT+32*
U	RAT+20, RAT+23, RAT+25, RAT+27, RAT+40, RAT+41, RAT+45, APT+8, APT+11, APT+13 , ELIG, 1+2, SC+1, GETMAS+6, GETMAS+9, GETMAS+14, GETMAS+17
>> VAEL(1	RAT+15, RAT+20, APT+8, ELIG, 1+2, GETMAS+4, GETMAS+5, GETMAS+6, GETMAS+12, GETMAS+13 , GETMAS+14
>> VAEL(3	RAT+3, RAT+4, RAT+5, RAT+23, RAT+25, RAT+27
>> 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