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

Package: Scheduling

Routine: SDECCLN


Information

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

Source Information

Source file <SDECCLN.m>

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

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

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