Routine: GMPLX

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE IX1^DIK ^DIR
Kernel	3	$$FMTE^XLFDT $$UP^XLFSTR EN1^XQOR
Lexicon Utility	3	(INFO,LOOK)^LEXA CONFIG^LEXSET $$GETASSN^LEXTRAN1
DRG Grouper	2	$$STATCHK^ICDAPIU ($$CODEN,$$ICDDX)^ICDCODE
Problem List	1	($$SERVICE,SCS)^GMPLX1

Package	Total	Caller Graph
Problem List	34	GMPL GMPL1 GMPL31P GMPLBLD GMPLBLD1 GMPLBLD2 GMPLBLD3 GMPLBLDC GMPLCODE GMPLDIS1 GMPLDISP GMPLDUP2 GMPLEDIT GMPLEDT1 GMPLEDT2 GMPLEDT3 GMPLEDT4 GMPLENFM GMPLHIST GMPLHSPL GMPLMENU GMPLMGR GMPLMGR1 GMPLMGR2 GMPLNTFT GMPLNTRT GMPLPRNT GMPLRPTR GMPLRPTS GMPLSAVE GMPLUTL GMPLUTL1 GMPLUTL2 GMPLX1
Order Entry Results Reporting	5	ORCHTAB2 ORCPROB ORQQPL1 ORQQPL2 ORQQPL3
Text Integration Utility	1	TIURP

Package

Total

Caller Graph

Problem List

GMPL  GMPL1  GMPL31P  GMPLBLD  GMPLBLD1  GMPLBLD2  GMPLBLD3  GMPLBLDC
GMPLCODE  GMPLDIS1  GMPLDISP  GMPLDUP2  GMPLEDIT  GMPLEDT1  GMPLEDT2  GMPLEDT3
GMPLEDT4  GMPLENFM  GMPLHIST  GMPLHSPL  GMPLMENU  GMPLMGR  GMPLMGR1  GMPLMGR2
GMPLNTFT  GMPLNTRT  GMPLPRNT  GMPLRPTR  GMPLRPTS  GMPLSAVE  GMPLUTL  GMPLUTL1
GMPLUTL2  GMPLX1

Order Entry Results Reporting

ORCHTAB2 ORCPROB ORQQPL1 ORQQPL2 ORQQPL3

Text Integration Utility

TIURP

Entry Points

Name	Comments	DBIA/ICR reference
LOCKED()	; Return Lock Msg
KILL	; Clean-Up Vars
PAD(GMPX,GMPL)	; Pads string to specified length
SURE()	; Ask to Delete ; Returns 1 if YES, else 0
SEL1(HELP)	; Select 1 Problem
DUPL(DFN,TERM,TEXT)	; Check for Duplicates	ICR #2742 Status: Active Usage: Private
EXP2CODE(X,GMPSRC,GMPCODE)	; Resolve SOURCE and CODE from Expression
SEARCH(X,Y,PROMPT,UNRES,VIEW)	; Search Lexicon for Problem X
WR0	; Loop for Remaining Text
PT(X,C)	; Problem Text (only)
NOS()	; Return PTR ^ 799.9 ICD code
EP(X)	; Exposures
PROBTEXT(IFN)	; Returns Display Text	ICR #2742 Status: Active Usage: Private
GETDXX
PROVNARR(X,CL)	; Returns IFN ^ Text of Narrative (#9999999.27)
DTMOD(DA)	; Update Date Modified	ICR #2742 Status: Active Usage: Private
MSG()	; ListMan Msg Bar	ICR #3236 Status: Active Usage: Private
DUPLX
CODESTS(PROB,ADATE)	;check status of ICD ; Input: ; PROB = pointer to the PROBLEM (#9000011) file ; ADATE = FM date on which to check the status (opt.)	ICR #2742 Status: Active Usage: Private
DUPLOK(IFN)	; Ask if Dup OK
CS(X)	; Problem Codes
SEL(HELP)	; Select List of Problems
GETDX(CODE,CODESYS)	; Get ICD associated with SCT or VHAT Code
WRQ	; Quit Wrap
PROBTX
PROBNARR(IFN)	; Returns Provider Narrative
AUDIT(DATA,OLD)	; Make Entry in Audit File ; DATA = string for 0-node ; OLD = string for 1-node ; = 0-node from reform/react problem	ICR #2742 Status: Active Usage: Private
EXTDT(DATE)	; Format Date as MM/DD/YY
TRIM(X)	; Trim Spaces and "*"
WRAP(PROB,MAX,TEXT)	; Splits Text into TEXT array

External References

Name	Field # of Occurrence
^DIC	SEARCH+4
FILE^DICN	PROVNARR+4, AUDIT+6
^DIE	DTMOD+3
IX1^DIK	AUDIT+7
^DIR	SEL+7, SEL1+7, DUPLOK+10, SURE+4
$$SERVICE^GMPLX1	DUPLOK+6
SCS^GMPLX1	EP+1
$$STATCHK^ICDAPIU	CODESTS+12
$$CODEN^ICDCODE	NOS+1
$$ICDDX^ICDCODE	PROBTEXT+4, DUPL+21, CODESTS+12
INFO^LEXA	EXP2CODE+2
LOOK^LEXA	DUPL+14
CONFIG^LEXSET	SEARCH+1
$$GETASSN^LEXTRAN1	GETDX+2, GETDX+3
$$FMTE^XLFDT	DUPLOK+9
$$UP^XLFSTR	DUPL+1, DUPL+16, DUPL+19
EN1^XQOR	DTMOD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,">>> "_$$PROBTEXT(IFN),!?5,"is already an " Line Location: DUPLOK+4
Function Call: WRITE	Prompt: $S($P(GMPL0,U,12)="I":"IN",1:"")_"ACTIVE problem on this patient's list!",! Line Location: DUPLOK+5
Function Call: WRITE	Prompt: !?8,"Onset: " Line Location: DUPLOK+7
Function Call: WRITE	Prompt: !?5,"Resolved: " Line Location: DUPLOK+8
Function Call: WRITE	Prompt: $S(DATE>0:$$FMTE^XLFDT(DATE),1:"unspecified"),! Line Location: DUPLOK+9
Function Call: WRITE	Prompt: ! Line Location: DUPLOK+10
Routine Call	DIE Line Location: DTMOD+3
Routine Call	DIC Line Location: SEARCH+4
Routine Call	DIR Line Location: SEL+7 SEL1+7 DUPLOK+10 SURE+4

FileNo	Call Tags
^GMPL(125.8 - [#125.8]	Classic Fileman Calls
^LEX(757.01 - [#757.01]	Classic Fileman Calls
^AUPNPROB - [#9000011]	Classic Fileman Calls
^AUTNPOV - [#9999999.27]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PROBTEXT+2, PROBTEXT+5, PROBNARR+1, DUPL+5, DUPL+29, DUPL+30, DUPL+32, DUPL+36, DUPLOK+1, DTMOD+6 , CODESTS+10, CODESTS+11
^AUPNPROB("AC"	DUPL+2, DUPL+3
^AUTNPOV - [#9999999.27]	PROVNARR+3, PROVNARR+4*, PROBTEXT+5, PROBNARR+1, DUPL+18
^AUTNPOV("B"	PROVNARR+3
^GMPL(125.8 - [#125.8]	AUDIT+7, AUDIT+8
^ORD(101 - [#101]	DTMOD+7
^TMP("GMPL"	SEL+1, SEL1+1
^VA(200 - [#200]	DUPLOK+6

Name	Line Occurrences
$$CS	PROBTEXT+6
$$EP	PROBTEXT+6
$$GETDX	SEARCH+9, DUPL+22, DUPL+25, DUPL+26, DUPL+27
$$PROBTEXT	DUPLOK+4
$$PT	PROBTEXT+6
$$TRIM	PT+2
DUPLX	DUPL+2
EXP2CODE	SEARCH+8, DUPL+6
GETDXX	GETDX+4
PROBTX	PROBTEXT+3
WR0	WR0+3
WRQ	WRAP+1

Name	Field # of Occurrence
^(1	DUPL+5, DUPLOK+1
^(800	PROBTEXT+2, DUPL+5
^(803	DUPL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	CODESTS~, CODESTS+9*
C	PT~, PT+1
CL	PROVNARR~, PROVNARR+4
CODE	SEARCH+6~, SEARCH+8, SEARCH+9, GETDX~, GETDX+2, GETDX+3
CODESYS	GETDX~, GETDX+2
DA	PROVNARR+1~, PROVNARR+2, PROVNARR+3, PROVNARR+4!, DUPL+1~, DUPL+3, DUPL+10, DUPL+12, DUPL+16, DUPL+19* , DUPL+24, DUPL+30, DUPL+34, DUPL+36, DUPLX, AUDIT+4~, AUDIT+6*, AUDIT+7, AUDIT+8, DTMOD~ , DTMOD+6, KILL+1!
DATA	AUDIT~, AUDIT+5, AUDIT+7
DATE	DUPLOK+1~, DUPLOK+7, DUPLOK+8, DUPLOK+9, EXTDT~, EXTDT+1*, EXTDT+2
DD	PROVNARR+1~, EXTDT+1~, EXTDT+2*, EXTDT+3, AUDIT+4~
DFN	DUPL~, DUPL+2, DUPL+3, DTMOD+5~, DTMOD+6*
DIC	SEARCH+1~, SEARCH+3, PROVNARR+1~, PROVNARR+2, AUDIT+4~, AUDIT+5*, KILL+1!
DIC("A"	SEARCH+2*
DIC(0	SEARCH+3, PROVNARR+2, AUDIT+5*
DIE	DTMOD+1~, DTMOD+2*, KILL+1!
DIK	AUDIT+4~, AUDIT+6*
DIR	SEL+1~, SEL1+1~, DUPLOK+1~, SURE+2~
DIR("?"	SEL+5, SEL+6, SEL1+5, SEL1+6, DUPLOK+3, SURE+3
DIR("A"	SEL+2, SEL+3, SEL+4, SEL1+2, SEL1+3, SEL1+4, DUPLOK+2, SURE+4
DIR("B"	SEL+4, SEL1+4, DUPLOK+2, SURE+2
DIR(0	SEL+2, SEL1+2, DUPLOK+1, SURE+2
DLAYGO	PROVNARR+1~, PROVNARR+2, AUDIT+4~, AUDIT+5
DO	PROVNARR+1~, AUDIT+4~
DR	DTMOD+1~, DTMOD+2*, KILL+1!
DT	SEARCH+1, CODESTS+9, EXP2CODE+2
DTOUT	SEL+7, SEL1+7, KILL+1!
DUOUT	KILL+1!
EXPTXT	DUPL+4~, DUPL+15*, DUPL+16
GMI	EXP2CODE+1~, EXP2CODE+3, EXP2CODE+4
GMPCODE	DUPL+4~, DUPL+6, DUPL+8, DUPL+10, DUPL+22, DUPL+25, DUPL+26, DUPL+27, EXP2CODE~, EXP2CODE+1* , EXP2CODE+5*
GMPI	KILL+1!, GETDX+1~, GETDX+5, GETDX+6, GETDX+8
GMPIFN	DTMOD+5~, DTMOD+6*, KILL+1!
GMPL	PAD~, PAD+2
GMPL0	PROBTEXT+1~, PROBTEXT+2, PROBTEXT+3, PROBTEXT+4, DUPLOK+1~, DUPLOK+5, DUPLOK+7, DUPLOK+8
GMPL1	DUPLOK+1~*, DUPLOK+6, DUPLOK+8
GMPL800	PROBTEXT+1~, PROBTEXT+2*, PROBTEXT+4
GMPLEXP	PROBTEXT+1~, PROBTEXT+6*, PROBTEXT+7
GMPLJUMP	KILL+1!
GMPLNO	KILL+1!
GMPLNUM	KILL+1!
GMPLPOV	PROBTEXT+1~, PROBTEXT+6*, PROBTEXT+7
GMPLSAB	CS+1~, CS+2, CS+4, CS+6*
GMPLSC	EP+1~
GMPLSC(1	EP+1
GMPLSEL	KILL+1!
GMPLSLST	KILL+1!
GMPLSO	PROBTEXT+1~, PROBTEXT+6, CS+1~, CS+2, CS+3, CS+4, CS+5, CS+6, CS+7, PT+1~ , PT+2
GMPLTERM	PT+1~, PT+2, PT+3
GMPLTXT	PROBTEXT+1~, PROBTEXT+7, PROBTEXT+9, PROBTEXT+11*, PROBTEXT+12
GMPQUIT	KILL+1!
GMPREBLD	KILL+1!
GMPRT	KILL+1!
GMPSAVED	KILL+1!
GMPSRC	DUPL+4~, DUPL+6, DUPL+8, DUPL+22, DUPL+25, DUPL+26, DUPL+27, EXP2CODE~, EXP2CODE+1, EXP2CODE+3 , EXP2CODE+5
GMPX	PAD~, PAD+2
GMPY	GETDX+1~, GETDX+2, GETDX+3, GETDX+4, GETDX+5, GETDX+9, GETDX+10, GETDXX, PAD+1~, PAD+2 , PAD+3
HELP	SEL~, SEL+6, SEL1~, SEL1+6
I	WRAP+1~, WR0+1, WR0+2, DUPL+26~*, DUPL+27
ICD	PROBTEXT+1~, PROBTEXT+4, PROBTEXT+11, GETDX+7~, GETDX+8, GETDX+9
IEN	DUPL+29~, DUPL+30, DUPL+32~, DUPL+36
IFN	PROBTEXT~, PROBTEXT+2, PROBTEXT+5, PROBTEXT+6, PROBNARR~, PROBNARR+1, DUPL+1~, DUPL+3*, DUPL+5, DUPL+10 , DUPL+12, DUPL+16, DUPL+19, DUPL+24, DUPL+29, DUPL+30, DUPL+32, DUPL+34, DUPL+36, DUPLOK~ , DUPLOK+1, DUPLOK+4
J	WRAP+1~, WR0+1, WR0+2, WR0+4, WRQ+1, DUPL+26~, DUPL+27, DUPL+31
LEX	DUPL+16, EXP2CODE+1~, GETDX+1~, GETDX+4
LEX(	GETDX+6, GETDX+8
LEX("LIST"	DUPL+15
LEX("SEL"	EXP2CODE+3, EXP2CODE+4
>> LEXUN	SEARCH+4*
MAX	WRAP~, WRAP+1, WR0+1, WR0+2, WR0+3, SEL+1~, SEL+2, SEL+3, SEL+4, SEL1+1~ , SEL1+2, SEL1+3, SEL1+4
MM	EXTDT+1~, EXTDT+2*, EXTDT+3
NODE0	DUPL+4~, DUPL+5*, DUPL+18, DUPL+21
NODE1	DUPL+4~, DUPL+5*, DUPL+12, DUPL+14
NODE800	DUPL+4~, DUPL+5*, DUPL+8, DUPL+10
NODE803	DUPL+4~, DUPL+5*, DUPL+25
OLD	AUDIT~, AUDIT+8
PICDNEW	DUPL+4~, DUPL+22*, DUPL+24, DUPL+30
PICDOLD	DUPL+4~, DUPL+21*, DUPL+24, DUPL+34
PROB	WRAP~, WRAP+1, WR0+1, WR0+2, WR0+3, WR0+4, CODESTS~, CODESTS+10, CODESTS+11*, CODESTS+12
PROMPT	SEARCH~, SEARCH+2
PROV	DUPLOK+1~, DUPLOK+6*
PROVNAR	DUPL+4~, DUPL+18*, DUPL+19
SCTC	PROBTEXT+1~, PROBTEXT+4*, PROBTEXT+11
SCTD	DUPL+4~
SICDNEW	DUPL+26~
SICDNEW(	DUPL+27*, DUPL+34, DUPL+36
SRC	SEARCH+6~, SEARCH+8, SEARCH+9
SRCCODE	EXP2CODE+1~, EXP2CODE+4*, EXP2CODE+5
T	DUPL+31~*, DUPL+34, DUPL+36
TERM	DUPL~, DUPL+6, DUPL+12
TEXT	WRAP~, WRAP+1!, WRQ+1, DUPL~, DUPL+1, DUPL+16, DUPL+19
TEXT(	WRAP+1, WR0+1, WR0+2, WR0+4
U	SEARCH+7, SEARCH+9, PROVNARR+3, PROVNARR+4, PROVNARR+5, PROBTEXT+4, PROBTEXT+5, PROBNARR+1, DUPL+5, DUPL+15 , DUPL+18, DUPL+21, DUPL+30, DUPL+36, DUPLOK+5, DUPLOK+6, DUPLOK+7, DUPLOK+8, AUDIT+5, DTMOD+6 , CODESTS+11, CODESTS+12, EXP2CODE+4, EXP2CODE+5, GETDX+4
UNRES	SEARCH~, SEARCH+4
VIEW	SEARCH~, SEARCH+1*
X	SEARCH~, SEARCH+3, SEARCH+7, SEARCH+9, PROVNARR~, PROVNARR+1, PROVNARR+3, PROVNARR+4, PROBTEXT+1~, PROBTEXT+3 , PROBTEXT+5, PROBTEXT+6, PROBTEXT+12, PROBTX, PROBNARR+1~, PROBNARR+2, CS~, CS+1, CS+2, CS+3* , CS+4, CS+5, CS+6, CS+7, EP~, EP+1, PT~, PT+1, PT+3, TRIM~ , TRIM+1, TRIM+2, TRIM+3, TRIM+4, TRIM+5, SEL+1~, SEL+7, SEL1+1~, SEL1+7, DUPLOK+1~ , SURE+2~, EXTDT+1~, EXTDT+3, EXTDT+4, AUDIT+4~, AUDIT+5, DTMOD+5~, DTMOD+7, KILL+1!, EXP2CODE~ , EXP2CODE+2
Y	SEARCH~, SEARCH+5, SEARCH+7, SEARCH+8, SEARCH+9, PROVNARR+1~, PROVNARR+2, PROVNARR+3, PROVNARR+4!, PROVNARR+5 , PROBTEXT+1~, PROBTEXT+5, PROBNARR+1~, SEL+1~, SEL+7, SEL+8, SEL1+1~, SEL1+7, SEL1+8, DUPLOK+1~ , DUPLOK+11, SURE+2~, SURE+5, AUDIT+4~, AUDIT+6, KILL+1!
Y(1	SEARCH+9*
YY	EXTDT+1~, EXTDT+2*, EXTDT+3
YYY	EXTDT+1~, EXTDT+2*, EXTDT+3

Customize PDF page

Package: Problem List

Routine: GMPLX

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 40

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: