Routine: LEXQDRG

Package	Total	Call Graph
Lexicon Utility	4	($$GETPRE,$$HASPRE,$$PDX,$$PRO,$$SEC)^LEXQDRG2 ($$EFF,EN)^LEXQDRG3 (DCD,WRT)^LEXQDRG4 $$IMPDATE^LEXU
Kernel	3	HOME^%ZIS ($$DT,$$FMADD)^XLFDT $$UP^XLFSTR
VA FileMan	2	$$GET1^DIQ ^DIR
DRG Grouper	1	^ICDDRG

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main Entry Point
UC(X)	; Use Previously Saved Values
UCP(X)	; Use Previously Saved Values (Preprocess)
ASK(X)	; Ask for input parameters
AGE(X)	; What is the patient's age
AGEH	; What is the patient's age Help
SEX(X)	; What is the sex of the patient
SEXH	; What is the sex of the patient Help
DMS(X)	; Discharged against medical advice
TRS(X)	; Was the patient transferred to acute care
EXP(X)	; Did the patient die during episode of care
PAT(X)	; Patient
SXTMP	; Show ^XTMP DX/PR
EV(X)	; Check environment

External References

Name	Field # of Occurrence
HOME^%ZIS	EV+1
$$GET1^DIQ	EV+2
^DIR	UC+7, AGE+7, SEX+8, DMS+6, TRS+7, EXP+6, PAT+6
^ICDDRG	EN+14
$$GETPRE^LEXQDRG2	EN+8
$$HASPRE^LEXQDRG2	EN+8
$$PDX^LEXQDRG2	ASK+9
$$PRO^LEXQDRG2	ASK+10
$$SEC^LEXQDRG2	ASK+9
$$EFF^LEXQDRG3	ASK+2
EN^LEXQDRG3	EN+7
DCD^LEXQDRG4	EN+15
WRT^LEXQDRG4	EN+15
$$IMPDATE^LEXU	ASK+1
$$DT^XLFDT	UC+3, AGE+2, SEX+2, DMS+2, TRS+2, EXP+2, PAT+2, EV+1
$$FMADD^XLFDT	UC+3, AGE+2, SEX+2, DMS+2, TRS+2, EXP+2, PAT+2
$$UP^XLFSTR	UCP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," ",$P(LEXPTF,"^",2) Line Location: EN+6
Function Call: WRITE	Prompt: !!," ",$P(LEXOK,"^",2) Line Location: EN+9
Function Call: WRITE	Prompt: !!," Missing or invalid input variables" Line Location: EN+10
Function Call: WRITE	Prompt: !!," ",$P(LEXOK,"^",2) Line Location: EN+12
Function Call: WRITE	Prompt: !!," Missing or invalid input variables" Line Location: EN+13
Function Call: WRITE	Prompt: ! Line Location: ASK+9
Function Call: WRITE	Prompt: !," Enter the patient's age, 0-124." Line Location: AGEH+1
Function Call: WRITE	Prompt: !," Answer M for Male or F for Female." Line Location: SEXH+1
Function Call: WRITE	Prompt: ! Condition for execution: LEXCT=1 Line Location: SXTMP+8
Function Call: WRITE	Prompt: !,LEXNN,"=",@LEXNN Line Location: SXTMP+8
Function Call: WRITE	Prompt: ! Condition for execution: LEXCT=1 Line Location: SXTMP+13
Function Call: WRITE	Prompt: !,LEXNN,"=",@LEXNN Line Location: SXTMP+13
Function Call: WRITE	Prompt: ! Line Location: SXTMP+14
Function Call: WRITE	Prompt: !!,?5,"DUZ not defined" Line Location: EV+1
Function Call: WRITE	Prompt: !!,?5,"DUZ not valid" Line Location: EV+2
Routine Call	%ZIS Line Location: EV+1
Routine Call	DIR Line Location: UC+7 AGE+7 SEX+8 DMS+6 TRS+7 EXP+6 PAT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	UC+6, UC+13, UC+14, AGE+3, AGE+10, SEX+3, SEX+9, DMS+3, DMS+10, TRS+3 , TRS+10, EXP+3, EXP+10, PAT+3, PAT+10

Label References

