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

Package: Scheduling

Routine: SDWLCU5


Information

SDWLCU5 ;IOFO BAY PINES/TEH - EWL FILE 409.3 CLEANUP ;2/4/03

Source Information

Source file <SDWLCU5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
40931
40932
UPDINS(SDWLSC,INERROR) ; update 409.32 and the related entries in 409.3
CHK1 ;CHECK FOR INSTITUTION VALIDILITY
CHK10
CH1E
CHK3 ;
CHE3 ;
CHK4 ;
CHK2 ;
DIS ;display record
GETINS ;Get institution

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Checking file 404.51 one last time.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"TEAM: ",$$GET1^DIQ(404.51,TEAM_",",.01)," INSTITUTION: "
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: $$GET1^DIQ(4,INST_",",.01)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Checking file 409.31 one last time.",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"SERVICE SPECIALTY: ",$$GET1^DIQ(409.31,SDWLSS_",",.01)," INSTITUTION: "
  • Line Location: 40931+5
Function Call: WRITE
  • Prompt: $$GET1^DIQ(4,SDWLINS_",",.01)
  • Line Location: 40931+6
Function Call: WRITE
  • Prompt: !!,"Checking file 409.32 one last time.",!
  • Line Location: 40932+0
Function Call: WRITE
  • Prompt: !!,"Checking file 409.3 one last time.",!
  • Line Location: 40932+4
Function Call: WRITE
  • Prompt: !,"Done."
  • Line Location: 40932+12
Function Call: WRITE
  • Prompt: !!,"Clinic "_CLN_" ("_CL_")"_"does not have the same Institution as EWL set up."
  • Line Location: UPDINS+14
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry. try later."
  • Line Location: UPDINS+20
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry. try later."
  • Line Location: UPDINS+26
Function Call: WRITE
  • Prompt: !,CNT_" EWL entries for clinic "_CLN_" updated."
  • Line Location: UPDINS+28
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry. try later."
  • Line Location: UPDINS+30
Function Call: WRITE
  • Prompt: !,"Please select a valid Institution for this record from the following list for",!
  • Line Location: CHK1+7
Function Call: WRITE
  • Prompt: !,?20,C,". ",$$GET1^DIQ(4,SDWLI_",",.01)
  • Line Location: CHK1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK10+0
Function Call: WRITE
  • Prompt: !,"Response Required."
  • Line Location: CHK10+1
Function Call: WRITE
  • Prompt: !,?20,C,". ",$$GET1^DIQ(4,SDWLIZ_",",.01)
  • Line Location: CHK3+13
Function Call: WRITE
  • Prompt: !,"Record#: ",SDWLDA," Patient: ",NAME," (",SSN,")",!!
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: *7,"Invalid Entry"
  • Line Location: GETINS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SCTM(404.51 - [#404.51] GET1^DIQ
^SDWL(409.3 - [#409.3] Classic Fileman Calls
^SDWL(409.31 - [#409.31] GET1^DIQ
^SDWL(409.32 - [#409.32] Classic Fileman Calls,  GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call