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

Package: Scheduling

Routine: SDECCLN


Information

SDECCLN ;ALB/RBD - VISTA SCHEDULING CLEANUP UTILITY ;MAR 15, 2017

Source Information

Source file <SDECCLN.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$HTE)^XLFDT  
VA FileMan 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDEC INITIAL CLEANUP UTILITY  

Entry Points

Name Comments DBIA/ICR reference
EN
EN2
CLINICS
CLINIC
COMPILE ; Begin to Compile based on Clinics not Excluded
ASKDEV
COMPIL2 ;
HEADER ; Print out the Header for the List
DSPLIST ; Display list of records
WRKLIST
WRKLST2
WRKHEAD
ASKBTCH
COMMIT

External References

Name Field # of Occurrence
^%ZIS ASKDEV+1
^%ZISC ASKDEV+5, ASKDEV+6
^%ZTLOAD ASKDEV+5
^DIC CLINIC+1
^DIE COMMIT+9
$$GET1^DIQ COMPIL2+21, COMPIL2+22, COMPIL2+23, COMPIL2+24, COMPIL2+27, COMPIL2+28, COMPIL2+31, COMPIL2+32, COMPIL2+33, COMPIL2+34
, WRKLST2+4, COMMIT+7
^DIR EN2+1, COMPILE+5
$$FMADD^XLFDT COMPIL2+12
$$FMTE^XLFDT DSPLIST+13
$$HTE^XLFDT HEADER+1, WRKLST2+4, WRKLST2+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following Utility will allow the Closing of Re-Opened SDEC APPT REQUEST"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"records which have resulted from a Cancellation in VistA of a corresponding"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"SDEC APPOINTMENT."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Please enter in, one by one, a list of Clinics to EXCLUDE from Compilation.",!
  • Line Location: CLINICS+0
Function Call: WRITE
  • Prompt: !!,"You did not choose any Clinics to Exclude."
  • Line Location: COMPILE+2
Function Call: WRITE
  • Prompt: !!,"Compiling for all Clinics excluding the following:",!
  • Line Location: COMPILE+6
Function Call: WRITE
  • Prompt: !,X
  • Line Location: COMPILE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+0
Function Call: WRITE
  • Prompt: !!,"Another user is running utility at same time as you."
  • Line Location: COMPIL2+7
Function Call: WRITE
  • Prompt: !!,?9,"*** Open SDEC APPT REQUESTs List run "_SDRUNDAT_" ***"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,?43,"LAST 4",?50,"APPT REQ IEN"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"CLINIC",?20,"PATIENT",?45,"SSN",?50," APPT IEN",?69,"CID DATE"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,SDASH,!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$E(SDCLN,1,18),?20,$E(SDPT,1,23)
  • Line Location: DSPLIST+11
Function Call: WRITE
  • Prompt: ?45,$E(SDSSN,6,9)
  • Line Location: DSPLIST+12
Function Call: WRITE
  • Prompt: ?50,SDIEN," ; ",SDIEN2,?69,$$FMTE^XLFDT(SDCID,5)
  • Line Location: DSPLIST+13
Function Call: WRITE
  • Prompt: !,SDCNT,?15,$$GET1^DIQ(200,SDUSER,.01),?30,$$HTE^XLFDT(SDSTART)
  • Line Location: WRKLST2+4
Function Call: WRITE
  • Prompt: ?55,$$HTE^XLFDT(SDFINISH)
  • Line Location: WRKLST2+5
Function Call: WRITE
  • Prompt: !!,"Open SDEC APPT REQUEST Compilation Lists to Choose From:"
  • Line Location: WRKHEAD+1
Function Call: WRITE
  • Prompt: !!,"Batch #",?15,"Run User",?30,"Start Date",?55,"Finish Date",!,SDASH,!
  • Line Location: WRKHEAD+2
Function Call: READ
  • Variable: SDRESP
  • Timeout: 300
  • Line Location: ASKBTCH+1
Function Call: WRITE
  • Prompt: " ... Read Timeout"
  • Line Location: ASKBTCH+1
