Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMPLBLCK

Package: Problem List

Routine: GMPLBLCK


Information

GMPLBLCK ;SLC/JFR/TC - check selection list ICD codes ;Oct 29, 2018@08:17

Source Information

Source file <GMPLBLCK.m>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call