Routine: GMPLBLCK

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR
DRG Grouper	1	($$HIST,$$STATCHK)^ICDAPIU
MailMan	1	^XMD
Problem List	1	$$VALLIST^GMPLBLD2

Package	Total	Caller Graph
Problem List	1	GMPL SELECTION LIST CSV CHECK

Entry Points

Name	Comments	DBIA/ICR reference
PAGE(NUM)	;print header and raise page number
CKCODES	; check probs on lists for future inactivation dates
QUEUE	; entry point for tasked report
CSVPEP	;called from protocol GMPL SELECTION LIST CSV EVENT
CKLISTS	; loop lists and see if any inactive problems
CSVOPT	; called from option GMPL SELECTION LIST CSV CHECK

External References

Name	Field # of Occurrence
^%ZIS	CSVOPT+3
HOME^%ZIS	CSVOPT+4, QUEUE+54
^%ZISC	CSVOPT+4, QUEUE+53
^%ZTLOAD	CSVOPT+8
$$GET1^DIQ	CSVPEP+26, QUEUE+33, CKCODES+17, CKCODES+28
^DIR	QUEUE+10, PAGE+4
$$VALLIST^GMPLBLD2	CKLISTS+7
$$HIST^ICDAPIU	CKCODES+13
$$STATCHK^ICDAPIU	CKCODES+12
$$FMTE^XLFDT	CSVPEP+38, CKCODES+19
$$REPEAT^XLFSTR	PAGE+9
^XMD	CSVPEP+57

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unable to task report" Line Location: CSVOPT+9
Function Call: WRITE	Prompt: !,"No Problems Selection List corrections/review required" Line Location: QUEUE+7
Function Call: WRITE	Prompt: !,"The following Problem Selection List(s) contain one or more problems that" Line Location: QUEUE+14
Function Call: WRITE	Prompt: !,"have inactive ICD-9 codes attached to them. Any current users or clinics using" Line Location: QUEUE+15
Function Call: WRITE	Prompt: !,"these Selection Lists, will not be able to add the problems with inactive " Line Location: QUEUE+16
Function Call: WRITE	Prompt: !,"codes, until the list and the inactive codes are updated. The list may not be" Line Location: QUEUE+17
Function Call: WRITE	Prompt: !,"assigned to any additional users or clinics until updated.",! Line Location: QUEUE+18
Function Call: WRITE	Prompt: !," "_^TMP("GMPLSL",$J,"I",LST) Line Location: QUEUE+22
Function Call: WRITE	Prompt: !,"The following Problem Selection List categories contain problems with ICD9 " Line Location: QUEUE+26
Function Call: WRITE	Prompt: !,"codes that have a future inactivation date. These Categories should be updated" Line Location: QUEUE+27
Function Call: WRITE	Prompt: !,"as soon as possible after the inactivation date to reduce the interruption of" Line Location: QUEUE+28
Function Call: WRITE	Prompt: !,"use of the selection list(s) by users or clinics.",! Line Location: QUEUE+29
Function Call: WRITE	Prompt: !!!," Category name: "_$$GET1^DIQ(125.11,CAT,.01),! Line Location: QUEUE+33
Function Call: WRITE	Prompt: !," Problems with ICD9 codes due to be inactivated:",! Line Location: QUEUE+34
Function Call: WRITE	Prompt: !," Problem text: "_$P(TXT,U) Line Location: QUEUE+40
Function Call: WRITE	Prompt: !," Display text: "_$P(TXT,U,2) Line Location: QUEUE+41
Function Call: WRITE	Prompt: !," Code: "_$P(TXT,U,3) Line Location: QUEUE+42
Function Call: WRITE	Prompt: !," Inactive Date: "_$P(TXT,U,4),! Line Location: QUEUE+43
Function Call: WRITE	Prompt: !!," This Category is part of the following Problem Selection Lists:",! Line Location: QUEUE+46
Function Call: WRITE	Prompt: !," "_^TMP("GMPLSL",$J,"F",CAT,"L",LIST) Line Location: QUEUE+50
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+6
Function Call: WRITE	Prompt: "Code Set Version review of Problem Selection Lists" Line Location: PAGE+7
Function Call: WRITE	Prompt: ?70,"Page: ",NUM Line Location: PAGE+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: PAGE+9
Routine Call	%ZIS Line Location: CSVOPT+4 QUEUE+54
Routine Call	DIR Line Location: QUEUE+10 PAGE+4
Routine Call	%ZIS Line Location: CSVOPT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMPL(125.1 - [#125.1]	GET1^DIQ
^GMPL(125.11 - [#125.11]	GET1^DIQ
^GMPL(125.12 - [#125.12]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMPL(125 - [#125]	CKLISTS+7, CKLISTS+8
^GMPL(125.1 - [#125.1]	CKCODES+25, CKCODES+27
^GMPL(125.12 - [#125.12]	CKCODES+9, CKCODES+11
^TMP("GMPLMSG"	CSVPEP+3!, CSVPEP+6, CSVPEP+7, CSVPEP+8, CSVPEP+9, CSVPEP+10, CSVPEP+13, CSVPEP+17, CSVPEP+18, CSVPEP+19* , CSVPEP+20, CSVPEP+21, CSVPEP+22, CSVPEP+23, CSVPEP+26, CSVPEP+28, CSVPEP+29, CSVPEP+30, CSVPEP+35, CSVPEP+36 , CSVPEP+37, CSVPEP+38, CSVPEP+39, CSVPEP+41, CSVPEP+42, CSVPEP+45, CSVPEP+47, CSVPEP+48, CSVPEP+51*, CSVPEP+58!
^TMP("GMPLSL"	CSVPEP+5, CSVPEP+12, CSVPEP+13, CSVPEP+16, CSVPEP+25, CSVPEP+33, CSVPEP+34, CSVPEP+40, CSVPEP+44, CSVPEP+45 , CSVPEP+50, CSVPEP+58!, QUEUE+6, QUEUE+13, QUEUE+20, QUEUE+22, QUEUE+24, QUEUE+31, QUEUE+37, QUEUE+38 , QUEUE+44, QUEUE+48, QUEUE+50, QUEUE+55!, CKLISTS+4!, CKLISTS+8, CKCODES+6!, CKCODES+19, CKCODES+24, CKCODES+28*

Label References

Name	Line Occurrences
CKCODES	CSVPEP+2, QUEUE+4
CKLISTS	CSVPEP+2, QUEUE+4
PAGE	QUEUE+5, QUEUE+21, QUEUE+25, QUEUE+32, QUEUE+39, QUEUE+45, QUEUE+49

Naked Globals

Name	Field # of Occurrence
^(	CKCODES+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	CSVOPT+2~, CSVOPT+3*
ACTDT	CKCODES+10~, CKCODES+14*, CKCODES+15, CKCODES+16, CKCODES+19
APIDATA	CKCODES+10~, CKCODES+13*
APIDATA(	CKCODES+14, CKCODES+16
CAT	CSVPEP+1~, CSVPEP+24, CSVPEP+25, CSVPEP+26, CSVPEP+33, CSVPEP+34, CSVPEP+40, CSVPEP+44, CSVPEP+45, QUEUE+3~ , QUEUE+30, QUEUE+31, QUEUE+33, QUEUE+37, QUEUE+38, QUEUE+44, QUEUE+48, QUEUE+50, CKCODES+7~, CKCODES+23* , CKCODES+24*, CKCODES+25, CKCODES+27, CKCODES+28
DIR	QUEUE+9~, PAGE+3~
DIR(0	QUEUE+10, PAGE+4
DIRUT	QUEUE+9~, PAGE+3~
DT	CKCODES+12, CKCODES+14
DTOUT	QUEUE+9~, PAGE+3~, PAGE+5
DUOUT	QUEUE+9~, PAGE+3~, PAGE+5
IO	QUEUE+2
IO("Q"	CSVOPT+4
IOF	PAGE+6
ION	CSVOPT+7
IOSL	QUEUE+21, QUEUE+32, QUEUE+39, QUEUE+45, QUEUE+49
IOST	QUEUE+8, QUEUE+53, PAGE+2
LIST	CSVPEP+1~, CSVPEP+43, CSVPEP+44, CSVPEP+45, QUEUE+3~, QUEUE+47, QUEUE+48, QUEUE+50, CKCODES+7~, CKCODES+26~* , CKCODES+27*, CKCODES+28
LN	CSVPEP+1~, CSVPEP+4, CSVPEP+6, CSVPEP+7, CSVPEP+8, CSVPEP+9, CSVPEP+10, CSVPEP+13, CSVPEP+14, CSVPEP+17 , CSVPEP+18, CSVPEP+19, CSVPEP+20, CSVPEP+21, CSVPEP+22, CSVPEP+23, CSVPEP+26, CSVPEP+27, CSVPEP+28, CSVPEP+29* , CSVPEP+30, CSVPEP+35, CSVPEP+36, CSVPEP+37, CSVPEP+38, CSVPEP+39, CSVPEP+41, CSVPEP+42, CSVPEP+45, CSVPEP+46* , CSVPEP+47, CSVPEP+48, CSVPEP+51, CSVPEP+52*, QUEUE+3~
LST	CSVPEP+1~, CSVPEP+11, CSVPEP+12, CSVPEP+13, QUEUE+3~, QUEUE+19, QUEUE+20, QUEUE+22, CKLISTS+5~, CKLISTS+6* , CKLISTS+7*, CKLISTS+8
NUM	PAGE~, PAGE+1, PAGE+2, PAGE+5, PAGE+8, PAGE+10
PAGE	QUEUE+3~, QUEUE+5*, QUEUE+20, QUEUE+21, QUEUE+25, QUEUE+32, QUEUE+37, QUEUE+39, QUEUE+45, QUEUE+48 , QUEUE+49
POP	CSVOPT+2~, CSVOPT+3
PROB	CSVPEP+31~, CSVPEP+32, CSVPEP+33, CSVPEP+34, QUEUE+35~, QUEUE+36, QUEUE+37, QUEUE+38, CKCODES+7~, CKCODES+8* , CKCODES+9*, CKCODES+11, CKCODES+17, CKCODES+19
PROB0	CKCODES+10~, CKCODES+11*, CKCODES+12, CKCODES+13, CKCODES+18, CKCODES+19
PROBCAT	CKCODES+10~, CKCODES+18*, CKCODES+19
PROBTX	CKCODES+10~, CKCODES+17*, CKCODES+19
TXT	CSVPEP+31~, CSVPEP+34, CSVPEP+35, CSVPEP+36, CSVPEP+37, CSVPEP+38, QUEUE+35~, QUEUE+38, QUEUE+40, QUEUE+41 , QUEUE+42, QUEUE+43
U	CSVPEP+35, CSVPEP+36, CSVPEP+37, CSVPEP+38, QUEUE+40, QUEUE+41, QUEUE+42, QUEUE+43, CKLISTS+8, CKCODES+9 , CKCODES+12, CKCODES+13, CKCODES+18, CKCODES+19
X	QUEUE+9~, PAGE+3~
XMDUZ	CSVPEP+1~, CSVPEP+55*
XMSUB	CSVPEP+1~, CSVPEP+54*
XMTEXT	CSVPEP+1~, CSVPEP+56*
XMY	CSVPEP+1~
XMY("G.GMPL C	ODE SET VERSION UPDATES" , CSVPEP+53*
Y	QUEUE+9~, PAGE+3~
ZTDESC	CSVOPT+5~, CSVOPT+6*
ZTDTH	CSVOPT+5~, CSVOPT+7*
ZTIO	CSVOPT+5~, CSVOPT+7*
>> ZTQUEUED	QUEUE+1
>> ZTREQ	QUEUE+1*
ZTRTN	CSVOPT+5~, CSVOPT+7*
ZTSK	CSVOPT+5~, CSVOPT+9

Customize PDF page

Package: Problem List

Routine: GMPLBLCK

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: