Routine: GMRC101C

Information

GMRC101C ;SLC/DLT,DCM - Create Protocol entries for OE/RR ADD orders screens (Continued) ;5/21/98 13:53

Source Information

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Consult Request Tracking	5	EN^GMRC101H EXAC^GMRCADC GMRCR^GMRCMU EN3^GMRCPREF $$PACKAGE^GMRCR
VA Fileman	3	^DIC ^DIE ^DIR
Kernel	1	MSG^XQOR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Consult Request Tracking	1	GMRC101

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Loop logic to process consult types/procedure request
ASK1	;Ask for Relate Service
DEFAULT	;default variable setting depending on protocol type
SETUP	;Get the Itemtext and service name
ITEMTXT	;Ask for item text
ACCESS	;Check for Protocol Item with GMRC101 security restricting name change of the Protocols .01 field.
EN1	;get a GMRCT or GMRCR prefixed protocol
ADD	;Enter a new protocol
BUILD	;Logic to update file 101
ASK	;Ask for Item Text and Related Service
END	;Clean-up logic

External References

Name	Field # of Occurrence
^DIC	EN1+1, ACCESS+3
^DIE	BUILD+4, BUILD+9, BUILD+12
^DIR	EN+1, ASK1+1, ITEMTXT+3, ITEMTXT+10, BUILD+8, BUILD+11
EN^GMRC101H	BUILD+15
EXAC^GMRCADC	DEFAULT+2
GMRCR^GMRCMU	BUILD+19
EN3^GMRCPREF	BUILD+2
$$PACKAGE^GMRCR	DEFAULT+2
MSG^XQOR	BUILD+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select a 'GMRCT ' prefixed protocol",! Line Location: EN1+2
Function Call: WRITE	Prompt: !,"Select a 'GMRCR ' prefixed protocol",! Line Location: EN1+3
Function Call: WRITE	Prompt: ! Line Location: EN1+6
Function Call: WRITE	Prompt: !,$C(7),"You Cannot Delete This Entry, ONLY CHANGE IT!",! Line Location: ASK1+1
Function Call: WRITE	Prompt: !,$C(7),$P(^(0),"^",1)_" Has Been Disabled.",!,"You Cannot Add A Procedure To A Disabled Service!",! Line Location: ASK1+7
Function Call: WRITE	Prompt: !!," Each "_GMRCDESC_" will have a related consult service associated with it.",!," If no service is identified the service will be prompted for during the",!," add orders process.",! Line Location: ASK1+8
Function Call: WRITE	Prompt: !! Line Location: ITEMTXT+2
Function Call: WRITE	Prompt: !!,"The ITEM TEXT should begin with an alphabetic character. Please re-enter." Line Location: ITEMTXT+4
Function Call: WRITE	Prompt: !,"** "_Y_" is already being used by " Line Location: ITEMTXT+7
Function Call: WRITE	Prompt: ?25," "_TXT Line Location: ITEMTXT+8
Function Call: WRITE	Prompt: !,"This is a duplicate name. Please re-enter a unique item text." Line Location: ITEMTXT+9
Function Call: WRITE	Prompt: !,"The Protocol name "_$P(^ORD(101,ORDA,0),"^",1),!," WILL NOT be changed to match ITEM TEXT due to Package Code dependencies!",! Line Location: ITEMTXT+13
Function Call: WRITE	Prompt: !!,$C(7),GMRCPRO_" Was Not Added To The Protocol Or Orderable Item File!",! Line Location: BUILD+3
Routine Call	DIE Line Location: BUILD+4 BUILD+9 BUILD+12
Routine Call	DIC Line Location: EN1+1 ACCESS+3
Routine Call	DIR Line Location: EN+1 ASK1+1 ITEMTXT+3 ITEMTXT+10 BUILD+8 BUILD+11

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	ASK1+7, SETUP+3
^ORD(101 - [#101]	ITEMTXT+6, ITEMTXT+8, ITEMTXT+13, SETUP+2, SETUP+3, ACCESS+4, BUILD+5, BUILD+8, BUILD+11, BUILD+18

Label References

Name	Line Occurrences
ACCESS	ITEMTXT+13
ADD	EN+4
ASK	EN1+4, ADD+1
ASK1	ASK1+1, ASK1+7
BUILD	EN1+6, ADD+3
DEFAULT	EN1+4, ADD+1
EN	EN1+6
EN1	EN+3, EN1+2, EN1+3
END	EN+2, EN1+1, EN1+4, EN1+6, ADD+1, ADD+3, ASK1+4, BUILD+7
ITEMTXT	ASK+1, ITEMTXT+4, ITEMTXT+6
SETUP	EN1+4

Name	Field # of Occurrence
^(0	ASK1+7, BUILD+8, BUILD+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ASK1+1!, ITEMTXT+1!, BUILD+3*, BUILD+5, BUILD+8, BUILD+11, BUILD+15
DIC	EN1+1!, ACCESS+2~, ACCESS+3, BUILD+20!
DIC("A"	EN1+1*
DIC("S"	EN1+1*
DIC(0	EN1+1, ACCESS+3
DIE	BUILD+4*, BUILD+20!
DIR	EN+1!, ASK1+1!, ITEMTXT+1!, ITEMTXT+3!, ITEMTXT+10!, BUILD+7!, BUILD+8!, BUILD+11!, BUILD+20!
DIR("A"	EN+1, ASK1+1, ITEMTXT+2, ITEMTXT+10, BUILD+8, BUILD+11
DIR("B"	EN+1, ASK+2, ASK1+2, ITEMTXT+1, ITEMTXT+10*
DIR(0	EN+1, ASK1+1, ITEMTXT+3, ITEMTXT+10, BUILD+8, BUILD+11
DIROUT	EN+1, ASK1+4, ITEMTXT+3!, BUILD+7, END+3!
DR	BUILD+4, BUILD+9, BUILD+12*, BUILD+20!
DTOUT	EN+1, ASK1+4, ITEMTXT+3!, BUILD+7, END+3!
DUOUT	EN+1, ASK1+4, ITEMTXT+3!, BUILD+7, END+3!
GMRC101	ITEMTXT+13, ITEMTXT+14, ACCESS+4*, END+1!
>> GMRCACT	EN1+5, ADD+2, BUILD+15
>> GMRCDEF	DEFAULT+3
>> GMRCDESC	EN+1, ASK1+8, ITEMTXT+10
>> GMRCEND	DEFAULT+2, EN+1, EN+2, EN+4, EN1+1, EN1+4, ADD+1, ASK+1, ASK1+4, ASK1+6 , ITEMTXT+3, BUILD+7
GMRCMSG	DEFAULT+2*, BUILD+16, END+1!
>> GMRCPFX	DEFAULT+1, EN1+1, EN1+2, EN1+3, ITEMTXT+10, ITEMTXT+13, ITEMTXT+14, BUILD+15
GMRCPRO	BUILD+1*, BUILD+3, BUILD+17, BUILD+18, END+1!
GMRCPROI	BUILD+18*, END+1!
GMRCSS	ASK+2, ASK1+2, SETUP+3, BUILD+1, END+1!
GMRCSV	BUILD+1*, END+1!
GMRCSYN	BUILD+15, END+1!
GMRCSYN(	BUILD+5*
GMRCTRLC	EN+4, EN1+5, ADD+2, BUILD+7, BUILD+9, BUILD+15, END+1!
GMRCTXT	ITEMTXT+5, ITEMTXT+6, ITEMTXT+8, BUILD+1, BUILD+15, END+1!
GMRCY	ITEMTXT+7*, ITEMTXT+10, ITEMTXT+11, END+1!
I	BUILD+5*, END+1!
ITEMTXT	ADD+1!, ITEMTXT+1, ITEMTXT+5, SETUP+2*, END+1!
ND	BUILD+5*, END+1!
ORDA	EN1+4*, ADD+1!, ITEMTXT+1, ITEMTXT+2, ITEMTXT+5, ITEMTXT+10, ITEMTXT+13, SETUP+1, SETUP+2, SETUP+3 , ACCESS+1, ACCESS+4, BUILD+3, BUILD+20!, END+2!
ORDANM	EN1+4, ADD+1!, ITEMTXT+14, BUILD+1*, BUILD+20!, END+2!
ORDEF	DEFAULT+3*, BUILD+20!, END+2!
OREA	DEFAULT+1*, BUILD+20!, END+2!
ORFL	DEFAULT+3, ASK1+5, ASK1+8, BUILD+1, BUILD+20!, END+2!
ORPKG	DEFAULT+2*, BUILD+20!, END+2!
ORTXT	ITEMTXT+5, ITEMTXT+14, BUILD+1, BUILD+20!, END+2!
REJECT	ITEMTXT+3!, ITEMTXT+6!, ITEMTXT+8, ITEMTXT+9, ITEMTXT+10
TXT	ITEMTXT+8*, END+3!
X	ASK1+1!, ACCESS+2~, ACCESS+3*
Y	EN+3, EN1+1, EN1+4, ASK1+4, ASK1+5, ASK1+7, ITEMTXT+3, ITEMTXT+4, ITEMTXT+5, ITEMTXT+6 , ITEMTXT+7, ITEMTXT+8, ITEMTXT+10, ITEMTXT+11*, ITEMTXT+13, ITEMTXT+14, ACCESS+2~, ACCESS+3, ACCESS+4, BUILD+8 , BUILD+11, END+3!
Y(0	EN1+2, EN1+3, EN1+4

Customize PDF page

Package: Consult Request Tracking

Routine: GMRC101C

Information

Source Information

Call Graph

Call Graph Total: 9

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: