Routine: GMRCSRVS

Information

GMRCSRVS ;SLC/DCM,JFR - Add/Edit services in File 123.5. ;6/14/00 12:00

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	4	EN^DDIOL (,$$FIND1)^DIC (,UPDATE,WP)^DIE ^DIR
Consult Request Tracking	2	SVC^GMRC101H PTRCLN^GMRCU
Kernel	1	MSG^XQOR

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	GMRC CLONE PROSTHETICS GMRC SETUP REQUEST SERVICES SUB-SERVICE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;set up services entry point
ASK	;
END
READ(GMRC0,GMRCA,GMRCB,GMRCH,GMRCL,GMRCS)	;
NOED(SERV)	;
CLONPSAS	; clone a PROSTHETICS service ; choose service and text to append
GETAPP(GMRIEN)	;get text to append
INPUT(X,GMRCDA)	; INPUT TRANSFORM FOR THE SUB-SERVICE/SPECIALTY (#.01) FIELD ; OF THE SUB-SERVICE (#123.51) FILE WHICH IS A SUB-FILE OF THE ; SUB-SERVICE (#10) FIELD OF THE REQUEST SERVICES (#123.5) FILE.
INPUTQ
DUPCHK	;CHECK FOR CONSULT SERVICES APPEARING AS PART OF THE CONSULT SERVICE
PARSE(ARRAY)	;TAKE ARRAY VALUE AND PARSE INTO PIECES SHORTER THAN 70 CHARACTERS
PARSE1
YESNO(X,Y)	;YES/NO QUESTION/RESPONSE

External References

Name	Field # of Occurrence
EN^DDIOL	INPUTQ, DUPCHK+21, DUPCHK+26
^DIC	EN+5, EN+27
$$FIND1^DIC	GETAPP+13
^DIE	EN+11, EN+37
UPDATE^DIE	EN+34, CLONPSAS+19
WP^DIE	CLONPSAS+24
^DIR	READ+21, YESNO+8
SVC^GMRC101H	EN+19
PTRCLN^GMRCU	EN+20
MSG^XQOR	EN+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: READ+20
Function Call: WRITE	Prompt: !,"Failed to create new entry. Please try again" Line Location: CLONPSAS+20
Function Call: WRITE	Prompt: !!,GMRCNWNM," created",! Line Location: CLONPSAS+21
Function Call: WRITE	Prompt: !!,"The new Service is currently DISABLED. To activate this service for use in" Line Location: CLONPSAS+25
Function Call: WRITE	Prompt: !,"the Prosthetics interface, you MUST use the Setup Consult Services option" Line Location: CLONPSAS+26
Function Call: WRITE	Prompt: !,"and delete the DISABLED flag from the SERVICE USAGE field.",! Line Location: CLONPSAS+27
Function Call: WRITE	Prompt: !! Line Location: GETAPP+4
Function Call: WRITE	Prompt: !!,$C(7),"This service already exists, you'll have to try again!",! Line Location: GETAPP+14
Function Call: WRITE	Prompt: !,"The new service name will be:" Line Location: GETAPP+16
Function Call: WRITE	Prompt: !,?5,GMRCNWNM,! Line Location: GETAPP+17
Routine Call	DIC Line Location: EN+5 EN+27
Routine Call	DIC Line Location: GETAPP+13
Routine Call	DIE Line Location: EN+11 EN+37
Routine Call	DIE Line Location: EN+34 CLONPSAS+19
Routine Call	DIE Line Location: CLONPSAS+24
Routine Call	DIR Line Location: READ+21 YESNO+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123.5 - [#123.5]	Classic Fileman Calls, FIND1^DIC, WP^DIE
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	EN+7, EN+9, EN+13, EN+14, EN+16, EN+17, EN+18, EN+23, EN+24, EN+33 , EN+36, NOED+1, NOED+3, GETAPP+12, INPUT+22, DUPCHK+5, DUPCHK+11, DUPCHK+14, YESNO+3
^SC - [#44]	EN+36
^TMP("GMRC INPUT"	INPUT+13!, INPUT+15, INPUT+16, INPUT+17, INPUT+19, INPUT+20, INPUT+24, INPUT+25, INPUT+26, INPUT+27 , INPUT+28!

Label References

Name	Line Occurrences
$$GETAPP	CLONPSAS+10
$$READ	ASK+8, CLONPSAS+7, GETAPP+9, GETAPP+18
EN	ASK+9
END	EN+5, ASK+8
INPUTQ	INPUT+14
PARSE	DUPCHK+12, DUPCHK+14
PARSE1	PARSE1+4
YESNO	DUPCHK+24

Naked Globals

Name	Field # of Occurrence
^(0	EN+9, EN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	DUPCHK+2~, DUPCHK+11, DUPCHK+12, DUPCHK+14, DUPCHK+21, PARSE~, PARSE1, PARSE1+1, PARSE1+2, PARSE1+3* , PARSE1+4
ARRAY(	DUPCHK+9, DUPCHK+10, DUPCHK+15, DUPCHK+16, DUPCHK+17, DUPCHK+18, DUPCHK+19, DUPCHK+20, PARSE1, PARSE1+2
ARRAYSP	PARSE+1~, PARSE1+1*
CCCLINIC	EN+26~, EN+28*, EN+34
CLIN	EN+24~, EN+36*
CLINNAME	EN+24~, EN+36*, EN+37
COUNT	DUPCHK+2~, DUPCHK+5, DUPCHK+7, DUPCHK+8, DUPCHK+9, DUPCHK+10, DUPCHK+15, DUPCHK+16, DUPCHK+17, DUPCHK+18 , DUPCHK+19, DUPCHK+20, PARSE1, PARSE1+2
>> D0	INPUT+10
DA	EN+8, EN+13, EN+37~, END!
DA(1	EN+37*
DIC	EN+3~, EN+4, EN+10, EN+26~, END!
DIC("A"	EN+4*
DIC("S"	EN+26*
DIC(0	EN+4, EN+26
DIE	EN+10, EN+37~, END!
DIE("NO^"	EN+10*
>> DIQUIET	DUPCHK+22
DIR	READ+11~, YESNO+1~
DIR("?"	READ+17, READ+18, YESNO+6, YESNO+7
DIR("A"	READ+14, READ+15, YESNO+3*
DIR("B"	READ+16, YESNO+4
DIR("S"	READ+19*
DIR("T"	YESNO+5*
DIR(0	READ+13, YESNO+2
DIROUT	READ+11~, READ+22, YESNO+1~, YESNO+8
DIRUT	READ+11~, READ+22, YESNO+1~
DLAYGO	EN+3~, EN+4*, EN+26~
DR	EN+10, EN+37~, END!
DTOUT	EN+3~, EN+5!, EN+26~, EN+27!, END!, READ+11~, READ+22, YESNO+1~, YESNO+8
DUOUT	EN+3~, EN+5!, EN+26~, EN+27!, END!, READ+11~, READ+22, YESNO+1~, YESNO+8
FDA	EN+34~, CLONPSAS+3~
FDA(1	EN+34, CLONPSAS+12, CLONPSAS+13, CLONPSAS+14, CLONPSAS+15, CLONPSAS+16, CLONPSAS+17, CLONPSAS+18
FDAIEN	EN+34~*
FL	END!
GMRC	CLONPSAS+3~, CLONPSAS+9!, GETAPP+1~, GETAPP+11!
GMRC("A"	CLONPSAS+5, CLONPSAS+7, GETAPP+6, GETAPP+9
GMRC("S"	CLONPSAS+6*, CLONPSAS+7
GMRC(0	CLONPSAS+4, CLONPSAS+7, GETAPP+5, GETAPP+9
GMRC0	ASK+4~, ASK+5*, ASK+8, READ~, READ+12, READ+13
GMRCA	ASK+4~, ASK+5*, ASK+8, READ~, READ+14
GMRCA("A"	READ+15
GMRCACT	EN+2~, EN+9, EN+13, EN+15, EN+16, EN+17, EN+18, EN+19, END!
GMRCANS	END!
GMRCB	ASK+4~, ASK+5*, ASK+8, READ~, READ+16
GMRCCPY	CLONPSAS+3~, CLONPSAS+7*, CLONPSAS+8, CLONPSAS+10, CLONPSAS+23
GMRCDA	INPUT~, INPUT+9, INPUT+10*, INPUT+11, INPUT+14, INPUT+15, INPUT+17
GMRCERR	CLONPSAS+3~
GMRCH	ASK+4~, ASK+6*, ASK+8, READ~, READ+18
GMRCH("?"	READ+17
GMRCHILD	INPUT+12~, INPUT+20*, INPUT+22
GMRCHL	GETAPP+1~, GETAPP+9, GETAPP+11!
GMRCHL("?"	GETAPP+7, GETAPP+8
GMRCL	ASK+4~, ASK+7*, ASK+8, READ~, READ+20
GMRCLINE	READ+11~, READ+20*
GMRCMSG	EN+5!, EN+19, ASK+1!, END!
GMRCNEW	CLONPSAS+3~, CLONPSAS+20
GMRCNEW(1	CLONPSAS+22
GMRCNT	INPUT+12~, INPUT+18, INPUT+19, INPUT+20, PARSE+1~, PARSE1+1*, PARSE1+2, PARSE1+3
GMRCNWNM	CLONPSAS+2~, CLONPSAS+10, CLONPSAS+11, CLONPSAS+12, CLONPSAS+21, GETAPP+1~, GETAPP+2, GETAPP+9, GETAPP+10, GETAPP+12* , GETAPP+13, GETAPP+15, GETAPP+17, GETAPP+20, GETAPP+22
GMRCOLDN	EN+9*, EN+17, ASK+1!
GMRCOLDS	EN+2~, EN+8, EN+9, EN+18, ASK+1!
GMRCOLDU	EN+2~, EN+8, EN+9, EN+16, ASK+1!
GMRCON	DUPCHK+2~, DUPCHK+23, DUPCHK+25, YESNO+9
GMRCOSNM	EN+2~, EN+8*, EN+15
GMRCREA	END!
GMRCROOT	CLONPSAS+2~, CLONPSAS+23*, CLONPSAS+24
GMRCS	READ~, READ+19
GMRCSAFE	EN+2~, EN+7*
GMRCSIEN	CLONPSAS+2~, CLONPSAS+22*, CLONPSAS+24
GMRCSRVC	EN+2~, EN+8*, EN+13, EN+14, EN+16, EN+17, EN+18, EN+19, EN+23, EN+24 , EN+33, EN+34, EN+36, EN+37, END!
GMRCSRVS	ASK+1!
GMRCSSNM	EN+2~, EN+14*, EN+15, EN+19, ASK+1!, END!
GMRIEN	GETAPP~, GETAPP+12
GMRPARNT	INPUT+12~, INPUT+21, INPUT+22, INPUT+23, INPUT+24, INPUT+25, INPUT+27
GMRQ	INPUT+12~, INPUT+14, INPUT+18, INPUT+19, INPUT+22, INPUT+23*, INPUTQ
I	GETAPP+1~, GETAPP+3*
LAST	EN+24~*, EN+25, EN+35, EN+36, EN+37
NAME	NOED+2~, NOED+3*, NOED+4, NOED+5, NOED+6, NOED+7
ND	EN+9, EN+18, ASK+1!
OK	GETAPP+1~, GETAPP+18*, GETAPP+19, GETAPP+20
PARENT	DUPCHK+2~, DUPCHK+3, DUPCHK+5, DUPCHK+13, DUPCHK+14
QTFLG	GETAPP+1~, GETAPP+3, GETAPP+10, GETAPP+19, GETAPP+21*
REC	EN+33~*
REVCODE	END!
RLEVCODE	END!
SERV	NOED~, NOED+1, NOED+3
SUBREC	EN+33~*
U	READ+12, READ+22, NOED+3, GETAPP+12, GETAPP+19
X	EN+26~, EN+27!, EN+37~, READ+11~, INPUT~, INPUT+8!, INPUT+9, INPUT+11!, INPUT+14, INPUT+23 , INPUTQ!, DUPCHK+5, DUPCHK+11, DUPCHK+14, DUPCHK+24, DUPCHK+25!, YESNO~, YESNO+3
XY	EN+24~*
Y	EN+5, EN+7, EN+8, EN+9, EN+26~, EN+27!, EN+28, EN+37~, END!, READ+11~ , READ+23, DUPCHK+24, YESNO~, YESNO+9

Customize PDF page

Package: Consult Request Tracking