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: GMPLBLD2

Package: Problem List

Routine: GMPLBLD2


Information

GMPLBLD2 ; SLC/MKB,JFR,TC -- Bld PL Selection Lists cont ;07/19/17 13:32

Source Information

Source file <GMPLBLD2.m>

Entry Points

Name Comments DBIA/ICR reference
NEWGRP ; Change problem groups
NG1
NGQ
GROUP(L) ; Lookup into Problem Selection Group file #125.11
NEWLST ; Change selection lists
NL1
NLQ
LIST(L) ; Lookup into Problem Selection List file #125
LAST(ROOT) ; Returns last subscript
CKSAVE() ; Save [changes] ??
SAVE ; Save changes to group/list
SAVGRP ; Save changes to existing group
SAVLST ; Save changes to existing list
NEW(GMPSFN,LIST,ITEM) ; Create new contents entry in subfile #125.01 or #125.111
DELETE ; Delete problem group
DEL1 ; Ok, go for it ...
VALGRP(GMPLCAT,GMPLCODE) ; check all problems in the category for inactive SNOMED/ICD codes
; Input:
; GMPLCAT = ien from file 125.11
; GMPLCODE = Name of array where the categories & probs w/inactive codes are stored (Optional)
VALLIST(LIST,GMPLCODE) ;check all categories in list for probs w/ inactive SNOMED/ICD codes
; Input:
; LIST = ien from file 125
; GMPLCODE = Name of array where the categories & probs w/inactive codes are stored (Optional)
  • ICR #6735
    • Status: Active
    • Usage: Private
    ASSIGN ; assign or remove selection list to users/clinic

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,"This category is currently being edited by another user!",!
    • Line Location: NG1+2
    Function Call: WRITE
    • Prompt: $C(7),!!,"This list is currently being edited by another user!",!
    • Line Location: NL1+2
    Function Call: WRITE
    • Prompt: !!,$C(7),"This Group contains problems with inactive SNOMED or ICD codes associated"
    • Line Location: SAVE+16
    Function Call: WRITE
    • Prompt: !,"with them. The codes must be edited and corrected before the group can be saved."
    • Line Location: SAVE+17
    Function Call: WRITE
    • Prompt: !!,$C(7),"This Selection List contains problems with inactive SNOMED or ICD codes"
    • Line Location: SAVE+31
    Function Call: WRITE
    • Prompt: !,"associated with them. The codes must be edited and corrected before the"
    • Line Location: SAVE+32
    Function Call: WRITE
    • Prompt: !,"list can be saved."
    • Line Location: SAVE+33
    Function Call: WRITE
    • Prompt: !!,"Saving ..."
    • Line Location: SAVE+38
    Function Call: WRITE
    • Prompt: " done."
    • Line Location: SAVE+42
    Function Call: WRITE
    • Prompt: !,"Lock Error: error updating record #"_LIST_" in File #"_GMPFILE_"."
    • Line Location: NEW+8
    Function Call: WRITE
    • Prompt: !!,"Cannot make edits to a National category."
    • Line Location: DELETE+2
    Function Call: WRITE
    • Prompt: $C(7),!!,">>> This category belongs to at least one problem selection list!",!," CANNOT DELETE"
    • Line Location: DELETE+3
    Function Call: WRITE
    • Prompt: !!,"Deleting category items ..."
    • Line Location: DEL1+1
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DEL1+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DEL1+7
    Function Call: WRITE
    • Prompt: " <done>"
    • Line Location: DEL1+8

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMPL(125 - [#125] Classic Fileman Calls
    ^GMPL(125.11 - [#125.11] Classic Fileman Calls,  GET1^DIQ
    ^XTV(8989.51 - [#8989.51] FIND1^DIC,  GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call