Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMPLBLCK

Package: Problem List

Routine: GMPLBLCK


Information

GMPLBLCK ;SLC/JFR/TC - check selection list ICD codes ;07/06/17 12:01

Source Information

Source file <GMPLBLCK.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  
Problem List 3 $$VALLIST^GMPLBLD2  PAGE^GMPLSLRP  WRAP^GMPLX  
VA FileMan 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 ($$CODECS,$$HIST,$$STATCHK)^ICDEX  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Problem List 2 GMPL SELECTION LIST CSV CHECK  GMPL SELECTION LIST CSV EVENT  
Kernel 1 ^ORD(101  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS CSVOPT+3
HOME^%ZIS CSVOPT+4, QUEUE+65
^%ZISC CSVOPT+4, QUEUE+64
^%ZTLOAD CSVOPT+8
$$GET1^DIQ CSVPEP+26, QUEUE+44, CKCODES+21, CKCODES+31
^DIR QUEUE+11
$$VALLIST^GMPLBLD2 CKLISTS+9
PAGE^GMPLSLRP QUEUE+6, QUEUE+26, QUEUE+36, QUEUE+43, QUEUE+50, QUEUE+56, QUEUE+60
WRAP^GMPLX QUEUE+31
$$CODECS^ICDEX CKCODES+15
$$HIST^ICDEX CKCODES+17
$$STATCHK^ICDEX CKCODES+16
$$DT^XLFDT CKCODES+8
$$FMTE^XLFDT CSVPEP+38, CKCODES+22
^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+8
Function Call: WRITE
  • Prompt: !,"The following Problem Selection List(s) contain one or more problems that have"
  • Line Location: QUEUE+15
Function Call: WRITE
  • Prompt: !,"inactive SNOMED and/or ICD codes attached to them. Any current users or clinics"
  • Line Location: QUEUE+16
Function Call: WRITE
  • Prompt: !,"using these Selection Lists, will not be able to add the problems with inactive"
  • Line Location: QUEUE+17
Function Call: WRITE
  • Prompt: !,"codes, until the list and the inactive codes are updated. The list may not be"
  • Line Location: QUEUE+18
Function Call: WRITE
  • Prompt: !,"assigned to any additional users or clinics until updated.",!
  • Line Location: QUEUE+19
Function Call: WRITE
  • Prompt: !!," "_GMPLST_":"
  • Line Location: QUEUE+22
Function Call: WRITE
  • Prompt: !," "_GMPLCAT_":"
  • Line Location: QUEUE+24
Function Call: WRITE
  • Prompt: !,$S(GMPLK>1:" "_GMPLTEXT(GMPLK),1:GMPLTEXT(GMPLK))
  • Line Location: QUEUE+33
Function Call: WRITE
  • Prompt: !,"The following Problem Selection List categories contain problems with ICD"
  • Line Location: QUEUE+37
Function Call: WRITE
  • Prompt: !,"codes that have a future inactivation date. These Categories should be updated"
  • Line Location: QUEUE+38
Function Call: WRITE
  • Prompt: !,"as soon as possible after the inactivation date to reduce the interruption of"
  • Line Location: QUEUE+39
Function Call: WRITE
  • Prompt: !,"use of the selection list(s) by users or clinics.",!
  • Line Location: QUEUE+40
Function Call: WRITE
  • Prompt: !!!," Category name: "_$$GET1^DIQ(125.11,CAT,.01),!
  • Line Location: QUEUE+44
Function Call: WRITE
  • Prompt: !," Problems with ICD codes due to be inactivated:",!
  • Line Location: QUEUE+45
Function Call: WRITE
  • Prompt: !," Problem text: "_$P(TXT,U)
  • Line Location: QUEUE+51
Function Call: WRITE
  • Prompt: !," Display text: "_$P(TXT,U,2)
  • Line Location: QUEUE+52
Function Call: WRITE
  • Prompt: !," Code: "_$P(TXT,U,3)
  • Line Location: QUEUE+53
Function Call: WRITE
  • Prompt: !," Inactive Date: "_$P(TXT,U,4),!
  • Line Location: QUEUE+54
Function Call: WRITE
  • Prompt: !!," This Category is part of the following Problem Selection Lists:",!
  • Line Location: QUEUE+57
Function Call: WRITE
  • Prompt: !," "_^TMP("GMPLSL",$J,"F",CAT,"L",LIST)
  • Line Location: QUEUE+61
Routine Call
  • %ZIS
  • Line Location:
    • CSVOPT+3
Routine Call
  • %ZIS
  • Line Location:
    • CSVOPT+4
    • QUEUE+65
Routine Call
  • DIR
  • Line Location:
    • QUEUE+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMPL(125 - [#125] GET1^DIQ
^GMPL(125.11 - [#125.11] GET1^DIQ
125.111 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMPL(125 - [#125] CKLISTS+7, CKLISTS+15, CKCODES+28, CKCODES+30
^GMPL(125.11 - [#125.11] CKCODES+9, CKCODES+10, CKCODES+11, CKCODES+12, CKCODES+14
^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+7, QUEUE+14, QUEUE+21, QUEUE+23, QUEUE+25, QUEUE+28, QUEUE+35, QUEUE+42
, QUEUE+48, QUEUE+49, QUEUE+55, QUEUE+59, QUEUE+61, QUEUE+66!, CKLISTS+4!, CKLISTS+15*, CKCODES+6!, CKCODES+22*
, CKCODES+27, CKCODES+31*

Label References

Name Line Occurrences
CKCODES CSVPEP+2, QUEUE+4
CKLISTS CSVPEP+2, QUEUE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS CSVOPT+2~, CSVOPT+3*
CAT CSVPEP+1~, CSVPEP+24*, CSVPEP+25*, CSVPEP+26, CSVPEP+33, CSVPEP+34, CSVPEP+40, CSVPEP+44, CSVPEP+45, QUEUE+3~
, QUEUE+41*, QUEUE+42*, QUEUE+44, QUEUE+48, QUEUE+49, QUEUE+55, QUEUE+59, QUEUE+61, CKCODES+7~, CKCODES+26*
, CKCODES+27*, CKCODES+28, CKCODES+30, CKCODES+31
DIR QUEUE+10~
DIR(0 QUEUE+11*
DIRUT QUEUE+10~
DTOUT QUEUE+10~
DUOUT QUEUE+10~
GMPADT CKCODES+13~, CKCODES+18*, CKCODES+19, CKCODES+20, CKCODES+22
GMPARY CKCODES+13~, CKCODES+17*
GMPARY( CKCODES+18, CKCODES+20
GMPCAT CKCODES+7~, CKCODES+8*, CKCODES+9*, CKCODES+10, CKCODES+11, CKCODES+12, CKCODES+14, CKCODES+21, CKCODES+22
GMPCSPTR CKCODES+13~, CKCODES+15*, CKCODES+16, CKCODES+17
GMPDA CKCODES+7~, CKCODES+8*, CKCODES+11*, CKCODES+12, CKCODES+14, CKCODES+21, CKCODES+22
GMPDT CKCODES+7~, CKCODES+8*, CKCODES+15, CKCODES+16, CKCODES+18
GMPICD CKCODES+13~, CKCODES+14*, CKCODES+15, CKCODES+16, CKCODES+17, CKCODES+22
GMPL0 CKCODES+13~, CKCODES+14*, CKCODES+22
GMPLCAT QUEUE+3~, QUEUE+20*, QUEUE+23*, QUEUE+24, QUEUE+25, QUEUE+28
GMPLCLST CKLISTS+8~, CKLISTS+11
GMPLCLST( CKLISTS+12, CKLISTS+13, CKLISTS+14
GMPLCNME CKLISTS+5~, CKLISTS+6*, CKLISTS+12*, CKLISTS+13, CKLISTS+14, CKLISTS+15
GMPLCNT CKLISTS+5~, CKLISTS+10*, CKLISTS+14*, CKLISTS+15
GMPLCSYS QUEUE+27~, QUEUE+29*, QUEUE+30
GMPLDTXT QUEUE+27~, QUEUE+29*, QUEUE+30
GMPLI QUEUE+3~, QUEUE+20*, QUEUE+25*, QUEUE+28
GMPLICD QUEUE+27~, QUEUE+29*, QUEUE+30
GMPLK QUEUE+27~, QUEUE+28*, QUEUE+32*, QUEUE+33
GMPLPROB QUEUE+27~, QUEUE+30*, QUEUE+31
GMPLREC QUEUE+27~, QUEUE+28*, QUEUE+29, CKLISTS+5~, CKLISTS+14*, CKLISTS+15
GMPLSEQ CKLISTS+5~, CKLISTS+6*, CKLISTS+13*, CKLISTS+14
GMPLST QUEUE+3~, QUEUE+20*, QUEUE+21*, QUEUE+22, QUEUE+23, QUEUE+25, QUEUE+28
GMPLTEXT QUEUE+27~, QUEUE+31
GMPLTEXT( QUEUE+32, QUEUE+33
GMPLTITL QUEUE+3~, QUEUE+5*, QUEUE+6, QUEUE+26, QUEUE+36, QUEUE+43, QUEUE+50, QUEUE+56, QUEUE+60
GMPPROB CKCODES+13~, CKCODES+21*, CKCODES+22
GMPPSQ CKCODES+7~, CKCODES+8*, CKCODES+10*, CKCODES+11
IO QUEUE+2
IO("Q" CSVOPT+4
ION CSVOPT+7
IOSL QUEUE+26, QUEUE+43, QUEUE+50, QUEUE+56, QUEUE+60
IOST QUEUE+9, QUEUE+64
LIST CSVPEP+1~, CSVPEP+43*, CSVPEP+44*, CSVPEP+45, QUEUE+3~, QUEUE+58*, QUEUE+59*, QUEUE+61, CKCODES+7~, CKCODES+29~*
, CKCODES+30*, CKCODES+31
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, CKLISTS+5~, CKLISTS+6*, CKLISTS+7*, CKLISTS+9, CKLISTS+15
PAGE QUEUE+3~, QUEUE+6*, QUEUE+21, QUEUE+23, QUEUE+25, QUEUE+26, QUEUE+36, QUEUE+43, QUEUE+48, QUEUE+50
, QUEUE+56, QUEUE+59, QUEUE+60
POP CSVOPT+2~, CSVOPT+3
PROB CSVPEP+31~, CSVPEP+32*, CSVPEP+33*, CSVPEP+34, QUEUE+46~, QUEUE+47*, QUEUE+48*, QUEUE+49
TXT CSVPEP+31~, CSVPEP+34*, CSVPEP+35, CSVPEP+36, CSVPEP+37, CSVPEP+38, QUEUE+46~, QUEUE+49*, QUEUE+51, QUEUE+52
, QUEUE+53, QUEUE+54
U CSVPEP+35, CSVPEP+36, CSVPEP+37, CSVPEP+38, QUEUE+29, QUEUE+51, QUEUE+52, QUEUE+53, QUEUE+54, CKLISTS+15
, CKCODES+12, CKCODES+14, CKCODES+22
X QUEUE+10~
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+10~
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All