Routine: GMRCAD31

Information

GMRCAD31 ;SLC/JFR - admin corrections on cons. activities; 2/19/03 14:09

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL ^DIE $$GET1^DIQ ^DIR
Consult Request Tracking	3	($$SETDA,SETCOM)^GMRCGUIB BLDALN^GMRCSLM4 REGDTM^GMRCU
Kernel	2	$$NOW^XLFDT ($$CJ,$$REPEAT)^XLFSTR
Registration	2	EN^VALM FULL^VALM1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Consult Request Tracking	1	GMRC ADMP31 CORRECTIONS

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Start prompting and prepare to build a list
HDR	;
AUDIT(GMRCO,GMRCAC,ARRAY)	;make new audit trail activity w/old and new
CKACTS(CSLT)	;assure that there is at least one activity meeting criteria ; Input: ; CSLT = ien from file 123
INIT	;
NEWCSLT	; select a new consult to work on
EXIT	;
BLDLST(GMRCDA)	;build the list for LM ; Input: ; GMRCDA = ien from file 123
FIX(GMRCDA,GMRCACT)	;do the admin correction on bad IFC comments ; GMRCDA = ien from file 123 ; GMRCACT = ien within 40 multiple for activity
SELACT	; choose which action to edit
GETCSLT()	;

External References

