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

Package: Scheduling

Routine: SDECRTCF


Information

SDECRTCF ;ALB/WTC,LAB - Clean-up of Pending RTC orders with closed SDEC Appt Requests ;May 24, 2021@10:51

Source Information

Source file <SDECRTCF.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ($$FMADD,$$FMTE)^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 DEM^VADPT  
Scheduling 1 EN^SDHL7BLD  

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 PENDING RTC  

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) ;

External References

Name Field # of Occurrence
^%ZIS LOOP+8
^%ZISC FIN+2
$$GET1^DIQ LOOP+31, PRNTCLEAN+1, PRNTCLEAN+3, PRNTCLEAN+4, PRNTCLEAN+5, PRNTCLEAN+7, SDHL7BLD+8, SDHL7BLD+12
^DIR STRTDT+5, ENDDT+7, ENDDT+16, FULL+14
EN^SDHL7BLD SDHL7BLD+24
DEM^VADPT LOOP+60
$$FMADD^XLFDT STRTDT+3, LOOP+14
$$FMTE^XLFDT BYDATE+9, STRTDT+3, ENDDT+5, ENDDT+6, LOOP+19, LOOP+76, FIN+5, PRNTCLEAN+6

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+79
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
Routine Call
  • %ZIS
  • Line Location:
    • LOOP+8
