Routine: GMRCSTS1

Package	Total	Call Graph
Kernel	3	^%ZISC ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
Consult Request Tracking	2	EN^GMRCHL7 TRIGR^GMRCIEVT

Package	Total	Caller Graph
Consult Request Tracking	1	GMRCSTS

Entry Points

Name	Comments	DBIA/ICR reference
AUDIT(GMRCO,UPDSTS,GMRCOM)	;Update the processing activity of the consult
END
HDR(PAGE)	; print the header for the report
STSUPD(GMRCO,UPDSTS)	;change status of consult to COMPLETE or DC
CPRSUPDT(GMRCO,UPDSTS)	;Update CPRS order with new status
PRTTSK	; print the report then start the processing ; GMRCM= status of records to find A:active, P:pending, B:Both ; GMRCCVT= status to update records with 1:dc, 2:complete ; GMRCSVC= IEN from file 123.5 ; GMRCMT= array (passed by reference) of comment to stuff in records ; GMRCSTRT= first entry date to find/update ; GMRCSTOP= last entry date to find/update ; GMRCDO= 1:print only, 2:print and update records ; GMRCSTAT= Status of consult for the report (P,A,S)
UPDCRIT(UPD,STS,SVC,CMT,START,STOP)	;print update criteria on page 1
GETENTS(SERV,STRDT,STPDT,SRCH)
PRINT(GMRCM,GMRCCVT,GMRCSVC,GMRCMT,GMRCSTRT,GMRCSTOP,GMRCDO)	;untasked print of records to update
GETDATA	; Write ^GMR(123,IEN,0) to TMP
PROCESS(GMRCCVT,GMRCMT)	;Update consult status by service and date range

External References

Name	Field # of Occurrence
^%ZISC	PRTTSK+25
^DIE	AUDIT+10, STSUPD+7
$$GET1^DIQ	PRTTSK+20, PRTTSK+21, UPDCRIT+9
^DIR	PRTTSK+30, HDR+2
EN^GMRCHL7	CPRSUPDT+7
TRIGR^GMRCIEVT	AUDIT+22
$$FMTE^XLFDT	PRTTSK+19, HDR+5, UPDCRIT+10, UPDCRIT+11
$$NOW^XLFDT	HDR+5, AUDIT+4
$$REPEAT^XLFSTR	HDR+9, UPDCRIT+8, UPDCRIT+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No records found meeting search criteria" Line Location: PRTTSK+14
Function Call: WRITE	Prompt: !,GMRCIEN,?8,$$FMTE^XLFDT(+^GMR(123,GMRCIEN,0)) Line Location: PRTTSK+19
Function Call: WRITE	Prompt: ?29,$E($$GET1^DIQ(2,$P(^GMR(123,GMRCIEN,0),U,2),.01),1,26) Line Location: PRTTSK+20
Function Call: WRITE	Prompt: ?56,$$GET1^DIQ(2,$P(^GMR(123,GMRCIEN,0),U,2),.09) Line Location: PRTTSK+21
Function Call: WRITE	Prompt: ?70,$S(GMRCSTAT=5:"p",GMRCSTAT=6:"a",GMRCSTAT=8:"s",1:"?") Line Location: PRTTSK+23
Function Call: WRITE	Prompt: " to ",$S(+GMRCCVT=1:"dc",1:"c") Line Location: PRTTSK+24
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,?49,"Printed: ",$$FMTE^XLFDT($$NOW^XLFDT) Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Consult",?70,"Status" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Number Requested Patient SSN Change" Line Location: HDR+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"Searching database for entries matching search criteria",! Line Location: GETENTS+2
Function Call: WRITE	Prompt: "." Line Location: GETDATA+5
Function Call: WRITE	Prompt: !,"Records will be updated for:" Line Location: UPDCRIT+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: UPDCRIT+8
Function Call: WRITE	Prompt: !," Service: "_$$GET1^DIQ(123.5,SVC,.01) Line Location: UPDCRIT+9
Function Call: WRITE	Prompt: !," Beginning: "_$$FMTE^XLFDT(START) Line Location: UPDCRIT+10
Function Call: WRITE	Prompt: !," Ending: "_$$FMTE^XLFDT(STOP) Line Location: UPDCRIT+11
Function Call: WRITE	Prompt: !," Update: "_GMRCSTS_" "_" Consults" Line Location: UPDCRIT+12
Function Call: WRITE	Prompt: !," To: "_$S(+UPD=2:"COMPLETE",1:"DISCONTINUED") Line Location: UPDCRIT+13
Function Call: WRITE	Prompt: !," Update Comment:" Line Location: UPDCRIT+14
Function Call: WRITE	Prompt: !,CMT(I,0) Line Location: UPDCRIT+16
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78),! Line Location: UPDCRIT+17
Routine Call	DIE Line Location: AUDIT+10 STSUPD+7
Routine Call	DIR Line Location: PRTTSK+30 HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123 - [#123]	Classic Fileman Calls
^GMR(123.5 - [#123.5]	GET1^DIQ
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	PROCESS+6, PRTTSK+17, PRTTSK+18, PRTTSK+19, PRTTSK+20, PRTTSK+21, GETDATA+2, GETDATA+3, GETDATA+4, AUDIT+5 , AUDIT+6, AUDIT+7, AUDIT+11, AUDIT+13, AUDIT+20, AUDIT+22, CPRSUPDT+4
^GMR(123.1 - [#123.1]	STSUPD+4
^ORD(100.01 - [#100.01]	AUDIT+17
^TMP("GMRCLS"	PROCESS+4, PROCESS+5, PRTTSK+13, PRTTSK+15, PRTTSK+22, END!, GETDATA+4*

Label References

Name	Line Occurrences
AUDIT	PROCESS+7
CPRSUPDT	PROCESS+9
END	PRTTSK+13
GETDATA	GETENTS+8, GETENTS+9, GETENTS+10
HDR	PRTTSK+12, PRTTSK+16
PROCESS	PRTTSK+31, PRTTSK+32
STSUPD	PROCESS+8
UPDCRIT	HDR+6

Naked Globals

Name	Field # of Occurrence
^(0	PRTTSK+18, AUDIT+6*, AUDIT+7
^(40	AUDIT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CMT	UPDCRIT~, UPDCRIT+14
CMT(	UPDCRIT+15, UPDCRIT+16
COMMENT	AUDIT+15~, AUDIT+16, AUDIT+17, AUDIT+18, AUDIT+19, AUDIT+20
CTRLCODE	CPRSUPDT+3~, CPRSUPDT+5*, CPRSUPDT+7
DA	AUDIT+3~, AUDIT+7, AUDIT+11, AUDIT+13, AUDIT+20, AUDIT+22, STSUPD+3~, STSUPD+5
DA(1	AUDIT+8*
DIE	AUDIT+3~, AUDIT+8, AUDIT+23!, STSUPD+3~, STSUPD+5
DIR	HDR+2~
DIR("A"	PRTTSK+28*
DIR(0	PRTTSK+27, HDR+2
>> DIROUT	PRTTSK+29
>> DIRUT	PRTTSK+29
DR	AUDIT+9, STSUPD+3~, STSUPD+6
>> DTOUT	PRTTSK+29
>> DUOUT	PRTTSK+29
DUZ	CPRSUPDT+7
GMRCA	AUDIT+3~, AUDIT+4*, AUDIT+23!
GMRCAD	PROCESS+1~
GMRCCVT	PROCESS~, PROCESS+3, PROCESS+7, PROCESS+8, PROCESS+9, PRINT~, PRTTSK+24, PRTTSK+31, PRTTSK+32, HDR+6
GMRCDEV	PROCESS+1~
GMRCDFN	PRTTSK+9~, CPRSUPDT+3~, CPRSUPDT+4*, CPRSUPDT+7
GMRCDO	PRINT~, PRTTSK+26, PRTTSK+32
GMRCDT	AUDIT+3~, AUDIT+4*, AUDIT+11, AUDIT+23!
GMRCEND	PRTTSK+9~, PRTTSK+15, PRTTSK+16, HDR+1*
GMRCFF	PROCESS+1~
GMRCIEN	PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PRTTSK+9~, PRTTSK+10, PRTTSK+15*, PRTTSK+17, PRTTSK+18 , PRTTSK+19, PRTTSK+20, PRTTSK+21, PRTTSK+22
GMRCLST	STSUPD+3~, STSUPD+4*, STSUPD+6
GMRCM	PRINT~, HDR+6
GMRCMT	PROCESS~, PROCESS+7, PRINT~, PRTTSK+31, PRTTSK+32, HDR+6
GMRCO	PROCESS+1~, AUDIT~, AUDIT+5, AUDIT+6, AUDIT+7, AUDIT+8, AUDIT+11, AUDIT+13, AUDIT+20, AUDIT+22 , STSUPD~, STSUPD+5, CPRSUPDT~, CPRSUPDT+4, CPRSUPDT+7
GMRCOM	AUDIT~, AUDIT+12, AUDIT+13, AUDIT+14
GMRCOM1	PROCESS+2~
GMRCORNP	PROCESS+1~
GMRCPG	PRTTSK+9~, PRTTSK+12, PRTTSK+16
GMRCSTAT	PRTTSK+9~, PRTTSK+22*, PRTTSK+23
GMRCSTOP	PRINT~, HDR+6
GMRCSTRT	PRINT~, HDR+6
GMRCSTS	PROCESS+1~, AUDIT+3~, AUDIT+5, AUDIT+17, UPDCRIT+1~, UPDCRIT+3, UPDCRIT+4, UPDCRIT+5, UPDCRIT+6*, UPDCRIT+12
GMRCSVC	PRINT~, HDR+6
GMRCTRLC	PROCESS+1~
I	UPDCRIT+15~*, UPDCRIT+16
IDT	GETENTS+1~, GETDATA+1, GETDATA+2, GETDATA+3
IEN	GETENTS+1~, GETDATA+3*, GETDATA+4
INDEX	GETENTS+1~, GETENTS+4, GETENTS+5, GETENTS+7, GETENTS+8, GETENTS+9, GETENTS+10, UPDCRIT+1~, UPDCRIT+2*, UPDCRIT+4 , UPDCRIT+5, UPDCRIT+6
IO	PRTTSK+11
IOF	HDR+3
IOSL	PRTTSK+16
IOST	HDR+1
ORIFN	PROCESS+1~, PROCESS+2~
PAGE	HDR~, HDR+1, HDR+4, HDR+5, HDR+6
SERV	GETENTS~, GETDATA+2, GETDATA+3
SRCH	GETENTS~, GETENTS+4, GETENTS+5*, GETENTS+7, GETENTS+8, GETENTS+9, GETENTS+10
START	UPDCRIT~, UPDCRIT+10
STOP	UPDCRIT~, UPDCRIT+11
STOPI	GETENTS+1~, GETENTS+3*, GETDATA+1
STPDT	GETENTS~, GETENTS+3
STRDT	GETENTS~, GETENTS+3
STRTI	GETENTS+1~, GETENTS+3*, GETDATA+2
STS	GETENTS+1~, GETENTS+8, GETENTS+9, GETENTS+10*, GETDATA+2, GETDATA+3, GETDATA+4, UPDCRIT~, UPDCRIT+2, UPDCRIT+3 , UPDCRIT+4, UPDCRIT+5, UPDCRIT+6
SVC	UPDCRIT~, UPDCRIT+9
U	PRTTSK+18, PRTTSK+20, PRTTSK+21, GETDATA+4, AUDIT+5
UPD	UPDCRIT~, UPDCRIT+13
UPDSTS	AUDIT~, AUDIT+4, AUDIT+18, STSUPD~, STSUPD+4, CPRSUPDT~, CPRSUPDT+5
X	STSUPD+3~
Y	PRTTSK+31, HDR+1~
>> ZTQUEUED	PRTTSK+26, PRTTSK+32

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCSTS1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: