Routine: GMRCCD

Information

GMRCCD ;SFVAMC/DAD - Consult Closure Tool: Interactive Consult Update ;01/20/17 15:19

Package	Total	Call Graph
VA FileMan	6	DOCLIST^DDBR ($$FIND1,LIST)^DIC $$GET1^DID CLEAN^DILF $$GET1^DIQ ^DIR
Consult Request Tracking	3	$$DIREXIT^GMRCCA ($$CONUPDT,$$DATE)^GMRCCC DT^GMRCSLM2
Kernel	1	HOME^%ZIS
Text Integration Utility	1	RPC^TIUSRV

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

Package	Total	Caller Graph
Consult Request Tracking	3	GMRCCA GMRCCB GMRCCC

Entry Points

Name	Comments	DBIA/ICR reference
INTERACT(GMROOT)	; ; *** Interactive consult update
SHOWPICK(GMROOT,GM0CON,GMEXIT)	; ; * Show consult & progress notes ; * Pick progress note to close consult
SHOWNOTE(GMROOT,GM0CON)	; ; *** Show consult & progress notes to user
PICKNOTE(GMROOT,GM0CON,GMEXIT)	; ; *** Pick progress note to close consult
HEADER(GM0CON,GMLINE)	; ; *** Pt name header
FOOTER(GMLINE)	; ; *** Page footer instructions
HANGMSG(GMTEXT,GMTIME,GMBELL)	; ; *** Hang a message on the screen for a time
TYPEAHED(GMBOOL)	; ; *** Enable/Disable type-ahead
COUNT(GMROOT,GMPCNT,GMCCNT,GMNCNT)	; ; *** Count patients / consults / notes
CLINLIST(GMROOT,GM0CFG)	; ; *** Get list of clinics
CONSOKAY(GM0CON)	; ; *** Consult status okay?
NOTESTAT(GMSTAT)	; ; *** Get list of note statuses
ISTM(GM0CFG)	; ; *** Manual patient team associated with configuration?
GLOBROOT(GMFILE,GMTRAN)	; ; *** Get file's global root
SEEN(GMSTAT)	; ; *** Pt was seen in clinic?
UNSEEN(GMSTAT)	; ; *** Pt was not seen in clinic?

External References

Name	Field # of Occurrence
HOME^%ZIS	INTERACT+5
DOCLIST^DDBR	SHOWNOTE+5
$$FIND1^DIC	NOTESTAT+5
LIST^DIC	CLINLIST+12
$$GET1^DID	GLOBROOT+3
CLEAN^DILF	CLINLIST+13
$$GET1^DIQ	HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+7, HEADER+8, TYPEAHED+4, TYPEAHED+5, CLINLIST+7, CONSOKAY+2 , ISTM+2
^DIR	PICKNOTE+34, HANGMSG+10
$$DIREXIT^GMRCCA	PICKNOTE+35
$$CONUPDT^GMRCCC	PICKNOTE+41
$$DATE^GMRCCC	HEADER+5, HEADER+8
DT^GMRCSLM2	INTERACT+38
RPC^TIUSRV	INTERACT+53

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PICKNOTE+34
Function Call: WRITE	Prompt: @IOF,"Consult closure for patient: " Line Location: HEADER+2
Function Call: WRITE	Prompt: $$GET1^DIQ(123,GM0CON,.02) Line Location: HEADER+3
Function Call: WRITE	Prompt: " (",$$GET1^DIQ(123,GM0CON,".02:.0905"),") " Line Location: HEADER+4
Function Call: WRITE	Prompt: $$DATE^GMRCCC($$GET1^DIQ(123,GM0CON,".02:.03","I"),"5DZ") Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$$GET1^DIQ(123,GM0CON,1) Line Location: HEADER+6
Function Call: WRITE	Prompt: " (",$$GET1^DIQ(123,GM0CON,"8:.1"),") " Line Location: HEADER+7
Function Call: WRITE	Prompt: $$DATE^GMRCCC($$GET1^DIQ(123,GM0CON,3,"I"),"5DZ") Line Location: HEADER+8
Function Call: WRITE	Prompt: ! Line Location: FOOTER+2
Function Call: WRITE	Prompt: !,"Use <PF1>S to Switch between views of the consult and progress note(s)" Line Location: FOOTER+3
Function Call: WRITE	Prompt: !,"Use R to Return to the previously viewed consult or progress note(s)" Line Location: FOOTER+4
Function Call: WRITE	Prompt: ! Line Location: HANGMSG+10
Routine Call	%ZIS Line Location: INTERACT+5
Routine Call	DIC Line Location: NOTESTAT+5
Routine Call	DIC Line Location: CLINLIST+12
Routine Call	DIR Line Location: PICKNOTE+34 HANGMSG+10

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
^GMR(123.033 - [#123.033]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	LIST^DIC
^TIU(8925.6 - [#8925.6]	FIND1^DIC
^XTV(8989.3 - [#8989.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("NO-TYPE-AHEAD"	TYPEAHED+9
^%ZOSF("TYPE-AHEAD"	TYPEAHED+6
^GMR(123.033 - [#123.033]	CLINLIST+4
^TMP("DILIST"	CLINLIST+9
^TMP("GMRCR"	INTERACT+8
^TMP("TIUAUDIT"	INTERACT+9

Label References

Name	Line Occurrences
COUNT	INTERACT+10
FOOTER	SHOWNOTE+4
HANGMSG	INTERACT+22, INTERACT+26, INTERACT+70, PICKNOTE+64
HEADER	SHOWNOTE+3, PICKNOTE+33
PICKNOTE	SHOWPICK+5
SHOWNOTE	SHOWPICK+4
SHOWPICK	INTERACT+63
TYPEAHED	HANGMSG+9, HANGMSG+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	SHOWNOTE+2~, PICKNOTE+4~, HANGMSG+2~
DIR("?"	PICKNOTE+31, HANGMSG+7
DIR("??"	HANGMSG+7*
DIR("A"	PICKNOTE+6, PICKNOTE+7, PICKNOTE+8, PICKNOTE+9, PICKNOTE+20, PICKNOTE+26, PICKNOTE+27, PICKNOTE+28, HANGMSG+6*
DIR("B"	PICKNOTE+29*
DIR("T"	HANGMSG+8*
DIR(0	PICKNOTE+30, HANGMSG+5
DIROUT	SHOWNOTE+2~, PICKNOTE+4~, HANGMSG+2~
DIRUT	SHOWNOTE+2~, PICKNOTE+4~, HANGMSG+2~
DTIME	INTERACT+22, PICKNOTE+46
DTOUT	SHOWNOTE+2~, PICKNOTE+4~, HANGMSG+2~
DUOUT	SHOWNOTE+2~, PICKNOTE+4~, HANGMSG+2~
DUZ	TYPEAHED+4
GM0CFG	CLINLIST~, CLINLIST+4, CLINLIST+7, ISTM~, ISTM+2
GM0CLN	CLINLIST+2~, CLINLIST+3, CLINLIST+4, CLINLIST+5, CLINLIST+16*, CLINLIST+17
GM0CON	INTERACT+2~, INTERACT+35*, INTERACT+38, INTERACT+45, INTERACT+63, SHOWPICK~, SHOWPICK+4, SHOWPICK+5, SHOWNOTE~, SHOWNOTE+3 , PICKNOTE~, PICKNOTE+33, PICKNOTE+39, PICKNOTE+41, HEADER~, HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+7 , HEADER+8, CONSOKAY~, CONSOKAY+2
GM0NOT	INTERACT+2~, INTERACT+43, INTERACT+45, INTERACT+53, INTERACT+54, PICKNOTE+2~, PICKNOTE+17, PICKNOTE+18, PICKNOTE+22, PICKNOTE+38* , PICKNOTE+39, PICKNOTE+41
GM0NOT(	PICKNOTE+22*, PICKNOTE+38, PICKNOTE+43, PICKNOTE+49
GM0STA	NOTESTAT+2~, NOTESTAT+5*, NOTESTAT+6
GM0STP	CLINLIST+2~, CLINLIST+7*, CLINLIST+8, CLINLIST+11, CLINLIST+12
GMBELL	PICKNOTE+2~, PICKNOTE+36, PICKNOTE+46, PICKNOTE+64, HANGMSG~, HANGMSG+4
GMBOOL	TYPEAHED~, TYPEAHED+3
GMCCNT	INTERACT+2~, INTERACT+10, INTERACT+12, INTERACT+17, INTERACT+23, INTERACT+32, INTERACT+49, COUNT~, COUNT+7, COUNT+14
GMCCNT(0	INTERACT+12*, INTERACT+49
GMCONS	INTERACT+2~, INTERACT+30, INTERACT+31, INTERACT+35, INTERACT+41, COUNT+2~, COUNT+12, COUNT+13, COUNT+14, COUNT+15 , COUNT+17
GMCRPT	INTERACT+2~, INTERACT+8*, INTERACT+33, INTERACT+50, INTERACT+65
GMDOCS	INTERACT+2~, INTERACT+6*, INTERACT+33, INTERACT+50, INTERACT+60, INTERACT+63, INTERACT+65
GMEXIT	INTERACT+3~, INTERACT+23, INTERACT+28, INTERACT+31, INTERACT+41, INTERACT+63, INTERACT+68, SHOWPICK~, SHOWPICK+3, SHOWPICK+5 , PICKNOTE~, PICKNOTE+35, PICKNOTE+37, PICKNOTE+59
GMFILE	GLOBROOT~, GLOBROOT+3
GMGLOB	PICKNOTE+2~, PICKNOTE+16*, PICKNOTE+17
GMINDX	INTERACT+3~, INTERACT+40, INTERACT+46, INTERACT+58, PICKNOTE+2~, PICKNOTE+10, PICKNOTE+19, PICKNOTE+20, PICKNOTE+22, PICKNOTE+25 , PICKNOTE+26, PICKNOTE+27, PICKNOTE+28, PICKNOTE+34, PICKNOTE+35, PICKNOTE+38, PICKNOTE+43, PICKNOTE+49, CLINLIST+2~, CLINLIST+14 , CLINLIST+15, CLINLIST+16, NOTESTAT+2~, NOTESTAT+4, NOTESTAT+5, NOTESTAT+6
GMKRNL	TYPEAHED+2~, TYPEAHED+5*, TYPEAHED+6
GMLINE	SHOWNOTE+2~, SHOWNOTE+3, SHOWNOTE+5, HEADER~, HEADER+9*, FOOTER~, FOOTER+2
GMLIST	CLINLIST+2~, CLINLIST+9*, CLINLIST+10, CLINLIST+15, CLINLIST+16, CLINLIST+19
GMMAXX	PICKNOTE+2~, PICKNOTE+25*, PICKNOTE+26, PICKNOTE+29, PICKNOTE+30, PICKNOTE+35
GMMSGS	PICKNOTE+3~, PICKNOTE+41, PICKNOTE+48
GMNAME	INTERACT+3~, INTERACT+23, INTERACT+24, INTERACT+28, INTERACT+31, INTERACT+41, COUNT+2~, COUNT+8, COUNT+9, COUNT+10 , COUNT+11, COUNT+13, COUNT+17
GMNCNT	INTERACT+3~, INTERACT+10, INTERACT+13, INTERACT+18, INTERACT+23, INTERACT+42, COUNT~, COUNT+7, COUNT+18
GMNCNT(0	INTERACT+13*
GMNOTE	INTERACT+3~, INTERACT+9*, INTERACT+52, INTERACT+53, INTERACT+55, INTERACT+56
GMNRPT	INTERACT+3~, INTERACT+7*, INTERACT+33, INTERACT+54, INTERACT+65
GMNTXT	INTERACT+4~, INTERACT+54*, INTERACT+55, INTERACT+60
GMPCNT	INTERACT+4~, INTERACT+10, INTERACT+11, INTERACT+16, INTERACT+23, INTERACT+29, COUNT~, COUNT+7, COUNT+10
GMPCNT(0	INTERACT+11*
GMRCOER	INTERACT+4~, INTERACT+36*
GMRCQUT	INTERACT+4~, INTERACT+37!, INTERACT+39
GMROOT	INTERACT~, INTERACT+6, INTERACT+7, INTERACT+10, INTERACT+24, INTERACT+28, INTERACT+31, INTERACT+41, SHOWPICK~, SHOWPICK+3 , SHOWPICK+4, SHOWPICK+5, SHOWNOTE~, SHOWNOTE+5, PICKNOTE~, PICKNOTE+11, PICKNOTE+16, COUNT~, COUNT+3, COUNT+4 , COUNT+5, COUNT+9, COUNT+13, COUNT+17, CLINLIST~, CLINLIST+5, CLINLIST+17, GLOBROOT+2~, GLOBROOT+3*, GLOBROOT+4
GMSCRN	CLINLIST+2~, CLINLIST+11*, CLINLIST+12
GMSTAT	NOTESTAT~, NOTESTAT+3!, SEEN~, SEEN+2, UNSEEN~, UNSEEN+2
GMSTAT(	NOTESTAT+6*
GMTEXT	INTERACT+4~, INTERACT+14!, INTERACT+21, INTERACT+22, INTERACT+25!, INTERACT+26, INTERACT+48, INTERACT+49, INTERACT+50, INTERACT+58* , INTERACT+59, INTERACT+60, INTERACT+69!, INTERACT+70, PICKNOTE+3~, PICKNOTE+36!, PICKNOTE+43, PICKNOTE+51, PICKNOTE+55, PICKNOTE+61 , PICKNOTE+64, HANGMSG~, HANGMSG+3, HANGMSG+4*, HANGMSG+6
GMTEXT(1	INTERACT+15, PICKNOTE+42, PICKNOTE+47*
GMTEXT(2	INTERACT+16, PICKNOTE+48
GMTEXT(3	INTERACT+17, PICKNOTE+49
GMTEXT(4	INTERACT+18, PICKNOTE+50
GMTEXT(5	INTERACT+19*
GMTEXT(6	INTERACT+20*
GMTIME	PICKNOTE+3~, PICKNOTE+36, PICKNOTE+46, PICKNOTE+60*, PICKNOTE+64, HANGMSG~, HANGMSG+8
GMTITL	INTERACT+4~, INTERACT+40, INTERACT+41, INTERACT+43, INTERACT+59, PICKNOTE+3~, PICKNOTE+10, PICKNOTE+11, PICKNOTE+16, PICKNOTE+20 , PICKNOTE+22, COUNT+2~, COUNT+16, COUNT+17, COUNT+18, COUNT+19
GMTRAN	GLOBROOT~, GLOBROOT+4
GMUCON	COUNT+2~, COUNT+4*, COUNT+6, COUNT+14, COUNT+15, COUNT+23
GMUNAM	COUNT+2~, COUNT+3*, COUNT+6, COUNT+10, COUNT+11, COUNT+23
GMUSER	TYPEAHED+2~, TYPEAHED+4*, TYPEAHED+6
GMUTTL	COUNT+2~, COUNT+5*, COUNT+6, COUNT+18, COUNT+19, COUNT+23
IOF	HEADER+2
IOSL	SHOWNOTE+4, SHOWNOTE+5
U	INTERACT+35, INTERACT+43, INTERACT+59, PICKNOTE+22, PICKNOTE+38, PICKNOTE+43, PICKNOTE+49, CONSOKAY+2, NOTESTAT+6, GLOBROOT+4 , SEEN+2, UNSEEN+2
X	SHOWNOTE+2~, PICKNOTE+4~, HANGMSG+2~
Y	SHOWNOTE+2~, PICKNOTE+4~, PICKNOTE+34, HANGMSG+2~

Customize PDF page

Package: Consult Request Tracking