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

Package: Scheduling

Routine: SDECRTCF2


Information

SDECRTCF2 ;ALB/LAB- Cleanup of orphaned children of MRTC ;Jun 04,2021@15:23

Source Information

Source file <SDECRTCF2.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^DPT - [#2] GET1^DIQ
^SDEC(409.85 - [#409.85] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call