Routine: SDECRTCF2

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ($$FMADD,$$FMTE)^XLFDT
VA FileMan	3	C^%DTC ($$GET1,GETS)^DIQ ^DIR
Scheduling	1	ARCLOSE^SDEC

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ($$FMADD,$$FMTE)^XLFDT

VA FileMan

C^%DTC ($$GET1,GETS)^DIQ ^DIR

Scheduling

ARCLOSE^SDEC

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 MRTC CHILD CLEANUP

Entry Points

Name	Comments	DBIA/ICR reference
CLEANUP	;
VERIFYRUN	;display what option does and verify user wants to run
DTPROMPT	;prompt for pid to search on
DEVICEPROMPT	;prompt for device
PRINTORUPDATE	;does user want to print report only or udpate and print
LOOP	;loop through open requests and cleanup child's status
WRITEBEFORE	;write information for child and parent that were selected for cleanup
WRITEAFTER	;write status and disposition after update
EXIT	;exit without running
FIN	;Show final results

Name	Field # of Occurrence
C^%DTC	VERIFYRUN+5
^%ZIS	DEVICEPROMPT+1
^%ZISC	FIN+2
$$GET1^DIQ	LOOP+8, LOOP+9, LOOP+10, LOOP+11, WRITEBEFORE+4, WRITEBEFORE+6, WRITEBEFORE+7, WRITEAFTER+3, WRITEAFTER+4
GETS^DIQ	LOOP+13, LOOP+14, WRITEAFTER+5
^DIR	VERIFYRUN+20, DTPROMPT+4, PRINTORUPDATE+7
ARCLOSE^SDEC	LOOP+19
$$FMADD^XLFDT	VERIFYRUN+7
$$FMTE^XLFDT	VERIFYRUN+7, LOOP+19

Name

Field # of Occurrence

FIN+2

LOOP+8, LOOP+9, LOOP+10, LOOP+11, WRITEBEFORE+4, WRITEBEFORE+6, WRITEBEFORE+7, WRITEAFTER+3, WRITEAFTER+4

GETS^DIQ

LOOP+13, LOOP+14, WRITEAFTER+5

^DIR

VERIFYRUN+20, DTPROMPT+4, PRINTORUPDATE+7

LOOP+19

VERIFYRUN+7, LOOP+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This OPTION will disposition those Return to Clinic Requests (RTC) that are " Line Location: VERIFYRUN+8
Function Call: WRITE	Prompt: !,"in a status of OPEN when the parent is in a status of closed" Line Location: VERIFYRUN+9
Function Call: WRITE	Prompt: !!,"Request that have a Patient Identified Date (PID) within the last 90 days " Line Location: VERIFYRUN+10
Function Call: WRITE	Prompt: !,"("_PIDDATE_") will NOT be selected for cleanup.",! Line Location: VERIFYRUN+11
Function Call: WRITE	Prompt: !! Line Location: VERIFYRUN+15
Function Call: WRITE	Prompt: !! Line Location: VERIFYRUN+22
Function Call: WRITE	Prompt: !,"Results from the Stuck MRTC child cleanup tool.",!! Line Location: DEVICEPROMPT+3
Function Call: WRITE	Prompt: !! Line Location: PRINTORUPDATE+2
Function Call: WRITE	Prompt: !! Line Location: PRINTORUPDATE+10
Function Call: WRITE	Prompt: !!,"PATIENT = ",SDCHILDINFO(409.85,SDIEN_",",.01,"E") Line Location: WRITEBEFORE+3
Function Call: WRITE	Prompt: " LAST4 = "_$E(LAST4,6,$L(LAST4)) Line Location: WRITEBEFORE+5
Function Call: WRITE	Prompt: !,"ORDER ID = "_ORDID_" "_$$GET1^DIQ(100,ORDID,5,"E") Line Location: WRITEBEFORE+7
Function Call: WRITE	Prompt: !,"MRTC PARENT = ",SDPARENT Line Location: WRITEBEFORE+8
Function Call: WRITE	Prompt: !," PARENT STATUS = ",SDPARENTINFO(409.85,SDPARENT_",",23,"E") Line Location: WRITEBEFORE+9
Function Call: WRITE	Prompt: !," PARENT DISPOSITION = ",SDPARENTINFO(409.85,SDPARENT_",",21,"E") Line Location: WRITEBEFORE+10
Function Call: WRITE	Prompt: !,"MRTC CHILD = ",SDIEN Line Location: WRITEBEFORE+11
Function Call: WRITE	Prompt: !,"PID = ",SDPID Line Location: WRITEBEFORE+12
Function Call: WRITE	Prompt: !,"BEFORE:" Line Location: WRITEBEFORE+13
Function Call: WRITE	Prompt: !," CHILD STATUS = ",SDCHILDINFO(409.85,SDIEN_",",23,"E") Line Location: WRITEBEFORE+14
Function Call: WRITE	Prompt: !," CHILD DISPOSITION = ",SDCHILDINFO(409.85,SDIEN_",",21,"E") Line Location: WRITEBEFORE+15
Function Call: WRITE	Prompt: !,"AFTER:" Line Location: WRITEAFTER+2
Function Call: WRITE	Prompt: !,"ORDER ID = "_ORDID_" "_$$GET1^DIQ(100,ORDID,5,"E") Line Location: WRITEAFTER+4
Function Call: WRITE	Prompt: !," CHILD STATUS = ",SDCHILDINFO(409.85,SDIEN_",",23,"E") Line Location: WRITEAFTER+6
Function Call: WRITE	Prompt: !," CHILD DISPOSITION = ",SDCHILDINFO(409.85,SDIEN_",",21,"E"),!! Line Location: WRITEAFTER+7
Function Call: WRITE	Prompt: !,"Nothing done." Line Location: EXIT+2
Function Call: WRITE	Prompt: !!,"Search and clean-up is complete!!!!",!,CNT," requests were updated!" Line Location: FIN+3
Function Call: WRITE	Prompt: !!,"Report finished.",!,CNT," requests were selected as needing updated." Line Location: FIN+4
Routine Call	DIR Line Location: VERIFYRUN+20 DTPROMPT+4 PRINTORUPDATE+7
Routine Call	%ZIS Line Location: DEVICEPROMPT+1

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^SDEC(409.85 - [#409.85]	GET1^DIQ, GETS^DIQ

FileNo

Call Tags

^OR(100 - [#100]

GET1^DIQ

^DPT - [#2]

GET1^DIQ

^SDEC(409.85 - [#409.85]

GET1^DIQ, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SDEC(409.85 - [#409.85]	LOOP+5, LOOP+7

Name

Line Occurrences (* Changed, ! Killed)

^SDEC(409.85 - [#409.85]

LOOP+5, LOOP+7

Name	Line Occurrences
DEVICEPROMPT	CLEANUP+5
EXIT	VERIFYRUN+21, DTPROMPT+5, PRINTORUPDATE+8
FIN	CLEANUP+7
LOOP	CLEANUP+6
PRINTORUPDATE	CLEANUP+4
VERIFYRUN	CLEANUP+3
WRITEAFTER	LOOP+20
WRITEBEFORE	LOOP+17

Name

Line Occurrences

DEVICEPROMPT

CLEANUP+5

EXIT

VERIFYRUN+21, DTPROMPT+5, PRINTORUPDATE+8

CLEANUP+7

CLEANUP+6

CLEANUP+4

CLEANUP+3

LOOP+20

LOOP+17

Name	Field # of Occurrence
CNT	CLEANUP+1~, LOOP+2, WRITEBEFORE+2, FIN+3, FIN+4
DIR	CLEANUP+1~, VERIFYRUN+1~
DIR("?"	VERIFYRUN+18, DTPROMPT+3, PRINTORUPDATE+5*
DIR("A"	VERIFYRUN+17, DTPROMPT+2, PRINTORUPDATE+4*
DIR("B"	VERIFYRUN+19, DTPROMPT+2, PRINTORUPDATE+6*
DIR(0	VERIFYRUN+16, DTPROMPT+2, PRINTORUPDATE+3*
DIRUT	VERIFYRUN+1~, VERIFYRUN+21, PRINTORUPDATE+8
DT	VERIFYRUN+5, VERIFYRUN+7, LOOP+19
DUZ	LOOP+19
INPID	CLEANUP+1~, VERIFYRUN+6, DTPROMPT+2, DTPROMPT+6, LOOP+10
IO	DEVICEPROMPT+2
LAST4	WRITEBEFORE+1~, WRITEBEFORE+4*, WRITEBEFORE+5
ORDID	WRITEBEFORE+1~, WRITEBEFORE+6, WRITEBEFORE+7, WRITEAFTER+1~, WRITEAFTER+3, WRITEAFTER+4
PIDDATE	CLEANUP+1~, VERIFYRUN+7*, VERIFYRUN+11, DTPROMPT+2, DTPROMPT+3
POP	CLEANUP+1~, CLEANUP+2, CLEANUP+4, CLEANUP+5, CLEANUP+6, CLEANUP+7, DEVICEPROMPT+1, EXIT+1
RETN	LOOP+1~, LOOP+19
SDCHILDINFO	LOOP+1~
SDCHILDINFO(	WRITEBEFORE+3, WRITEBEFORE+4, WRITEBEFORE+14, WRITEBEFORE+15, WRITEAFTER+6, WRITEAFTER+7
SDDT	LOOP+1~, LOOP+3, LOOP+5, LOOP+7
SDFND	LOOP+1~
SDIEN	LOOP+1~, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+13, LOOP+19, WRITEBEFORE+3 , WRITEBEFORE+4, WRITEBEFORE+6, WRITEBEFORE+11, WRITEBEFORE+14, WRITEBEFORE+15, WRITEAFTER+3, WRITEAFTER+5, WRITEAFTER+6, WRITEAFTER+7
SDPARENT	LOOP+1~, LOOP+11*, LOOP+12, LOOP+14, LOOP+16, LOOP+19, WRITEBEFORE+8, WRITEBEFORE+9, WRITEBEFORE+10
SDPARENTINFO	LOOP+1~
SDPARENTINFO(	LOOP+16, LOOP+19, WRITEBEFORE+9, WRITEBEFORE+10
SDPID	LOOP+1~, LOOP+9*, WRITEBEFORE+12
UPDATE	CLEANUP+1~, PRINTORUPDATE+9*, LOOP+19, LOOP+20, FIN+3, FIN+4
X	VERIFYRUN+1~, VERIFYRUN+6
X1	VERIFYRUN+1~, VERIFYRUN+5*
X2	VERIFYRUN+1~, VERIFYRUN+5*
Y	VERIFYRUN+21, DTPROMPT+1~, DTPROMPT+5, DTPROMPT+6, PRINTORUPDATE+1~, PRINTORUPDATE+9

Name

Field # of Occurrence

CNT

CLEANUP+1~, LOOP+2*, WRITEBEFORE+2*, FIN+3, FIN+4

DIR

CLEANUP+1~, VERIFYRUN+1~

DIR("?"

VERIFYRUN+18*, DTPROMPT+3*, PRINTORUPDATE+5*

DIR("A"

VERIFYRUN+17*, DTPROMPT+2*, PRINTORUPDATE+4*

DIR("B"

VERIFYRUN+19*, DTPROMPT+2*, PRINTORUPDATE+6*