Routine: GMRCCXDC

Information

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

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	(,C)^%DTC ($$GET1,GETS)^DIQ ^DIR
Consult Request Tracking	1	$$DC^GMRCGUIA
Kernel	1	($$FMADD,$$FMTE,$$NOW)^XLFDT
Toolkit	1	($$GET,GETLST,PUT)^XPAR

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

Package	Total	Caller Graph
Consult Request Tracking	2	GMRC CHANGE STATUS X TO DC GMRC CX TO DC PARAMETER EDIT

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

External References

Name	Field # of Occurrence
^%DTC	CONSCXEN+14
C^%DTC	EN+6, EN+17, EN+18
$$GET1^DIQ	EN+25, EN+28, EN+30, CANC+6, CANC+9, CONSCXEN+9
GETS^DIQ	CONSCXEN+10
^DIR	UPDACT+3, UPDDAY1+3, UPDDAY2+3, CONSCXST+2, CONSCXEN+2
$$DC^GMRCGUIA	EN+32
$$FMADD^XLFDT	UPDDAY1+6, UPDDAY2+7, UPDDAY2+12, UPDDAY2+13
$$FMTE^XLFDT	EN+7, EN+34, EX+1, UPDDAY1+6, UPDDAY2+7, UPDDAY2+12, UPDDAY2+13, CONSCXST+5, CONSCXEN+5
$$NOW^XLFDT	EN+6, EN+17, EN+18, EN+31
$$GET^XPAR	EN+3, EN+12, EN+14
GETLST^XPAR	UPDPARM+3, UPDDAY2+8, TRYLST+2
PUT^XPAR	UPDACT+4, UPDDAY1+5, UPDDAY2+6

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
Routine Call	DIR Line Location: UPDACT+3 UPDDAY1+3 UPDDAY2+3 CONSCXST+2 CONSCXEN+2

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ, GETS^DIQ
123.02	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	EN+23, EN+24, EN+29, CANC+4, CONSCXEN+7, CONSCXEN+8
^GMR(123.1 - [#123.1]	EN+20, CONSCX+3
^XTMP("GMRCCXDC "	EN+7

Label References

Name	Line Occurrences
$$CANC	EN+27
$$TRYLST	EN+4
CONSCXEN	CONSCXEN+4
CONSCXST	CONSCXEN+3
EX	EN+21
UPDACT	UPDDAY1+3
UPDDAY1	UPDDAY2+3
UPDDAY2	UPDDAY2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D1	UPDPARM+1~, UPDPARM+5, UPDPARM+6, UPDACT+2, UPDDAY2+11
D2	UPDPARM+1~, UPDPARM+5, UPDPARM+7, UPDDAY1+2, UPDDAY2+12
D3	UPDPARM+1~, UPDPARM+5, UPDPARM+8, UPDDAY2+2, UPDDAY2+13
DA	EN+1~, EN+6, EN+7, EN+8, CONSCX+1~, CONSCXEN+7, CONSCXEN+8
DAY1	UPDPARM+1~, UPDDAY1+4*, UPDDAY1+6, UPDDAY2+1, UPDDAY2+4
DAY2	UPDPARM+1~, UPDDAY2+5*, UPDDAY2+7
DIR	UPDPARM+1~, UPDACT+1!, UPDDAY1+1!, UPDDAY2+1!, CONSCX+1~
DIR("A"	UPDACT+1, UPDDAY1+1, UPDDAY2+1, CONSCXST+1, CONSCXEN+1*
DIR("B"	UPDACT+2, UPDDAY1+2, UPDDAY2+2*
DIR(0	UPDACT+1, UPDDAY1+1, UPDDAY2+1, CONSCXST+1, CONSCXEN+1*
DIRUT	UPDPARM+1~, UPDACT+1!, UPDACT+3, UPDDAY1+3, UPDDAY2+3
DT	EX+1, UPDDAY1+6, UPDDAY2+7, UPDDAY2+12, UPDDAY2+13, CONSCXEN+14
DTOUT	CONSCX+1~, CONSCXST+3, CONSCXEN+3
DUOUT	UPDACT+1!, UPDACT+3, UPDDAY1+3, UPDDAY2+3, CONSCX+1~, CONSCXST+3, CONSCXEN+3
ERR	UPDPARM+1~, UPDPARM+3, UPDPARM+4, UPDDAY2+8, UPDDAY2+9, CONSCX+1~, TRYLST+1~, TRYLST+2, TRYLST+3
GMRCACT	EN+1~, EN+29*, EN+30
GMRCACTX	CANC+1~, CANC+2, CANC+4, CANC+6, CANC+9
GMRCCANX	CANC+1~, CANC+2, CANC+12, CANC+13
GMRCCOM	EN+1~, EN+32
GMRCCOM(1	EN+19*
GMRCCT	EN+1~, EN+17, EN+21, EN+22, EN+34, EX+2, EX+3, EX+4
GMRCCX	EN+1~, EN+20, EN+21, EN+24, EN+29, CONSCX+1~, CONSCX+3, CONSCX+4, CONSCXEN+7, CONSCXEN+8 , CONSCXEN+12
GMRCDA	EN+1~, EN+17, EN+23, EN+24, EN+29, EN+31, EN+33*, EN+34
GMRCDAX	EN+2~, EN+17*, CANC+9
GMRCDT1	EN+1~, EN+12, EN+13, EN+15, EN+17, EN+19, CONSCX+1~, CONSCXST+4, CONSCXST+5, CONSCXEN+4 , CONSCXEN+7
GMRCDT2	EN+1~, EN+14, EN+15, EN+18, CONSCX+1~, CONSCXEN+6*, CONSCXEN+7
GMRCDTMP	EN+1~, EN+31*, EN+33
GMRCHITX	CANC+1~, CANC+2, CANC+4, CANC+9, CANC+12*
GMRCIEN	EN+1~, EN+24*, EN+25, EN+27, EN+28, EN+29, EN+30, EN+32, EN+34, EN+35
GMRCIENX	EN+2~, CANC~, CANC+4, CANC+6, CANC+9
GMRCNA	EN+1~, EN+28*, EN+34, EN+35
GMRCNOW	EN+1~, EN+31*, EN+32
GMRCORN	EN+1~, EN+28*
GMRCPROV	EN+2~, EN+30*, EN+32
GMRCSTOP	EN+2~, EN+18*, EN+23
I	UPDPARM+1~, UPDPARM+5, UPDPARM+6, UPDPARM+7, UPDPARM+8, CONSCX+1~, CONSCXEN+11, CONSCXEN+12, CONSCXEN+13, CONSCXEN+14
IEN	CONSCX+1~, CONSCXEN+7*, CONSCXEN+8, CONSCXEN+9, CONSCXEN+10, CONSCXEN+13
IENACT	CONSCX+1~, CONSCXEN+8*
N	UPDPARM+1~, UPDPARM+5, UPDPARM+6, UPDPARM+7, UPDPARM+8, TRYLST+1~, TRYLST+4
OUT	UPDPARM+1~, UPDPARM+3, UPDDAY2+8, CONSCX+1~, CONSCXEN+10!, TRYLST+1~, TRYLST+2
OUT(	UPDPARM+5, UPDPARM+6, UPDPARM+7, UPDPARM+8, UPDACT+2, UPDDAY1+2, UPDDAY2+2, UPDDAY2+11, UPDDAY2+12, UPDDAY2+13 , CONSCXEN+11, CONSCXEN+12, CONSCXEN+13, CONSCXEN+14, TRYLST+4
OUT(123	CONSCXEN+13
R	TRYLST+1~, TRYLST+4*, TRYLST+5
U	EN+8, UPDACT+2, UPDDAY1+2, UPDDAY2+2, UPDDAY2+11, UPDDAY2+12, UPDDAY2+13, TRYLST+4
X	EN+2~, EN+3, EN+4, EN+5, EN+8, EN+9, EN+10, EN+11, EN+17, EN+18* , UPDPARM+1~, UPDACT+2, CONSCX+1~, CONSCXEN+12, CONSCXEN+14
X1	EN+2~, EN+6, EN+17, EN+18, UPDPARM+1~, CONSCX+1~, CONSCXEN+14
X2	EN+2~, EN+6, EN+17, EN+18, UPDPARM+1~, CONSCX+1~, CONSCXEN+14
XTMP	EN+2~, EN+7*, EN+8, EN+10, EN+13, EN+15, EN+21, EN+22, EN+34, EN+35 , EX+1, EX+2, EX+3, EX+4
XTMPCT	EN+2~, EN+13, EN+15, EN+20, EN+21, EN+22, EN+34, EN+35, EX+1, EX+2 , EX+3, EX+4
Y	EN+2~, EN+32, EN+34, EN+35, UPDPARM+1~, UPDACT+4, UPDACT+5, UPDDAY1+4, UPDDAY1+5, UPDDAY1+6* , UPDDAY2+4, UPDDAY2+5, UPDDAY2+6, UPDDAY2+7, UPDDAY2+12, UPDDAY2+13*, CONSCXST+4, CONSCXEN+4, CONSCXEN+5, CONSCXEN+6
>> ZTQUEUED	EN+9

Customize PDF page

Package: Consult Request Tracking