Function Call: WRITE
  • Prompt: " ... Please enter a Batch #"
  • Line Location: ASKBTCH+3
Function Call: WRITE
  • Prompt: " ... Please enter a Batch #"
  • Line Location: ASKBTCH+4
Function Call: WRITE
  • Prompt: " ... Batch # not in List"
  • Line Location: ASKBTCH+5
Function Call: WRITE
  • Prompt: " ... Batch Run not Finished"
  • Line Location: ASKBTCH+6
Function Call: WRITE
  • Prompt: " ... Batch Run picked up No Records"
  • Line Location: ASKBTCH+7
Function Call: WRITE
  • Prompt: !!,"Committing Open records for Batch # ",SDRESP," to Closed..."
  • Line Location: COMMIT+0
Function Call: WRITE
  • Prompt: "Done"
  • Line Location: COMMIT+12
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+1
Routine Call
  • DIC
  • Line Location:
    • CLINIC+1
Routine Call
  • DIE
  • Line Location:
    • COMMIT+9
Routine Call
  • DIR
  • Line Location:
    • EN2+1
    • COMPILE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^SDEC(409.84 - [#409.84] GET1^DIQ
^SDEC(409.85 - [#409.85] Classic Fileman Calls,  GET1^DIQ
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SDEC(409.84 - [#409.84] COMPIL2+26
^SDEC(409.85 - [#409.85] COMPIL2+19, COMPIL2+20
^TMP( COMPIL2+5
^TMP($J CLINICS!, CLINIC+3*, COMPILE+1, COMPILE+7
^XTMP("SDECCLEAN" COMPIL2+6, COMPIL2+9, COMPIL2+10*, COMPIL2+11*, COMPIL2+12*, COMPIL2+13, COMPIL2+16*, COMPIL2+35*, COMPIL2+36*, HEADER+1
, DSPLIST+3, DSPLIST+5, DSPLIST+7, DSPLIST+8, WRKLST2, WRKLST2+1, WRKLST2+2, WRKLST2+3, ASKBTCH+5, ASKBTCH+6
, ASKBTCH+7, COMMIT+2, COMMIT+4, COMMIT+6

Label References

Name Line Occurrences
ASKBTCH WRKLST2, WRKLST2+6, ASKBTCH+3, ASKBTCH+4, ASKBTCH+5, ASKBTCH+6, ASKBTCH+7
CLINIC CLINIC+4
CLINICS EN2+1, COMPILE+1
COMPIL2 ASKDEV+6
COMPILE CLINIC+2
DSPLIST COMPIL2+36
EN CLINIC+1, ASKDEV+2, ASKDEV+7, ASKBTCH+1, ASKBTCH+2
HEADER COMPIL2+14
WRKHEAD WRKLIST+1, ASKBTCH+2
WRKLIST EN2+1
WRKLST2 WRKLST2+7, ASKBTCH+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKDEV*, ASKDEV+2!, ASKDEV+7!
DA COMMIT+9*, COMMIT+11!
DIC CLINIC*, CLINIC+2!
DIC("A" CLINIC*
DIC("S" CLINIC+1*
DIC(0 CLINIC*
DIE COMMIT+9*, COMMIT+11!
DIR EN2!
DIR("A" EN2+1*, COMPILE+4*
DIR("B" COMPILE+3*
DIR(0 EN2*, COMPILE+5*
DIRUT EN2+1, CLINICS!, WRKLIST!
DR COMMIT+8*, COMMIT+11!
DT COMPIL2+12, COMMIT+8
DUZ COMPIL2+11, COMMIT+8
IO COMPIL2+2
IO("Q" ASKDEV+2
IOF WRKHEAD
POP ASKDEV+1, ASKDEV+2!, ASKDEV+7!
SDASH HEADER+5~*, WRKHEAD~*, WRKHEAD+2
SDASKMES ASKBTCH~*, ASKBTCH+1
SDATE COMPIL2+3~, COMPIL2+19*, COMPIL2+20
SDCID COMPIL2+3~, COMPIL2+32*, COMPIL2+35, DSPLIST+9*, DSPLIST+13
SDCLINS COMPIL2+3~, COMPIL2+5*
SDCLINS( COMPIL2+15, COMPIL2+17
SDCLINS2 COMPIL2+3~
SDCLINS2( COMPIL2+18*, COMPIL2+21
SDCLN COMPIL2+3~, COMPIL2+21*, COMPIL2+31*, COMPIL2+35, DSPLIST+2*, DSPLIST+3*, DSPLIST+5, DSPLIST+7, DSPLIST+8, DSPLIST+11
, COMMIT+1~*, COMMIT+2*, COMMIT+4, COMMIT+6
SDCNCLDT COMPIL2+3~, COMPIL2+27*
SDCNT COMPIL2+3~, COMPIL2+9*, COMPIL2+10, COMPIL2+11, COMPIL2+16, COMPIL2+35, COMPIL2+36, HEADER+1, DSPLIST+3, DSPLIST+5
, DSPLIST+7, DSPLIST+8, WRKLIST~, WRKLIST+1*, WRKLST2*, WRKLST2+1, WRKLST2+2, WRKLST2+3, WRKLST2+4, ASKBTCH
, ASKBTCH+2
SDCOUNT WRKLIST~*, WRKLST2+5*, WRKLST2+6
SDFINISH WRKLIST~, WRKLST2+3*, WRKLST2+5
SDFND COMPIL2+4~, COMPIL2+25*, COMPIL2+26, COMPIL2+29*, COMPIL2+30
SDIEN COMPIL2+4~, COMPIL2+20*, COMPIL2+21, COMPIL2+22, COMPIL2+23, COMPIL2+24, COMPIL2+29, COMPIL2+31, COMPIL2+32, COMPIL2+34
, COMPIL2+35, DSPLIST+6*, DSPLIST+7*, DSPLIST+8, DSPLIST+13, COMMIT+1~, COMMIT+5*, COMMIT+6*, COMMIT+7, COMMIT+9
SDIEN2 COMPIL2+4~, COMPIL2+25*, COMPIL2+26*, COMPIL2+27, COMPIL2+28, COMPIL2+35, DSPLIST+10*, DSPLIST+13
SDJOBNO ASKDEV*, ASKDEV+2!, ASKDEV+7!, COMPIL2+5
SDLINK COMPIL2+4~, COMPIL2+28*, COMPIL2+29
SDNUM COMMIT+1~*, COMMIT+10*
SDPT COMPIL2+3~, COMPIL2+24*, COMPIL2+26, COMPIL2+33, COMPIL2+34*, COMPIL2+35, DSPLIST+4*, DSPLIST+5*, DSPLIST+7, DSPLIST+8
, DSPLIST+11, COMMIT+1~, COMMIT+3*, COMMIT+4*, COMMIT+6
SDREC DSPLIST+1~, DSPLIST+8*, DSPLIST+9, DSPLIST+10
SDRESP ASKBTCH~, ASKBTCH+1*, ASKBTCH+2, ASKBTCH+3, ASKBTCH+4, ASKBTCH+5, ASKBTCH+6, ASKBTCH+7, COMMIT, COMMIT+2
, COMMIT+4, COMMIT+6
SDRUNDAT HEADER+1~*, HEADER+2
SDSSN COMPIL2+3~, COMPIL2+33*, COMPIL2+35, DSPLIST+9*, DSPLIST+12
SDSTART WRKLIST~, WRKLST2+2*, WRKLST2+4
SDUSER WRKLIST~, WRKLST2+1*, WRKLST2+4
X EN~, CLINIC+1, CLINIC+2, CLINIC+3, COMPILE+7*, COMPIL2+3~, COMPIL2+15*, COMPIL2+16, COMPIL2+17
Y EN~, EN2+1, CLINIC+3, COMPILE+1, COMPIL2+3~, COMPIL2+17*, COMPIL2+18
ZTDESC ASKDEV+4*, ASKDEV+5!
ZTRTN ASKDEV+3*, ASKDEV+5!
ZTSAVE ASKDEV+3!
ZTSAVE("SDJOBNO" ASKDEV+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 |  Local Variables  | All