Name	Line Occurrences
$$AGE	ASK+3
$$ASK	EN+11
$$DMS	ASK+7
$$EV	EN+4
$$EXP	ASK+5
$$PAT	EN+5
$$SEX	ASK+4
$$TRS	ASK+8
$$UC	EN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	EN+1~, ASK+3*
DIC	EN+1~
DIR	EN+1~, UC+1~, AGE+1~, SEX+1~, DMS+1~, TRS+1~, EXP+1~, PAT+1~
DIR("?"	AGE+5, SEX+6, DMS+5, TRS+5, EXP+5, PAT+5
DIR("??"	AGE+5, SEX+6
DIR("A"	UC+4, AGE+4, SEX+5, DMS+4, TRS+4, EXP+4, PAT+4*
DIR("B"	UC+6, AGE+3, SEX+4, DMS+3, TRS+3, EXP+3, PAT+3*
DIR("PRE"	UC+5, AGE+6, SEX+7, DMS+6, TRS+6, EXP+6, PAT+6*
DIR(0	UC+4, UCP+2, AGE+4, SEX+5, DMS+4, TRS+4, EXP+4, PAT+4*
DIROUT	EN+1~, UC+1~, UC+8, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+8, TRS+1~ , TRS+8, EXP+1~, EXP+8, PAT+1~, PAT+8
DIRUT	EN+1~, UC+1~, UC+8, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+8, TRS+1~ , TRS+8, EXP+1~, EXP+8, PAT+1~, PAT+8
DT	EV+1*
DTOUT	EN+1~, UC+1~, UC+7, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+7, TRS+1~ , TRS+7, EXP+1~, EXP+7, PAT+1~, PAT+7
DUOUT	EN+1~, UC+1~, UC+8, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+8, TRS+1~ , TRS+8, EXP+1~, EXP+8, PAT+1~, PAT+8
DUZ	UC+2, AGE+2, SEX+2, DMS+2, TRS+2, EXP+2, PAT+2, SXTMP+5, SXTMP+10, EV+1 , EV+2
ICDDATE	EN+1~, EN+15, ASK+2*, ASK+3, ASK+9, ASK+10
ICDDMS	EN+1~, ASK+6, ASK+7
ICDDRG	EN+1~, EN+14, EN+15
ICDDX	EN+1~, ASK+9!
ICDDX("B"	ASK+10!
ICDEXP	EN+1~, ASK+5*, ASK+6, ASK+7, ASK+8
ICDPOA	EN+1~
ICDPRC	EN+2~, ASK+10!
ICDPRC("B"	ASK+10!
ICDTRS	EN+2~, ASK+6, ASK+8
IOF	EN+15
LEX	EN+2~, EV+1~, EV+2*
LEXB	EN+2~, UC+1~, UC+6, AGE+1~, AGE+3, SEX+1~, SEX+3, SEX+4, DMS+1~, DMS+3* , TRS+1~, TRS+3, EXP+1~, EXP+3, PAT+1~, PAT+3*
LEXBG	EN+2~
LEXC	EN+2~
LEXCT	SXTMP+2~, SXTMP+8, SXTMP+13*
LEXCUR	EN+2~, EN+5, EN+8, EN+9, EN+10, EN+11
LEXDEV	EN+5, EV+1~
LEXENV	EN+2~, EN+4*
LEXF	EN+2~, UC+1~, UC+3, UC+13, AGE+1~, AGE+2, AGE+10, SEX+1~, SEX+2, SEX+9 , DMS+1~, DMS+2, DMS+10, TRS+1~, TRS+2, TRS+10, EXP+1~, EXP+2, EXP+10, PAT+1~ , PAT+2*, PAT+10
LEXGDAT	EN+2~, ASK+2*
LEXHAS	EN+2~, EN+8*
LEXI	EN+3~
LEXID	EN+3~, UC+1~, UC+2, UC+6, UC+13, UC+14, AGE+1~, AGE+2, AGE+3, AGE+10 , SEX+1~, SEX+2, SEX+3, SEX+9, DMS+1~, DMS+2, DMS+3, DMS+10, TRS+1~, TRS+2* , TRS+3, TRS+10, EXP+1~, EXP+2, EXP+3, EXP+10, PAT+1~, PAT+2, PAT+3, PAT+10 , SXTMP+4~, SXTMP+5, SXTMP+6, SXTMP+10~, SXTMP+11
LEXIEN	EN+3~
LEXIMP	ASK+1~*, ASK+3
LEXIN	SXTMP+2~, SXTMP+3, SXTMP+5, SXTMP+9, SXTMP+10
LEXIT	EN+3~
LEXLS	EN+3~
LEXN	EN+3~, UC+1~, UC+3, UC+13, AGE+1~, AGE+2, AGE+10, SEX+1~, SEX+2, SEX+9 , DMS+1~, DMS+2, DMS+10, TRS+1~, TRS+2, TRS+10, EXP+1~, EXP+2, EXP+10, PAT+1~ , PAT+2*, PAT+10
LEXNC	SXTMP+4~, SXTMP+6, SXTMP+7, SXTMP+10~, SXTMP+11, SXTMP+12
LEXNN	SXTMP+4~, SXTMP+6, SXTMP+7, SXTMP+8, SXTMP+10~, SXTMP+11, SXTMP+12, SXTMP+13
LEXOK	EN+3~, EN+5, EN+8, EN+9, EN+10, EN+11*, EN+12
LEXPTF	EN+3~, EN+5*, EN+6, EN+7
LEXS	EN+3~
LEXSYS	SXTMP+1~*, SXTMP+5, SXTMP+10
LEXV	EN+3~, UC+1~, UC+12*, UC+14
LEXX	EN+3~, AGE+1~, AGE+8, AGE+9
SEX	EN+3~, ASK+4*
U	EN+5, EV+1
X	EN+3~, UC~, UC+5, UC+8, UC+9, UC+12, UC+15, UCP~, UCP+1, UCP+2 , UCP+3, ASK~, ASK+2, ASK+3, ASK+4, ASK+5, ASK+7, ASK+8, ASK+9, ASK+10 , AGE~, AGE+7, AGE+8, AGE+9, AGE+11, AGE+12, SEX~, SEX+8, SEX+10, SEX+11 , DMS~, DMS+8, DMS+9, DMS+11, DMS+12, TRS~, TRS+8, TRS+9, TRS+11, TRS+12 , EXP~, EXP+8, EXP+9, EXP+11, EXP+12, PAT~, PAT+8, PAT+9, PAT+11, PAT+12 , EV~
Y	EN+3~, UC+1~, UC+10*, UC+11, UC+12, AGE+1~, AGE+8, AGE+9, AGE+10, AGE+11 , SEX+1~, SEX+9, SEX+10, DMS+1~, DMS+8, DMS+10, DMS+11, TRS+1~, TRS+8, TRS+10 , TRS+11, EXP+1~, EXP+8, EXP+10, EXP+11, PAT+1~, PAT+8, PAT+10, PAT+11

Customize PDF page

Package: Lexicon Utility

Routine: LEXQDRG

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: