Routine: GMPLX1

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Problem List	3	UPDATE^GMPLUTL $$PTR^GMPLUTL4 ($$EXTDT,$$NOS)^GMPLX
Registration	3	$$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI (7,DEM)^VADPT
VA Fileman	3	^DIC ^DIE ^DIR
DRG Grouper	1	($$CODEN,$$ICDDX)^ICDCODE
Kernel	1	$$REPEAT^XLFSTR

Package

Total

Call Graph

Problem List

UPDATE^GMPLUTL $$PTR^GMPLUTL4 ($$EXTDT,$$NOS)^GMPLX

Registration

$$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI (7,DEM)^VADPT

VA Fileman

^DIC ^DIE ^DIR

DRG Grouper

($$CODEN,$$ICDDX)^ICDCODE

Kernel

$$REPEAT^XLFSTR

Package	Total	Caller Graph
Problem List	15	GMPL GMPL PARAMETER EDIT GMPL1 GMPLCODE GMPLHS GMPLMGR GMPLMGR1 GMPLMGR2 GMPLNTRT GMPLPRNT GMPLRPTR GMPLSAVE GMPLUTL GMPLUTL3 GMPLX
Lexicon Utility	1	LEXTRAN3
Order Entry Results Reporting	1	ORQQPL1

Package

Total

Caller Graph

Problem List

GMPL GMPL PARAMETER EDIT GMPL1 GMPLCODE GMPLHS GMPLMGR GMPLMGR1 GMPLMGR2
GMPLNTRT GMPLPRNT GMPLRPTR GMPLSAVE GMPLUTL GMPLUTL3 GMPLX

Lexicon Utility

LEXTRAN3

Order Entry Results Reporting

ORQQPL1

Entry Points

