Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDM4

Package: Scheduling

Routine: SDM4


Information

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

Source Information

Source file <SDM4.m>

Entry Points

Name Comments DBIA/ICR reference
TYPE ;
RAT ;Display rated service connected disabilities patch SD*5.3*394
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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call