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

Package: Problem List

Routine: GMPLEDIT


Information

GMPLEDIT ; SLC/MKB/KER -- VALM Utilities for Edit sub-list ; 04/15/2002

Source Information

Source file <GMPLEDIT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Init Variables, list array
; Expects GMPIFN IEN of file 900011 (required)
; GMPLNUM Sequence # of Problem Edit (optional)
INIT ; Build list from GMPFLD()
IN1 ; Line 2
IN2 ; Line 3
IN3 ; Line 4
IN4 ; Line 7/8
IN5 ; Last Line
HI(LINE,COL) ; Hi-lite #
HDR ; Header code
HELP ; Help code
EXIT ; Exit code
EX1 ; Ask to Save Changes on Exit
KILL ; Clean-up

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Retrieving current data for problem "
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: $S($G(GMPLNUM):"#"_GMPLNUM_" ",1:"")_"...",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"ERROR -- Cannot continue.",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!?4,"You may change one or more of the above listed values describing"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?4,"this problem by entering its display number (1-"_CNT_") at the prompt;"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?4,"you may then enter a new value, or '@' to delete an existing value."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!?4,"Enter RM to remove this problem from the patient's list completely,"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?4,"SC to save your changes, or Q to simply return to the problem list."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ... "
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: $C(7),!!,">>> THIS PROBLEM HAS CHANGED!!"
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !?5,"Do you want to save these changes"
  • Line Location: EX1+1
Function Call: WRITE
  • Prompt: !!?5,"Enter YES or <return> to save the current values listed above"
  • Line Location: EX1+3
Function Call: WRITE
  • Prompt: !?5,"describing this problem; enter NO to exit without saving.",!
  • Line Location: EX1+4
Function Call: WRITE
  • Prompt: !!,"Saving ..."
  • Line Location: EX1+5
Function Call: WRITE
  • Prompt: " done."
  • Line Location: EX1+5
Info |  Source |  Entry Points |  Interaction Calls