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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMPLBLCK

Package: Problem List

Routine: GMPLBLCK


Information

GMPLBLCK ;SLC/JFR - check selection list ICD9 codes; 3/20/03 09:05

Source Information

Source file <GMPLBLCK.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 1

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
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 |  Naked Globals |  Local Variables |  All