Routine Call
  • DIR
  • Line Location:
    • STRTDT+5
    • ENDDT+7
    • ENDDT+16
    • FULL+14

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(100.01 - [#100.01] LOOP+15
^SDEC(409.85 - [#409.85] LOOP+23, LOOP+25, LOOP+28, LOOP+30, LOOP+34, LOOP+53, LOOP+65, LOOP+66, SDHL7BLD+22
^XTMP("OR PENDING RTC CLEAN-UP-" LOOP+19*, LOOP+76*

Label References

Name Line Occurrences
EXIT ENDDT+18, ENDDT+20, FULL+16, FULL+18
FIN ENDDT+21, FULL+19
LOOP ENDDT+19, FULL+17
PRNTCLEAN LOOP+77
PRNTSKIP LOOP+80
SDHL7BLD LOOP+72
START BYDATE+7, FULL+6
STRTDT ENDDT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENDDT+2~, FULL+4~
%H LOOP+4~
CDT BYDATE+4~, BYDATE+9*, STRTDT+4, ENDDT+6
CLINIC SDHL7BLD+4~
CMT LOOP+4~, LOOP+16*, LOOP+19
CMTE LOOP+4~, LOOP+17*
CNT BYDATE+4~, BYDATE+6*, ENDDT+21, FULL+4~, FULL+7*, FULL+19, LOOP+76*, LOOP+79, FIN~, FIN+3
, FIN+5
DFN LOOP+4~, LOOP+60*, LOOP+72
DIR BYDATE+4~, ENDDT+11!, ENDDT+17!, FULL+8!, FULL+15!
DIR("?" STRTDT+4*, ENDDT+6*, ENDDT+14*, FULL+12*
DIR("A" STRTDT+3*, ENDDT+5*, ENDDT+13*, FULL+11*
DIR("B" STRTDT+3*, ENDDT+5*, ENDDT+15*, FULL+13*
DIR(0 STRTDT+3*, ENDDT+5*, ENDDT+12*, FULL+10*
DIROUT BYDATE+4~, ENDDT+3!
DIRUT BYDATE+4~, ENDDT+3!, ENDDT+18, FULL+16
DT BYDATE+9, STRTDT+3, ENDDT+5, LOOP+14, LOOP+19, LOOP+76, FIN+5
DTOUT BYDATE+4~, ENDDT+3!, ENDDT+8
DTPURG LOOP+4~, LOOP+14*, LOOP+19
DUOUT BYDATE+4~, ENDDT+3!
END LOOP+4~, LOOP+14*, LOOP+23, LOOP+24*
INPUT LOOP+4~, LOOP+26!
INPUTS SDHL7BLD+4~, SDHL7BLD+24
INPUTS("CLINIC" SDHL7BLD+8*
INPUTS("COMMENT" SDHL7BLD+10*
INPUTS("DISCONTINUE" SDHL7BLD+14*
INPUTS("DISPO SITION BY" , SDHL7BLD+12*
INPUTS("NUMBE R APPT" , SDHL7BLD+16*
INPUTS("ORDER IEN" , SDHL7BLD+18*
INPUTS("PATIENT" SDHL7BLD+20*
INPUTS("REQ F ILE IEN" , SDHL7BLD+6*
INPUTS("RTC D ATE" , SDHL7BLD+22*
IO LOOP+11
ORDIS LOOP+4~, LOOP+58*, LOOP+72, SDHL7BLD~, SDHL7BLD+14
ORIEN LOOP+4~, LOOP+30*, LOOP+31, LOOP+72, LOOP+76, PRNTCLEAN+2, PRNTCLEAN+4, SDHL7BLD~, SDHL7BLD+18
ORPENDING LOOP+4~, LOOP+15*, LOOP+32
ORSTATUS LOOP+4~, LOOP+31*, LOOP+32, LOOP+76, PRNTCLEAN+3
PATNAME SDHL7BLD~, SDHL7BLD+20
POP BYDATE+4~, BYDATE+6*, ENDDT+20, FULL+4~, FULL+5*, FULL+18, LOOP+6*, LOOP+8
SDCDT LOOP+4~, LOOP+14*, LOOP+23*, LOOP+24, LOOP+25
SDDISP LOOP+4~, LOOP+48*, LOOP+49, LOOP+58, LOOP+76
SDDISPBY LOOP+4~, LOOP+40*, LOOP+41, LOOP+72, LOOP+76, PRNTCLEAN+7, SDHL7BLD~, SDHL7BLD+12
SDDISPDT LOOP+4~, LOOP+44*, LOOP+45, LOOP+76, PRNTCLEAN+6
SDEC0 LOOP+4~, LOOP+28*, LOOP+35
SDECDIS LOOP+4~, LOOP+34*, LOOP+40, LOOP+44, LOOP+48
SDEDT BYDATE+4~, ENDDT+10*, ENDDT+19, FULL+4~, FULL+7*, FULL+17, LOOP~, LOOP+24
SDIEN LOOP+4~, LOOP+25*, LOOP+28, LOOP+30, LOOP+34, LOOP+38, LOOP+43, LOOP+47, LOOP+51, LOOP+53
, LOOP+55, LOOP+65, LOOP+72, LOOP+76, PRNTSKIP+1~, PRNTSKIP+4*, PRNTSKIP+5*, PRNTSKIP+7, PRNTSKIP+8, PRNTSKIP+9
PRNTCLEAN+1, PRNTCLEAN+5, SDHL7BLD~, SDHL7BLD+6, SDHL7BLD+8, SDHL7BLD+22
SDPAR LOOP+4~, LOOP+65*, LOOP+66
SDPATIENT LOOP+4~, LOOP+35*, LOOP+36, LOOP+60, LOOP+76, SDHL7BLD~, SDHL7BLD+20
SDRQTYPE LOOP+4~, LOOP+28*
SDSDT BYDATE+4~, STRTDT+6*, ENDDT+5, ENDDT+6, ENDDT+19, FULL+4~, FULL+7*, FULL+17, LOOP~, LOOP+14
SKIP LOOP+5~, LOOP+80
SKIP( LOOP+38*, LOOP+43*, LOOP+47*, LOOP+51*, LOOP+55*, PRNTSKIP+5, PRNTSKIP+8, PRNTSKIP+9
SKIPFLG LOOP+5~, LOOP+27*, LOOP+37*, LOOP+38, LOOP+42*, LOOP+43, LOOP+46*, LOOP+47, LOOP+50*, LOOP+51
, LOOP+54*, LOOP+55, LOOP+57
STOP LOOP+4~, LOOP+64*, LOOP+66*, LOOP+68
U LOOP+19, LOOP+28, LOOP+30, LOOP+35, LOOP+40, LOOP+44, LOOP+48, LOOP+53, LOOP+65, LOOP+66
, LOOP+76, SDHL7BLD+8, SDHL7BLD+12, SDHL7BLD+20, SDHL7BLD+22
VADM LOOP+4~, LOOP+60!
VADM(1 LOOP+72, PRNTCLEAN+1
X BYDATE+4~, ENDDT+4*
XINDX PRNTSKIP+1~, PRNTSKIP+6*, PRNTSKIP+8*, PRNTSKIP+9
Y BYDATE+4~, STRTDT+5, STRTDT+6, ENDDT+4*, ENDDT+9, ENDDT+10, ENDDT+18, FULL+16
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