Routine: SDECRTCF

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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+61
$$FMADD^XLFDT	STRTDT+3, LOOP+14
$$FMTE^XLFDT	BYDATE+9, STRTDT+3, ENDDT+5, ENDDT+6, LOOP+19, LOOP+77, 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+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
Routine Call	%ZIS Line Location: LOOP+8
Routine Call	DIR Line Location: STRTDT+5 ENDDT+7 ENDDT+16 FULL+14

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+66, LOOP+67, SDHL7BLD+22
^XTMP("OR PENDING RTC CLEAN-UP-"	LOOP+19, LOOP+77

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+78
PRNTSKIP	LOOP+81
SDHL7BLD	LOOP+73
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+77*, LOOP+80, FIN~, FIN+3 , FIN+5
DFN	LOOP+4~, LOOP+61*, LOOP+73
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+77, 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+59*, LOOP+73, SDHL7BLD~, SDHL7BLD+14
ORIEN	LOOP+4~, LOOP+30*, LOOP+31, LOOP+73, LOOP+77, PRNTCLEAN+2, PRNTCLEAN+4, SDHL7BLD~, SDHL7BLD+18
ORPENDING	LOOP+4~, LOOP+15*, LOOP+32
ORSTATUS	LOOP+4~, LOOP+31*, LOOP+32, LOOP+77, 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+59, LOOP+77
SDDISPBY	LOOP+4~, LOOP+40*, LOOP+41, LOOP+73, LOOP+77, PRNTCLEAN+7, SDHL7BLD~, SDHL7BLD+12
SDDISPDT	LOOP+4~, LOOP+44*, LOOP+45, LOOP+77, 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+66, LOOP+73, LOOP+77, 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+66*, LOOP+67
SDPATIENT	LOOP+4~, LOOP+35*, LOOP+36, LOOP+61, LOOP+77, 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+81
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+65, LOOP+67, LOOP+69
U	LOOP+19, LOOP+28, LOOP+30, LOOP+35, LOOP+40, LOOP+44, LOOP+48, LOOP+53, LOOP+66, LOOP+67 , LOOP+77, SDHL7BLD+8, SDHL7BLD+12, SDHL7BLD+20, SDHL7BLD+22
VADM	LOOP+4~, LOOP+61!
VADM(1	LOOP+73, 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

Customize PDF page

Package: Scheduling