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

Package: Consult Request Tracking

Routine: GMRCCXDC


Information

GMRCCXDC ;ABV/MKN - Convert cancelled consults to discontinued after 31 days ;Dec 09, 2020@18:08

Source Information

Source file <GMRCCXDC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Overnight Taskman job that runs from option GMRC CHANGE STATUS X TO DC
EX ;
CANC(GMRCIENX) ;check for multiple cancellations
UPDPARM ;Run with menu option GMRC CX TO DC PARAMETER EDIT
UPDACT ;
UPDDAY1 ;
UPDDAY2 ;
CONSCX ;Find cancelled consults
CONSCXST ;
CONSCXEN ;
TRYLST() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Update the three fields in the CSLT CANCELLED TO DISCONTINUED parameter",!!
  • Line Location: UPDPARM+2
Function Call: WRITE
  • Prompt: !,"Unable to retrieve values in parameter CSLT CANCELLED TO DISCONTINUED"
  • Line Location: UPDPARM+4
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(Y,"5PZ")
  • Line Location: UPDDAY1+6
Function Call: WRITE
  • Prompt: !,"The end day number cannot be earlier than the start day number"
  • Line Location: UPDDAY2+4
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(Y,"5PZ")
  • Line Location: UPDDAY2+7
Function Call: WRITE
  • Prompt: !,"Unable to retrieve values in parameter CSLT CANCELLED TO DISCONTINUED"
  • Line Location: UPDDAY2+9
Function Call: WRITE
  • Prompt: !!,"New contents of parameter:",!
  • Line Location: UPDDAY2+10
Function Call: WRITE
  • Prompt: !,$P(OUT(D1),U)," = ",$P(OUT(D1),U,2)
  • Line Location: UPDDAY2+11
Function Call: WRITE
  • Prompt: !,$P(OUT(D2),U)," = ",$P(OUT(D2),U,2)
  • Line Location: UPDDAY2+12
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(Y,"5PZ")
  • Line Location: UPDDAY2+12
Function Call: WRITE
  • Prompt: !,$P(OUT(D3),U)," = ",$P(OUT(D3),U,2)
  • Line Location: UPDDAY2+13
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(Y,"5PZ")
  • Line Location: UPDDAY2+13
Function Call: WRITE
  • Prompt: !,"Search for cancelled consults"
  • Line Location: CONSCX+2
Function Call: WRITE
  • Prompt: !,"""CANCELLED"" status in file #123.1 (REQUEST ACTION TYPES) not found"
  • Line Location: CONSCX+4
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(GMRCDT1,"5PZ")
  • Line Location: CONSCXST+5
Function Call: WRITE
  • Prompt: !,"End date may not be earlier than Start date"
  • Line Location: CONSCXEN+4
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(+Y,"5PZ")
  • Line Location: CONSCXEN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ,  GETS^DIQ
123.02 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call