Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDM4

Package: Scheduling

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

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:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 7

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

Entry Points

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

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
  • Timeout: DTIME
  • Variable: X
  • 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
  • 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+5
    • APT+9
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+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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All