Name	Comments	DBIA/ICR reference
CLIN1	; Ask Clinic
CLINQ	; Quit Asking
P1
SERVICE(USER,INCNPC)	; Returns User's service/section from file #49 ; USER - Integer # (User ID - DUZ) of person in question ; [INCNPC] - Optional Boolean Defaults to 0 (false)	ICR #2743 Status: Active Usage: Private
WRAP(TEXT,LENGTH)	; Breaks text string into substrings of length LENGTH
SCTMAP(GMPSCT,GMPICD,GMPORD)	; API for updating ICD Code when mapping changes ; GMPSCT = SNOMED CT Concept CODE (e.g., 53974002 for Kniest Dysplasia) ; GMPICD = ICD-9-CM CODE (as string literal, so that terminal 0's aren't truncated. ; e.g., "756.9" for Musculoskeletal Anom NEC/NOS) ; GMPORD = Order or sequence (integer) number (starting from 1) to accommodate SNOMED ; Concepts with multiple target ICD code mappings (e.g., for Diabetic ; Neuropathy (SNOMED CT 230572002 ICD-9-CM 250.60/355.9) the order for ; 250.60 would be 1, and the order for 355.9 would be 2	ICR #5782 Status: Pending Usage: Private
VOCAB()	; Select search vocabulary
VIEW(USER)	; Returns user's preferred view	ICR #2743 Status: Active Usage: Private
RS(X)	; Remove Slashes
VADPT(DFN)	; Get Service/Elig Flags	ICR #2743 Status: Active Usage: Private
SCCOND(DFN,SC)	; Get Service/Elig Flags (array) ; Returns local array .SC passed by value	ICR #2743 Status: Active Usage: Private
SERV(X)	; Return service name abbreviation
PARAMS	; Edit pkg parameters in file #125.99
CKDEAD(DATE)	; Dead patient ... continue? Returns 1 if YES, 0 otherwise
CLINIC(LAST)	; Returns clinic from file #44
SCS(PROB,SC)	; Get Exposure/Conditions Strings	ICR #2743 Status: Active Usage: Private
PAT()	; Select patient -- returns DFN^NAME^BID
NAME(USER)	; Formats user name into "Lastname,F"
REQPROV()	; Returns requesting provider

External References

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	VADPT+16, SCCOND+9
$$GETCUR^DGNTAPI	VADPT+17, SCCOND+10
^DIC	P1, CLIN1+3
^DIE	PARAMS+3, PARAMS+10
^DIR	CKDEAD+5, REQPROV+5, CLIN1+1, VOCAB+10
UPDATE^GMPLUTL	SCTMAP+38
$$PTR^GMPLUTL4	SCS+16
$$EXTDT^GMPLX	CKDEAD+4
$$NOS^GMPLX	SCTMAP+30, SCTMAP+33, SCTMAP+37
$$CODEN^ICDCODE	SCTMAP+11, SCTMAP+24
$$ICDDX^ICDCODE	SCTMAP+22
7^VADPT	VADPT+12, SCCOND+2
DEM^VADPT	P1+3
$$REPEAT^XLFSTR	VOCAB+6, VOCAB+7, VOCAB+8, VOCAB+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"ERROR -- Please check your Patient Files #2 and #9000001 for inconsistencies.",! Line Location: P1+2
Function Call: WRITE	Prompt: $C(7),!!,"DATE OF DEATH: "_$$EXTDT^GMPLX(DATE) Line Location: CKDEAD+4
Function Call: WRITE	Prompt: ! Line Location: REQPROV+5
Function Call: WRITE	Prompt: !?5,"Only clinics are allowed!",! Line Location: CLIN1+3
Function Call: WRITE	Prompt: "." Line Location: PARAMS+6
Function Call: WRITE	Prompt: "." Line Location: PARAMS+8
Function Call: WRITE	Prompt: "." Line Location: PARAMS+10
Routine Call	DIE Line Location: PARAMS+3 PARAMS+10
Routine Call	DIC Line Location: P1 CLIN1+3
Routine Call	DIR Line Location: CKDEAD+5 REQPROV+5 CLIN1+1 VOCAB+10

FileNo	Call Tags
^GMPL(125.99 - [#125.99]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	SCS+13, SCTMAP+16, SCTMAP+18, SCTMAP+21, SCTMAP+28, SCTMAP+29, SCTMAP+37, SCTMAP+40
^AUPNPROB("ASCT"	SCTMAP+10, SCTMAP+14
^DIC(49 - [#49]	SERVICE+4, SERVICE+5, SERV+2
^DPT - [#2]	VADPT+13, SCCOND+6
^GMPL(125.99 - [#125.99]	PARAMS+2, PARAMS+4
^ORD(101 - [#101]	PARAMS+5, PARAMS+6, PARAMS+7
^VA(200 - [#200]	REQPROV+2, NAME+2, SERVICE+3, VIEW+1

Name	Line Occurrences
$$RS	SCS+31
CLIN1	CLIN1+3
CLINQ	CLINIC+1, CLIN1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBREV	SERV+1~, SERV+3*, SERV+4
AO	SCS+12~, SCS+13*, SCS+17
>> AUPNSEX	P1+4*
BLANK	PARAMS+1~*
CV	SCS+12~, SCS+15*, SCS+27
DA	SCS+12~, SCS+13, PARAMS+1~, PARAMS+3, PARAMS+7*
DA(1	PARAMS+5*, PARAMS+7, PARAMS+9
DATE	CKDEAD~, CKDEAD+4
DFN	PAT+1~, P1+3*, VADPT~, VADPT+13, VADPT+16, VADPT+17, SCCOND~, SCCOND+3, SCCOND+6, SCCOND+9 , SCCOND+10
DIC	PAT+1~, P1, CLINIC+1~, CLIN1+2
DIC("S"	CLIN1+2*
DIC(0	P1, CLIN1+2
DIE	PARAMS+1~, PARAMS+3, PARAMS+9
>> DILOCKTM	SCTMAP+18
DIR	CKDEAD+1~, REQPROV+1~, CLINIC+1~, VOCAB+1~
DIR("?"	CKDEAD+3, REQPROV+3, CLINIC+3, VOCAB+3, VOCAB+4, VOCAB+5, VOCAB+6, VOCAB+7, VOCAB+8, VOCAB+9
DIR("??"	CLINIC+4*
DIR("A"	CKDEAD+2, REQPROV+4, CLINIC+2, VOCAB+2
DIR("B"	CKDEAD+1, REQPROV+5, CLINIC+2, VOCAB+2
DIR(0	CKDEAD+1, REQPROV+4, CLINIC+2, VOCAB+1
DR	PARAMS+1~, PARAMS+3, PARAMS+8
DT	VADPT+14, SCCOND+7
DTOUT	REQPROV+1~, REQPROV+6, CLIN1+1
DUOUT	REQPROV+1~, REQPROV+6, CLIN1+1
DUZ	REQPROV+2
EC	SCS+12~, SCS+14*, SCS+21
FIRST	NAME+1~, NAME+3, NAME+4, NAME+5
FL	SCS+12~
>> GMPAGTOR	VADPT+12*
>> GMPCV	VADPT+14*
GMPDX	SCTMAP+15~, SCTMAP+21, SCTMAP+22, SCTMAP+24, SCTMAP+35
GMPDXC	SCTMAP+15~, SCTMAP+22, SCTMAP+24, SCTMAP+25, SCTMAP+29*, SCTMAP+30
>> GMPGULF	VADPT+13*
>> GMPHNC	VADPT+17*
GMPI	WRAP+1~, WRAP+3, WRAP+4, WRAP+7, WRAP+9, WRAP+10, WRAP+11, WRAP+12, SCTMAP+15~, SCTMAP+26 , SCTMAP+28, SCTMAP+29, SCTMAP+30, SCTMAP+33
GMPICD	SCTMAP~, SCTMAP+11, SCTMAP+24, SCTMAP+31
GMPICDS	SCTMAP+15~, SCTMAP+20, SCTMAP+25, SCTMAP+30, SCTMAP+31, SCTMAP+33*, SCTMAP+35
GMPID	SCTMAP+9~, SCTMAP+12, SCTMAP+14, SCTMAP+16, SCTMAP+18, SCTMAP+21, SCTMAP+28, SCTMAP+29, SCTMAP+34, SCTMAP+37 , SCTMAP+40
>> GMPION	VADPT+13*
GMPJ	WRAP+1~, WRAP+12*
>> GMPLUSER	REQPROV+2
>> GMPLVIEW("VIEW"	CLINIC+1
>> GMPMST	VADPT+16*
GMPORD	SCTMAP~, SCTMAP+13*, SCTMAP+23, SCTMAP+31, SCTMAP+37
>> GMPROV	REQPROV+5
>> GMPSC	VADPT+12*
GMPSCT	SCTMAP~, SCTMAP+10, SCTMAP+14
>> GMPSHD	VADPT+15*
GMPX	WRAP+1~, WRAP+4*, WRAP+5, WRAP+6
GMPX(	WRAP+10, WRAP+11*, WRAP+12
GMPX(1	WRAP+8*
GMPX1	WRAP+1~, WRAP+6*, WRAP+7
GMPX2	WRAP+1~, WRAP+6*, WRAP+7
GMPY	WRAP+1~, WRAP+10, WRAP+11
HNC	VADPT+12~, SCS+12~, SCS+14*, SCS+23, SCCOND+2~
HNC("STAT"	VADPT+17, SCCOND+10
INCNPC	SERVICE~, SERVICE+3*, SERVICE+4
IR	SCS+12~, SCS+13*, SCS+19
LAST	NAME+1~, NAME+3*, NAME+5, CLINIC~, CLINIC+2
LENGTH	WRAP~, WRAP+5, WRAP+6, WRAP+10
LINE	WRAP+1~, WRAP+8, WRAP+10, WRAP+11
MST	SCS+12~, SCS+14*, SCS+25
NAME	NAME+1~, NAME+2*, NAME+3
ND	SCS+12~, SCS+13*, SCS+14, SCS+15
NODE	SERV+1~, SERV+2*, SERV+3
OLDVERFY	PARAMS+1~, PARAMS+2*, PARAMS+4, PARAMS+8
PAT	PAT+1~, P1+3, P1+4, P1+5*, P1+6
PL	SCTMAP+15~, SCTMAP+38
PL("DIAGNOSIS"	SCTMAP+35*
PL("PROBLEM"	SCTMAP+34*
PL("PROVIDER"	SCTMAP+34*
PLY	SCTMAP+15~, SCTMAP+38
PROB	SCS~, SCS+12
PTR	SCS+12~, SCS+16*, SCS+29
SC	SCS~, SCCOND~
SC("AO"	SCCOND+4*
SC("CV"	SCCOND+7*
SC("DFN"	SCCOND+3*
SC("HNC"	SCCOND+10*
SC("IR"	SCCOND+5*
SC("MST"	SCCOND+9*
SC("PG"	SCCOND+6*
SC("SC"	SCCOND+3*
SC("SHD"	SCCOND+8*
SC(1	SCS+18, SCS+20, SCS+22, SCS+24, SCS+26, SCS+28, SCS+30, SCS+31
SC(2	SCS+18, SCS+20, SCS+22, SCS+24, SCS+26, SCS+28, SCS+30, SCS+31
SC(3	SCS+18, SCS+20, SCS+22, SCS+24, SCS+26, SCS+28, SCS+30*
SHD	SCS+12~, SCS+15*, SCS+30
TEXT	WRAP~, WRAP+2, WRAP+3, WRAP+4, WRAP+7, WRAP+8, WRAP+9, WRAP+10, WRAP+11, WRAP+12 , WRAP+13
U	P1+4, P1+5, VADPT+13, VADPT+14, SCCOND+6, SCCOND+7, REQPROV+2, REQPROV+5, NAME+2, SERVICE+3 , SERVICE+4, SERVICE+5, SERV+3, CLINIC+2, VIEW+1, PARAMS+2, PARAMS+4, SCTMAP+22, SCTMAP+29, SCTMAP+30 , SCTMAP+33, SCTMAP+35
USER	NAME~, NAME+2, SERVICE~, SERVICE+3, VIEW~, VIEW+1
VA	PAT+1~
VA("BID"	P1+4
VADM	PAT+1~
VADM(5	P1+4
VADM(6	P1+5
VAEL	VADPT+12~, SCCOND+2~
VAEL(3	VADPT+12, SCCOND+3
VAERR	VADPT+12~, SCCOND+2~
VASV	VADPT+12~, SCCOND+2~
VASV(10	VADPT+14, SCCOND+7
VASV(14	VADPT+15, SCCOND+8
VASV(2	VADPT+12, SCCOND+4
VASV(3	VADPT+13, SCCOND+5
VERFY	PARAMS+1~, PARAMS+6*, PARAMS+7
X	PAT+1~, VADPT+12~, VADPT+13, VADPT+16, VADPT+17, SCCOND+2~, SCCOND+6, SCCOND+9, SCCOND+10, CKDEAD+1~ , REQPROV+1~, SERVICE+3~, SERVICE+4, SERVICE+5, SERVICE+6, SERV~, SERV+2, CLINIC+1~, VIEW+1~, VIEW+2 , VOCAB+1~, VOCAB+10, VOCAB+11, RS~, RS+1, RS+2*, RS+3
Y	PAT+1~, P1, P1+3, CKDEAD+1~, CKDEAD+6, REQPROV+1~, REQPROV+2, REQPROV+6, REQPROV+7, CLINIC+1~ , CLIN1+1*, CLIN1+3, CLINQ+1, VOCAB+1~, VOCAB+10

Customize PDF page

Package: Problem List

Routine: GMPLX1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: