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
Print Page as PDF
Routine: GMPL1

Package: Problem List

Routine: GMPL1


Information

GMPL1 ; SLC/MKB/AJB/TC,PWC - Problem List actions ;04/03/2019

Source Information

Source file <GMPL1.m>

Entry Points

Name Comments DBIA/ICR reference
ADD ;add new entry to list - Requires GMPDFN
ADD1 ; set up default values
; -- May enter here with GMPROB=text,GMPICD=code,GMPTERM=#^term
; added for Code Set Versioning (CSV)
ADD2 ; prompt for values
ADD3 ; Ok to save?
STATUS ; -- inactivate problem
NEWNOTE ; -- add a new comment
DELETE ; -- delete a problem
VERIFY ; -- verify a transcribed problem, if parameter on
  • ICR #2726
    • Status: Active
    • Usage: Controlled Subscription
    ICDMSG ; If Lexicon returns ICD code 799.9 or R69.

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: ADD+1
    Function Call: WRITE
    • Prompt: !,GMPROB,!,"has an inactive ICD code. Please edit before adding."
    • Line Location: ADD1+12
    Function Call: WRITE
    • Prompt: !!?10,"< Nothing Saved !! >",!
    • Line Location: ADD3+2
    Function Call: WRITE
    • Prompt: !!,"Saving ..."
    • Line Location: ADD3+4
    Function Call: WRITE
    • Prompt: " done."
    • Line Location: ADD3+7
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN)
    • Line Location: STATUS+3
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+10
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+13
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+14
    Function Call: WRITE
    • Prompt: "... inactivated!",!
    • Line Location: STATUS+15
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN)
    • Line Location: NEWNOTE+2
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN)
    • Line Location: DELETE+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: DELETE+4
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DELETE+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DELETE+7
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DELETE+8
    Function Call: WRITE
    • Prompt: "... removed!",!
    • Line Location: DELETE+9
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN),!
    • Line Location: VERIFY+2
    Function Call: WRITE
    • Prompt: "has an inactive ICD code. Edit the problem before verification.",!
    • Line Location: VERIFY+3
    Function Call: WRITE
    • Prompt: "does not require verification.",!
    • Line Location: VERIFY+4
    Function Call: WRITE
    • Prompt: $C(7),$$LOCKED^GMPLX,!
    • Line Location: VERIFY+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: VERIFY+6
    Function Call: WRITE
    • Prompt: "."
    • Line Location: VERIFY+7
    Function Call: WRITE
    • Prompt: "."
    • Line Location: VERIFY+8
    Function Call: WRITE
    • Prompt: " verified.",!
    • Line Location: VERIFY+9
    Info |  Source |  Entry Points |  Interaction Calls