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 ; 12 APR 1988 1100 ; 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  
Registration 2 2^VADPT  $$UPPER^VALM1  

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
SC ;SERVICE CONNECTED MESSAGE/IOFO - BAY PINES/TEH
TYPE ;

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