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

Package: Problem List

Routine: GMPLEDT4


Information

GMPLEDT4 ; SLC/MKB/TC -- Problem List Edit actions cont ;04/22/15 13:09

Source Information

Source file <GMPLEDT4.m>

Entry Points

Name Comments DBIA/ICR reference
TERM ; edit field 1.01
T1
T2 ; new text -- pass to look-up
TEXT(DFLT) ; Enter/edit provider narrative text (no lookup)
NTES ; Edit existing note, display # in XQORNOD(0)
EDNOTE ; Edit note text given PROMPT,DEFAULT (returns X,Y)
ED1
RESOLVED ; edit field 1.07
R1
PRIORITY ; edit field 1.14
PR1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PROBLEM: "_$P(GMPFLD(.05),U,2)_"//"
  • Line Location: T1+0
Function Call: READ
  • Variable: PROB
  • Timeout: DTIME
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !!?4,"Enter a description of this problem, up to 80 characters.",!
  • Line Location: T1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: T2+5
Function Call: WRITE
  • Prompt: !,PROB,!,"has an inactive ICD code. Please enter another search term."
  • Line Location: T2+17
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ED1+6
Function Call: WRITE
  • Prompt: !!,"Text may not exceed 200 characters!",!,$C(7)
  • Line Location: ED1+8
Function Call: WRITE
  • Prompt: !!,"Date Resolved cannot be prior to the Date of Onset!",$C(7)
  • Line Location: R1+1
Info |  Source |  Entry Points |  Interaction Calls