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

Package: Scheduling

Routine: SDECRTCF


Information

SDECRTCF ;ALB/WTC,LAB - Clean-up of Pending RTC orders with closed SDEC Appt Requests ;Dec 01, 2021@12:00

Source Information

Source file <SDECRTCF.m>

Entry Points

Name Comments DBIA/ICR reference
BYDATE ;
STRTDT ;
ENDDT ;
FULL ;
LOOP(SDSDT,SDEDT) ;
START ;Show introductory text
FIN(CNT) ;Show final results
PRNTSKIP ;Print any IENs that were skipped.
PRNTCLEAN ;Print information from IENS that were cleaned up
EXIT ;Exit without runnign clean up
SDHL7BLD(SDIEN,ORIEN,SDDISPBY,SDPATIENT,PATNAME,ORDIS) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: BYDATE+8
Function Call: WRITE
  • Prompt: !!,"Selection will be made based off of the create date of the Request",!!
  • Line Location: STRTDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FULL+9
Function Call: WRITE
  • Prompt: !!,"Starting search and clean-up...."
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: !!,"Orders updated via the Clean-up Tool:",!
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: !," No updates were completed."
  • Line Location: LOOP+80
Function Call: WRITE
  • Prompt: !!,"This routine will search through existing Closed Return to Clinic",!,"SDEC Appointment Requests with a corresponding Order that is in a",!,"Pending status and update as needed."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!!!,"Search and clean-up is complete!!!!",!,CNT," Orders were updated!"
  • Line Location: FIN+3
Function Call: WRITE
  • Prompt: !!,"Orders that are updated will be saved for 7 days in the",!,"^XTMP(""OR PENDING RTC CLEAN-UP"_"-"_$$FMTE^XLFDT(DT)_""","_$J_" global."
  • Line Location: FIN+5
Function Call: WRITE
  • Prompt: !!,"*********************************************************************"
  • Line Location: PRNTSKIP+2
Function Call: WRITE
  • Prompt: !!,"The following SDEC APPOINTMENT REQUEST IENs were skipped:",!
  • Line Location: PRNTSKIP+3
Function Call: WRITE
  • Prompt: !!,"Request IEN "_SDIEN_":"
  • Line Location: PRNTSKIP+7
Function Call: WRITE
  • Prompt: !," "_$G(SKIP(SDIEN,XINDX))
  • Line Location: PRNTSKIP+9
Function Call: WRITE
  • Prompt: !!,"Request IEN = "_SDIEN_" Patient = "_VADM(1)_" Clinic = "_$$GET1^DIQ(409.85,SDIEN,8,"E")
  • Line Location: PRNTCLEAN+1
Function Call: WRITE
  • Prompt: !,"Order IEN = "_ORIEN
  • Line Location: PRNTCLEAN+2
Function Call: WRITE
  • Prompt: !," Original Order Status = "_$$GET1^DIQ(100.01,ORSTATUS_",",.01,"E")
  • Line Location: PRNTCLEAN+3
Function Call: WRITE
  • Prompt: !," Order Status After Cleanup = "_$$GET1^DIQ(100,ORIEN,5,"E")
  • Line Location: PRNTCLEAN+4
Function Call: WRITE
  • Prompt: !,"Request Disposition = "_$$GET1^DIQ(409.85,SDIEN,21,"E")
  • Line Location: PRNTCLEAN+5
Function Call: WRITE
  • Prompt: !," Disposition Date = "_$$FMTE^XLFDT(SDDISPDT,"1F")
  • Line Location: PRNTCLEAN+6
Function Call: WRITE
  • Prompt: !," Dispositioned By = "_$$GET1^DIQ(200,SDDISPBY,.01,"E")
  • Line Location: PRNTCLEAN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTCLEAN+8
Function Call: WRITE
  • Prompt: !!,"Nothing done."
  • Line Location: EXIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^ORD(100.01 - [#100.01] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^SDEC(409.85 - [#409.85] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call