Routine: GMPLX1

Information

GMPLX1 ;SLC/MKB/KER/TC,PWC - Problem List Person Utilities ;04/11/2019

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 (,FILE)^DIE ^DIR
DRG Grouper	2	($$CODECS,$$CSI,$$SAB)^ICDEX $$ICDDATA^ICDXCODE
Kernel	1	$$REPEAT^XLFSTR

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: 22

Package	Total	Caller Graph
Problem List	17	GMPL GMPL PARAMETER EDIT GMPL VIEW RESTORE GMPL1 GMPLCODE GMPLHS GMPLMGR GMPLMGR1 GMPLMGR2 GMPLNTRT GMPLPRNT GMPLRPTR GMPLSAVE GMPLSPECAUTH GMPLUTL GMPLUTL3 GMPLX
Order Entry Results Reporting	2	ORQQPL1 ORQQPL2
Electronic Health Modernization	1	EHM-01414
Kernel	1	^ORD(101
Lexicon Utility	1	LEXTRAN3

Entry Points

Name	Comments	DBIA/ICR reference
PAT()	; Select patient -- returns DFN^NAME^BID
P1
VADPT(DFN)	; Get Service/Elig Flags	ICR #2743 Status: Active Usage: Private
SCS(PROB,SC)	; Get Exposure/Conditions Strings	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
CKDEAD(DATE)	; Dead patient ... continue? Returns 1 if YES, 0 otherwise
REQPROV()	; Returns requesting provider
NAME(USER)	; Formats user name into "Lastname,F"
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
SERV(X)	; Return service name abbreviation
CLINIC(LAST)	; Returns clinic from file #44
CLIN1	; Ask Clinic
CLINQ	; Quit Asking
VIEW(USER)	; Returns user's preferred view	ICR #2743 Status: Active Usage: Private
VOCAB()	; Select search vocabulary
PARAMS	; Edit pkg parameters in file #125.99
RS(X)	; Remove Slashes
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/10-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

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
FILE^DIE	PARAMS+12
^DIR	CKDEAD+5, REQPROV+5, CLIN1+1, VOCAB+10
UPDATE^GMPLUTL	SCTMAP+43
$$PTR^GMPLUTL4	SCS+16
$$EXTDT^GMPLX	CKDEAD+4
$$NOS^GMPLX	SCTMAP+35, SCTMAP+38, SCTMAP+42
$$CODECS^ICDEX	SCTMAP+11
$$CSI^ICDEX	SCTMAP+24
$$SAB^ICDEX	SCTMAP+11, SCTMAP+24
$$ICDDATA^ICDXCODE	SCTMAP+12, SCTMAP+25, SCTMAP+27
7^VADPT	VADPT+12, SCCOND+2
DEM^VADPT	P1+2
$$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+1
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+12
Function Call: WRITE	Prompt: "." Line Location: PARAMS+12
Routine Call	DIC Line Location: P1 CLIN1+3
Routine Call	DIE Line Location: PARAMS+3
Routine Call	DIE Line Location: PARAMS+12
Routine Call	DIR Line Location: CKDEAD+5 REQPROV+5 CLIN1+1 VOCAB+10

FileMan Files Accessed Via FileMan Db Call

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+17, SCTMAP+19, SCTMAP+22, SCTMAP+31, SCTMAP+32, SCTMAP+42, SCTMAP+45
^AUPNPROB("ASCT"	SCTMAP+10, SCTMAP+15
^DIC(49 - [#49]	SERVICE+4, SERVICE+5, SERV+2
^DPT - [#2]	P1+1, 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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(802	SCTMAP+22

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	PAT+1~, P1+3*
BLANK	PARAMS+1~*, PARAMS+11
CV	SCS+12~, SCS+15*, SCS+27
DA	SCS+12~, SCS+13, PARAMS+1~, PARAMS+3, PARAMS+7*, PARAMS+10, PARAMS+11
DA(1	PARAMS+5*, PARAMS+7, PARAMS+10, PARAMS+11
DATE	CKDEAD~, CKDEAD+4
DFN	PAT+1~, P1+2*, 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*
>> DILOCKTM	SCTMAP+19
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*
DT	VADPT+14, SCCOND+7, SCTMAP+11, SCTMAP+12, SCTMAP+24, SCTMAP+25, SCTMAP+27
DTOUT	REQPROV+1~, REQPROV+6, CLINIC+1~, CLIN1+1
DUOUT	REQPROV+1~, REQPROV+6, CLINIC+1~, 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*
GMPCSYS	SCTMAP+9~, SCTMAP+11*, SCTMAP+12, SCTMAP+21, SCTMAP+27
>> GMPCV	VADPT+14*
GMPDX	SCTMAP+16~, SCTMAP+22, SCTMAP+24, SCTMAP+25, SCTMAP+27, SCTMAP+40
GMPDXC	SCTMAP+16~, SCTMAP+25, SCTMAP+27, SCTMAP+28, SCTMAP+33*, SCTMAP+35
GMPDXCDT	SCTMAP+32~, SCTMAP+34*, SCTMAP+35
GMPDXCS	SCTMAP+16~, SCTMAP+24*, SCTMAP+25, SCTMAP+38, SCTMAP+42
GMPDXCSY	SCTMAP+32~, SCTMAP+33*, SCTMAP+35
GMPDXDT	SCTMAP+16~, SCTMAP+23*, SCTMAP+38, SCTMAP+42
>> GMPGULF	VADPT+13*
>> GMPHNC	VADPT+17*
GMPI	WRAP+1~, WRAP+3, WRAP+4, WRAP+7, WRAP+9, WRAP+10, WRAP+11, WRAP+12, SCTMAP+16~, SCTMAP+29 , SCTMAP+31, SCTMAP+32, SCTMAP+35, SCTMAP+38
GMPICD	SCTMAP~, SCTMAP+11, SCTMAP+12, SCTMAP+27, SCTMAP+36
GMPICDS	SCTMAP+16~, SCTMAP+21, SCTMAP+28, SCTMAP+35, SCTMAP+36, SCTMAP+38*, SCTMAP+40
GMPID	SCTMAP+9~, SCTMAP+13, SCTMAP+15, SCTMAP+17, SCTMAP+19, SCTMAP+22, SCTMAP+31, SCTMAP+32, SCTMAP+39, SCTMAP+42 , SCTMAP+45
>> GMPION	VADPT+13*
GMPJ	WRAP+1~, WRAP+12*
GMPL0	SCTMAP+16~, SCTMAP+22*, SCTMAP+23, SCTMAP+42
GMPL802	SCTMAP+16~, SCTMAP+22*, SCTMAP+23, SCTMAP+24
GMPL803	SCTMAP+32~*, SCTMAP+33, SCTMAP+34
GMPLERR	PARAMS+9~
GMPLFDA	PARAMS+9~
GMPLFDA(	PARAMS+10, PARAMS+11
>> GMPLUSER	REQPROV+2
>> GMPLVIEW("VIEW"	CLINIC+1
>> GMPMST	VADPT+16*
GMPORD	SCTMAP~, SCTMAP+14*, SCTMAP+26, SCTMAP+36, SCTMAP+42
>> GMPROV	REQPROV+5
>> GMPSC	VADPT+12*
GMPSCT	SCTMAP~, SCTMAP+10, SCTMAP+15
>> 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+10, PARAMS+11
PAT	PAT+1~, P1+2, P1+3, P1+4*, P1+5
PL	SCTMAP+16~, SCTMAP+43
PL("DIAGNOSIS"	SCTMAP+40*
PL("PROBLEM"	SCTMAP+39*
PL("PROVIDER"	SCTMAP+39*
PLY	SCTMAP+16~, SCTMAP+43
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+1, P1+3, P1+4, 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+23, SCTMAP+24 , SCTMAP+25, SCTMAP+33, SCTMAP+34, SCTMAP+35, SCTMAP+38, SCTMAP+40
USER	NAME~, NAME+2, SERVICE~, SERVICE+3, VIEW~, VIEW+1
VA	PAT+1~
VA("BID"	P1+3
VADM	PAT+1~
VADM(5	P1+3
VADM(6	P1+4
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+1, P1+2, 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