Name	Field # of Occurrence
EN^DDIOL	GETCSLT+2, GETCSLT+3, SELACT+3, SELACT+4, SELACT+10
^DIE	FIX+12
$$GET1^DIQ	BLDLST+8, BLDLST+9, BLDLST+11, AUDIT+10
^DIR	GETCSLT+8, NEWCSLT+6, SELACT+7
$$SETDA^GMRCGUIB	AUDIT+37
SETCOM^GMRCGUIB	AUDIT+39
BLDALN^GMRCSLM4	BLDLST+34
REGDTM^GMRCU	AUDIT+15
EN^VALM	EN+8
FULL^VALM1	NEWCSLT+1, SELACT+1
$$NOW^XLFDT	AUDIT+38
$$CJ^XLFSTR	HDR+1
$$REPEAT^XLFSTR	BLDLST+7, BLDLST+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Consult selected." Line Location: EN+3
Function Call: WRITE	Prompt: !,"The request has no activities meeting editing criteria" Line Location: EN+5
Function Call: WRITE	Prompt: !,"The request has no activities meeting editing criteria" Line Location: NEWCSLT+9
Function Call: WRITE	Prompt: !,"No comment there to correct" Line Location: FIX+5
Function Call: WRITE	Prompt: !! Line Location: FIX+8
Function Call: WRITE	Prompt: !,"No comment modification made!",! Line Location: FIX+19
Routine Call	VALM Line Location: EN+8
Routine Call	DIE Line Location: FIX+12
Routine Call	DIR Line Location: GETCSLT+8 NEWCSLT+6 SELACT+7

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
^GMR(123.1 - [#123.1]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	BLDLST+9, BLDLST+11, BLDLST+12, BLDLST+26, BLDLST+28, BLDLST+30, BLDLST+31, CKACTS+6, CKACTS+8, CKACTS+11 , CKACTS+12, FIX+4, FIX+7, FIX+13, FIX+16, FIX+17, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15 , AUDIT+16, AUDIT+32, AUDIT+33
^TMP("GMRCADM"	SELACT+9, SELACT+11, BLDLST+4!, BLDLST+6, BLDLST+13, BLDLST+15, BLDLST+17, BLDLST+19, BLDLST+20, BLDLST+21* , BLDLST+22, BLDLST+32, BLDLST+33, BLDLST+35, BLDLST+37*, INIT+1, EXIT+1!, HDR+1
^TMP("GMRCOCMT"	FIX+6!, FIX+7*, FIX+13, FIX+17, FIX+20, FIX+21!, AUDIT+26, AUDIT+27
^TMP("GMRCR"	BLDLST+35, BLDLST+36!

Name	Line Occurrences
$$CKACTS	EN+4, NEWCSLT+8
$$GETCSLT	EN+2, NEWCSLT+3
AUDIT	FIX+20
BLDLST	EN+7, NEWCSLT+10, SELACT+13
EN	EN+4
EXIT	NEWCSLT+10, SELACT+13
FIX	SELACT+12
INIT	NEWCSLT+4, NEWCSLT+8, NEWCSLT+10, SELACT+13
SELACT	SELACT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTRESP	AUDIT+6~, AUDIT+12*, AUDIT+20
ACTV	BLDLST+24~, BLDLST+25, BLDLST+26, BLDLST+28, BLDLST+30, BLDLST+31, BLDLST+32, BLDLST+33, BLDLST+34, CKACTS+4~ , CKACTS+5, CKACTS+6, CKACTS+8, CKACTS+11, CKACTS+12
ACTWHEN	AUDIT+6~, AUDIT+16*, AUDIT+19
ACTWHO	AUDIT+6~, AUDIT+11*, AUDIT+20
ACTYPE	BLDLST+27~, BLDLST+28, BLDLST+29, CKACTS+7~, CKACTS+8, CKACTS+9, CKACTS+10, AUDIT+6~, AUDIT+10*, AUDIT+19
ARRAY	AUDIT~
CHGD	FIX+9~, FIX+10, FIX+13, FIX+14, FIX+16, FIX+17*, FIX+19, FIX+20
CSLT	CKACTS~, CKACTS+6, CKACTS+8, CKACTS+11, CKACTS+12
DA	FIX+9~, FIX+11, AUDIT+5~, AUDIT+38
DA(1	FIX+11*
DIE	FIX+9~, FIX+11*
DIR	GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DIR("?"	GETCSLT+5*
DIR("A"	GETCSLT+6, SELACT+6
DIR("S"	GETCSLT+7*
DIR(0	GETCSLT+4, NEWCSLT+6, SELACT+5*
DIROUT	GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DIRUT	GETCSLT+1~, NEWCSLT+5~, SELACT+2~, SELACT+8
DR	FIX+9~, FIX+11*
DTOUT	GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DUOUT	GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DUZ	AUDIT+39
GMRCA	AUDIT+5~, AUDIT+38*
GMRCAC	AUDIT~, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15, AUDIT+16, AUDIT+32, AUDIT+33
GMRCACT	FIX~, FIX+7, FIX+11, FIX+13, FIX+16, FIX+17, FIX+20
GMRCAD	AUDIT+5~, AUDIT+38*
GMRCCT	BLDLST+5~, BLDLST+7, BLDLST+13, BLDLST+14, BLDLST+15, BLDLST+16, BLDLST+17, BLDLST+18, BLDLST+19, BLDLST+20 , BLDLST+21, BLDLST+22, BLDLST+23, BLDLST+32, BLDLST+33, BLDLST+37
GMRCDA	BLDLST~, BLDLST+6, BLDLST+8, BLDLST+9, BLDLST+11, BLDLST+12, BLDLST+13, BLDLST+26, BLDLST+28, BLDLST+30 , BLDLST+31, BLDLST+34, FIX~, FIX+4, FIX+7, FIX+11, FIX+13, FIX+16, FIX+17, FIX+20 , AUDIT+5~, AUDIT+37*, AUDIT+38
GMRCIEN	EN+1~, EN+2, EN+3, EN+4, EN+7, NEWCSLT+2~, NEWCSLT+3, NEWCSLT+4, NEWCSLT+8, NEWCSLT+10
GMRCMT	AUDIT+5~, AUDIT+39
GMRCMT(	AUDIT+18, AUDIT+19, AUDIT+20, AUDIT+21, AUDIT+22, AUDIT+23, AUDIT+24, AUDIT+27, AUDIT+28, AUDIT+29 , AUDIT+30, AUDIT+33
GMRCO	SELACT+2~, SELACT+11*, SELACT+12, SELACT+13, AUDIT~, AUDIT+7, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15 , AUDIT+16, AUDIT+32, AUDIT+33
I	FIX+15~, FIX+16, FIX+17, AUDIT+5~, AUDIT+25, AUDIT+26, AUDIT+27, AUDIT+31, AUDIT+32, AUDIT+33
NUM	AUDIT+5~, AUDIT+17, AUDIT+18, AUDIT+19, AUDIT+20, AUDIT+21, AUDIT+22, AUDIT+23, AUDIT+24, AUDIT+27* , AUDIT+28, AUDIT+29, AUDIT+30, AUDIT+33, AUDIT+34
OK	CKACTS+4~, CKACTS+5, CKACTS+6, CKACTS+9, CKACTS+10, CKACTS+11, CKACTS+12*, CKACTS+13
PTNM	BLDLST+5~, BLDLST+8*, BLDLST+15
PTSSN	BLDLST+5~, BLDLST+9*, BLDLST+15
REMNUM	BLDLST+5~, BLDLST+12*, BLDLST+17
REMSIT	BLDLST+5~, BLDLST+10, BLDLST+11, BLDLST+17
TAB	BLDLST+5~, BLDLST+7*, BLDLST+21
U	BLDLST+9, BLDLST+11, BLDLST+12, BLDLST+28, CKACTS+8, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15, AUDIT+16
>> VALMBCK	SELACT+8, SELACT+14, INIT+3, EXIT+2
>> VALMBG	INIT+2*
>> VALMCNT	INIT+1*
>> VALMHDR(1	HDR+1*
X	GETCSLT+1~, NEWCSLT+5~, SELACT+2~, AUDIT+14~, AUDIT+15*, AUDIT+16
Y	GETCSLT+1~, GETCSLT+9, GETCSLT+10, NEWCSLT+5~, SELACT+2~, SELACT+9, SELACT+12

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCAD31

Information

Source Information

Call Graph

Call Graph Total: 11

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

Local Variables

Legend: