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 |  Local Variables |  All
Print Page as PDF
Routine: SDWLCU5

Package: Scheduling

Routine: SDWLCU5


Information

SDWLCU5 ;IOFO BAY PINES/TEH - EWL FILE 409.3 CLEANUP ;2/4/03 ; Compiled August 20, 2007 17:04:58

Source Information

Source file <SDWLCU5.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 (,UPDATE)^DIE  IXALL^DIK  $$GET1^DIQ  ^DIR  
Scheduling 3 EDIT^SDWLCU2  C3^SDWLCU3  $$CLIN^SDWLPE  
Kernel 1 $$TF^XUAF4  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SDWLCU1  SDWLCU3  

Entry Points

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

External References

Name Field # of Occurrence
^DIE UPDINS+21, UPDINS+27, UPDINS+32
UPDATE^DIE CH1E, CHE3+2, CHK4+5, CHK2+3
IXALL^DIK 40932+3
$$GET1^DIQ EN+3, EN+4, EN+7, EN+8, 40931+2, 40931+5, 40931+6, UPDINS+1, UPDINS+4, UPDINS+15
, UPDINS+29, CHK1+10, CHK3+11, CHK3+12, DIS+1, DIS+2
^DIR CHK10, CHK3+13, GETINS+3
EDIT^SDWLCU2 EN+9
C3^SDWLCU3 40931+9
$$CLIN^SDWLPE UPDINS+5
$$SITE^VASITE CHK3+6
$$TF^XUAF4 EN+5, 40931+3, CHK3+11

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+11
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+12
Function Call: WRITE
  • Prompt: !,"Record#: ",SDWLDA," Patient: ",NAME," (",SSN,")",!!
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: *7,"Invalid Entry"
  • Line Location: GETINS+5
Routine Call
  • DIE
  • Line Location:
    • CH1E
    • CHE3+2
    • CHK4+5
    • CHK2+3
Routine Call
  • DIE
  • Line Location:
    • UPDINS+21
    • UPDINS+27
    • UPDINS+32
Routine Call
  • DIR
  • Line Location:
    • CHK10
    • CHK3+13
    • GETINS+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] CHK1+2
^SCTM(404.51 - [#404.51] EN+2, CHK1+2, CHK2+1
^SCTM(404.57 - [#404.57] CHK2+1
^SDWL(409.3 - [#409.3] 40932+6, 40932+7, UPDINS+23, UPDINS+24!, UPDINS+26, UPDINS+27, CHK3+2, CHK4+1, CHK2+1, DIS+1
^SDWL(409.31 - [#409.31] 40931, 40931+1, 40931+8, CHK3+3, CHK3+4, CHK3+5, CHK3+10
^SDWL(409.32 - [#409.32] 40932+1, UPDINS+20, UPDINS+21, UPDINS+30, UPDINS+32, CHK4+2, CHK4+3, CHK4+5
^TMP($J 40932+10!, CHK1+2*, CHK1+3, CHK1+4!, CHK1+6, CHK1+9, CHK1+10, CHK10+2, CHK3+5*, CHK3+7
, CHK3+15

Label References

Name Line Occurrences
@( 40932+10
CH1E CHK1+5, CHK1+6
CHE3 CHK3+6, CHK3+7, CHK3+16
CHK3 CHE3+1
DIS CHK1+8, CHK3+9, CHK4+4
GETINS 40931+7, GETINS+5
UPDINS 40932+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C 40932+10*, CHK1+2*, CHK1+5, CHK1+6, CHK1+9*, CHK1+10, CHK3+5*, CHK3+6, CHK3+7, CHK3+10*
, CHK3+12*, CHK3+13
CL UPDINS+4~*, UPDINS+5, UPDINS+9, UPDINS+14, UPDINS+23, UPDINS+24
CLN UPDINS+4~*, UPDINS+9, UPDINS+14, UPDINS+28, UPDINS+33
CNT UPDINS+23~*, UPDINS+27*, UPDINS+28
>> CODE EN+4*, EN+6, 40931+2*, 40931+4
>> CS CHK1+10*, CHK10
DA UPDINS+19~*, UPDINS+20, UPDINS+21, UPDINS+23~, UPDINS+25*, UPDINS+29~, UPDINS+30*
DIE UPDINS+19~*, UPDINS+25*, UPDINS+31*
DIK 40932+3~*
DIR GETINS+1~
DIR("A" GETINS+2*
DIR("S" GETINS+3*
DIR(0 CHK10*, CHK3+13*, GETINS+3*
DR UPDINS+19~*, UPDINS+23~, UPDINS+25*, UPDINS+31*
>> DUOUT CHK10+1, CHK3+14
DUZ(2 CHK1+5
>> INCK EN+5*, EN+6, 40931+3*, 40931+4
INERROR 40932+1~*, 40932+2, UPDINS~, UPDINS+13*
>> INST EN+3*, EN+4, EN+5, EN+8
>> NAME DIS+1*, DIS+3
>> NN DIS+1*, DIS+2
SCL UPDINS+23~*, UPDINS+24, UPDINS+25, UPDINS+26, UPDINS+27
>> SDWLDA 40932+6*, 40932+7, CH1E, CHK3+2, CHE3+2, CHK4+1, CHK4+5, CHK2+1, CHK2+3, DIS+1
, DIS+3
>> SDWLERR EN+2*, EN+10, 40931, 40931+1, 40931+7, 40931+8, 40931+10, 40932+5*, 40932+6, CHK1+1*
, CHK10+1*, CHK3+1*, CHK3+4, CHK3+14*, GETINS+4*
>> SDWLI 40932+9*, CHK1+2*, CHK1+9*, CHK1+10*, CHK3+2*, CHK3+3, CHK3+4, CHK3+5, CHK3+10, CHK4+1*
, CHK4+2, CHK4+3, CHK4+5
SDWLINS 40931+1*, 40931+2, 40931+3, 40931+6, 40931+8, UPDINS+1~*, UPDINS+14, UPDINS+15
SDWLINS( CH1E*, CHE3+2*, CHK4+5*, CHK2+3*
>> SDWLINSN CHK1+5*, CHK1+6*, CHK10+2*, CH1E, CHK3+6*, CHK3+7*, CHK3+15*, CHE3+2, CHK4+5*, CHK2+1*
, CHK2+2, CHK2+3, GETINS+6*
>> SDWLINST 40932+7*, 40932+8, CHK1+3, CHK3+4, CHK4+3, CHK2+2
>> SDWLIX CHK3+5*
>> SDWLIZ CHK3+10*, CHK3+11, CHK3+12
>> SDWLPO CHK2+1*
SDWLSC 40932+1*, UPDINS~, UPDINS+1, UPDINS+4, UPDINS+19, UPDINS+29, UPDINS+30, UPDINS+32
>> SDWLSS 40931*, 40931+1, 40931+5, 40931+8
>> SDWLSSX 40931+8*
>> SDWLTM CHK2+1*
>> SDWLTY 40932+7*, 40932+8, 40932+9, 40932+10, CHK1+2
SDWMES UPDINS+5~*, UPDINS+6*, UPDINS+7*, UPDINS+8, UPDINS+10
SITE CHK3+6~*
>> SSN DIS+2*, DIS+3
STR UPDINS+5~*, UPDINS+6, UPDINS+7, UPDINS+14, UPDINS+16
>> TAG 40932+6*, 40932+10*, CH1E+1*, CHE3+3*, CHK2+4*
>> TEAM EN+2*, EN+3, EN+7
U UPDINS+6, UPDINS+7, UPDINS+16, CHK3+2, CHK4+1, CHK4+3, CHK4+5, CHK2+1
>> X 40932+7*, 40932+9, GETINS+4
>> Y CHK10+1, CHK10+2, CHK3+6*, CHK3+7*, CHK3+14, CHK3+15, CHE3+1, GETINS+5, GETINS+6
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 |  Local Variables |  All