Routine: GMRVOREQ

Package	Total	Call Graph
VA Fileman	8	^%DT HELP^%DTC %XY^%RCR IX^DIC (FILE,YN)^DICN ^DIE IX1^DIK ^DIR
General Medical Record - Vitals	1	ADS^GMRVORC0
Kernel	1	^%ZISC

Package	Total	Caller Graph
General Medical Record - Vitals	1	GMRVORQUICK

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;
DATE	; MAKE SURE THE DEFAULT ANSWERS ARE FM DATES
YNWAIT
SCH	;ADD SCHEDULE
ADDNEW	; add new entry
LOCK
SETUP	; ASK USERS WHETHER TO ASK QUESTION OR STUFF ANSWER
UPDATE	; update existing entry
ASKDEF	;
EN1	; ENTRY TO CREATE QUICK ORDER PROTOCOL
IT0	; item text
TEXT	;
ASK
ASK1
DEF

External References

Name	Field # of Occurrence
^%DT	DATE+2, DATE+3
HELP^%DTC	ASK1+1
%XY^%RCR	ASK+1, ADDNEW+7
^%ZISC	QUIT+2
IX^DIC	EN1+3
FILE^DICN	ADDNEW+7
YN^DICN	ASK, YNWAIT
^DIE	IT0+6
IX1^DIK	ADDNEW+7
^DIR	SETUP+9, IT0+2, ADDNEW+2
ADS^GMRVORC0	SCH+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"DO YOU WANT TO ADD "_X_" AS A QUICK ORDER PROTOCOL" Line Location: ASK+0
Function Call: WRITE	Prompt: !,$C(7),"SOMEONE ELSE IS ADDING QUICK ORDER PROTOCOLS,","WOULD YOU LIKE TO WAIT UNTIL THEY FINISH" Line Location: YNWAIT+0
Function Call: WRITE	Prompt: !!,"These are the Vital Measurement Quick Order Questions:",! Line Location: SETUP+7
Function Call: WRITE	Prompt: !,?3,Y_". ",$P($T(TEXT+Y),";",3) Line Location: SETUP+7
Function Call: WRITE	Prompt: !!,$C(7),"An Admin. Schedule is required for Vital Measurement Quick Order Protocols!" Line Location: SETUP+10
Function Call: WRITE	Prompt: !,"Choose one of the following:",!?5,"1. Ask "_GMRVQUES_"with a DEFAULT value",!,?5,"2. Automatically Enter "_GMRVQUES Line Location: ASKDEF+1
Function Call: READ	Timeout: DTIME Variable: GMRVX Line Location: ASKDEF+2
Function Call: WRITE	Prompt: !,"Select 1 or 2: " Line Location: ASKDEF+2
Function Call: WRITE	Prompt: !!?5,$C(7),"Enter '1' to ask question with default value.",!?11,"'2' to not ask the question and automatically enter the default.",! Line Location: ASK1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK1+1
Function Call: WRITE	Prompt: !,"Enter default value: "_$S(ZX'="":$P(ZX,"~",ZX["~"+1)_"// ",1:"") R X:DTIME I '(Z>2),X["?" Line Location: ASK1+1
Function Call: WRITE	Prompt: *7,!,"Answer must be 3-100 characters in length" Line Location: TEXT+4
Function Call: WRITE	Prompt: !!,"You changed the Administration Schedule to ",GMRVAS,!,"You should edit the ITEM TEXT.",! Line Location: UPDATE+4
Function Call: WRITE	Prompt: !!,$C(7),"A Quick Order Protocol with an ITEM TEXT of ",!,Y," already exists.",!,"Please edit the ITEM TEXT value to make it unique.",!! Line Location: IT0+4
Function Call: WRITE	Prompt: !!,$C(7),"A Quick Order Protocol with an ITEM TEXT of ",!,GMRVPROT("QUICK TEXT")," already exists.",!,"Please edit the ITEM TEXT value to make it unique.",!! Line Location: ADDNEW+5
Routine Call	DIE Line Location: IT0+6
Routine Call	DIR Line Location: SETUP+9 IT0+2 ADDNEW+2
Routine Call	DIC Line Location: EN1+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(120.57 - [#120.57]	LOCK, YNWAIT+1, DEF, DEF+3, ADDNEW+8*
^ORD(101 - [#101]	EN1+4, ASK, YNWAIT+1, UPDATE+1, IT0+1, IT0+4, ADDNEW+5

Label References

Name	Line Occurrences
ADDNEW	DEF+1, ADDNEW+5
ASK	ASK
ASK1	ASK1+2
ASKDEF	SETUP+16, ASK1
DEF	EN1+4
EN1	ASK
IT0	IT0+4
LOCK	YNWAIT
QUIT	EN1+3, ASK, YNWAIT, DEF, ADDNEW+7
SETUP	DEF, SETUP+10
UPDATE	DEF+2
YNWAIT	YNWAIT

Naked Globals

Name	Field # of Occurrence
^(0	EN1+4
^(20	EN1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK, YNWAIT, QUIT+1!
%DT	QUIT+1!, DATE+2, DATE+3, ASK1+1*
%DT(0	ASK1+1*
%X	ASK+1, QUIT+1!, ADDNEW+7
%Y	ASK+1, QUIT+1!, ADDNEW+7
D	EN1+1*, QUIT+1!
DA	QUIT+1!, IT0+6, ADDNEW+7
DD	ADDNEW+7!
DIC	EN1+1, QUIT+1!, ADDNEW+7
DIC("A"	EN1+3*
DIC("S"	EN1+2*
DIC(0	EN1+1, ADDNEW+7
DIE	QUIT+1!, IT0+6*
DIK	QUIT+1!, ADDNEW+7*
DIR	QUIT+1!, IT0+1!, ADDNEW+2!
DIR("?"	SETUP+9*
DIR("A"	SETUP+9*
DIR("B"	IT0+1, ADDNEW+2
DIR(0	SETUP+9, IT0+1, ADDNEW+2*
>> DIRUT	SETUP+9, IT0+3, ADDNEW+3
DLAYGO	QUIT+1!, ADDNEW+7*
DR	QUIT+1!, IT0+6*
DTIME	ASKDEF+2, ASK1+1
DUOUT	QUIT+1!
DUZ	ADDNEW+6
GMROUT	DEF, QUIT+1!, SETUP+9, SETUP+16, SETUP+17, ASKDEF+2, ASK1+2*
GMRV	QUIT+1!
GMRVANSR	QUIT+1!, SETUP+8, SETUP+16, SETUP+17, DATE+2, DATE+3, SCH+1*, UPDATE+3, ADDNEW+1
GMRVAS	QUIT+1!, SCH+1, UPDATE+3, UPDATE+4
GMRVCNT	SETUP+13, SETUP+14, SETUP+15!
GMRVDA	EN1+3*, ASK+1, QUIT+1!, UPDATE+1, IT0+1, IT0+6
GMRVDEF	EN1+1, EN1+4, QUIT+1!, SETUP+8, SCH+1, ASK1+1
GMRVDEL	QUIT+1!, SETUP+9, SETUP+16, ASK1+4
GMRVDF	QUIT+1!
>> GMRVDIRB	IT0+1*, IT0+4
GMRVLIST	SETUP+11!, SETUP+15!
GMRVLIST(	SETUP+12*, SETUP+14
GMRVOAS	QUIT+1!, UPDATE+1, UPDATE+2, UPDATE+4
GMRVOLD	EN1+1, EN1+4, DEF+1, DEF+2, QUIT+1!, SETUP+8, SETUP+10
GMRVORD	QUIT+1!
GMRVPNAM	YNWAIT+1*, QUIT+1!, ADDNEW+6, ADDNEW+7
GMRVPNUM	YNWAIT+1*, QUIT+1!, ADDNEW+8
GMRVPROT	EN1+3!, QUIT+1!
GMRVPROT("QUI	CK TEXT" , IT0+5, IT0+6, ADDNEW+1, ADDNEW+2, ADDNEW+4*, ADDNEW+5, ADDNEW+6
GMRVPROT(0	ADDNEW+1, ADDNEW+6*
GMRVPROT(20	ADDNEW+6*
GMRVPROT(99	ADDNEW+6*
GMRVQUES	QUIT+1!, ASKDEF+1*
GMRVSTRT	QUIT+1!, SETUP+11, SETUP+16, ASK1+1
GMRVX	QUIT+1!, SETUP+11, SETUP+16!, ASKDEF+2, ASK1
GMRVY	QUIT+1!, SETUP+11, SETUP+14, SETUP+16
OREA	QUIT+1!, SETUP+17*, ADDNEW+6
ORTX	QUIT+1!
TEXT	QUIT+1!
U	EN1+4, DATE+2, DATE+3, SCH+1, ASK1+1, IT0+1
X	ASK, QUIT+1!, SETUP+16, DATE+2, DATE+3, ASK1+1, ASK1+2, ASK1+3, ASK1+4, ADDNEW+7
Y	EN1+3, EN1+4, ASK, QUIT+1!, SETUP+7*, SETUP+10, SETUP+12, SETUP+16, DATE+2, DATE+3 , IT0+4, IT0+5, ADDNEW+4, ADDNEW+7
Z	QUIT+1!, SETUP+12, SETUP+13, SETUP+14, SETUP+16, DATE+2, DATE+3, ASK1+1
Z(0	SETUP+16*
ZX	QUIT+1!, ASK1+1*, ASK1+2, ASK1+3
ZY	QUIT+1!, SCH+1*

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVOREQ

Information

Source Information

Call Graph

Call Graph Total: 10

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:

Marked Items