Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Problem List 4 $$EDITED^GMPLEDT2  ($$MSG,GETFLDS)^GMPLEDT3  EN^GMPLSAVE  ($$EXTDT,WRAP)^GMPLX  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Registration 2 $$SETSTR^VALM1  (CLEAN,CNTRL)^VALM10  
VA Fileman 1 YN^DICN  

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)
HI(LINE,COL) ; Hi-lite #
HDR ; Header code
IN4 ; Line 7/8
IN5 ; Last Line
IN1 ; Line 2
IN2 ; Line 3
IN3 ; Line 4
INIT ; Build list from GMPFLD()
EXIT ; Exit code
EX1 ; Ask to Save Changes on Exit
KILL ; Clean-up
HELP ; Help code

External References

Name Field # of Occurrence
YN^DICN EX1+2
$$EDITED^GMPLEDT2 EXIT+2
$$MSG^GMPLEDT3 IN5+8, HELP+9
GETFLDS^GMPLEDT3 EN+6
EN^GMPLSAVE EX1+5
$$EXTDT^GMPLX IN4+7, IN5+2
WRAP^GMPLX INIT+6
$$SETSTR^VALM1 IN1+3, IN2+4, IN3+2, IN3+7
CLEAN^VALM10 INIT+5, KILL+3
CNTRL^VALM10 IN4+3, HI+1
$$FMTE^XLFDT HDR+3
$$REPEAT^XLFSTR HDR+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] HDR+2
^TMP("GMPLEDIT" INIT+9*, INIT+10*, INIT+11*, INIT+12*, IN1+4*, IN2+5*, IN3+3*, IN3+8*, IN3+11*, IN4+1*
, IN4+2*, IN4+9*, IN4+12*, IN5+4*, IN5+7*, IN5+8*, HELP+1, KILL+1
^VA(200 - [#200] IN4+11
^XUSEC("GMPL ICD CODE" INIT+2

Label References

Name Line Occurrences
EX1 EX1+2
HI INIT+9, INIT+10, IN1+4, IN2+5, IN3+3, IN3+8, IN3+11, IN4+10, IN5+4
IN4 IN3+8
KILL EN+7, EXIT+1, EXIT+2, EX1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1~, EX1+2*
CNT HELP+1~*, HELP+3, KILL+1*, KILL+2, KILL+4!
COL HI~, HI+1
DIFFRENT EXIT+1~, EXIT+2*
DT IN5+2
DTIME HELP+8
DTOUT KILL+4!
DUOUT KILL+4!
DUZ INIT+2
>> GMPARAM("VER" INIT+10
>> GMPDFN HDR+1
GMPFLD EN+4!, EN+7, KILL+4!
GMPFLD( INIT+3, INIT+6, INIT+10, IN1+1, IN1+3, IN2+1, IN2+2, IN2+3, IN3+1, IN3+5
, IN3+6, IN3+10
GMPFLD(10 IN4+5, IN4+6, IN4+8, IN5+1, IN5+3, IN5+5, IN5+6
>> GMPIFN EN+6, HDR+2
>> GMPLMGR IN4+10
>> GMPLNUM EN+4
>> GMPLUSER INIT+10
>> GMPLVIEW("VIEW" IN3+5
GMPORIG EN+4!, KILL+4!
GMPORIG(10 IN4+8
GMPQUIT KILL+4!
GMPREBLD INIT+5!
GMPSAVED INIT+5!, EXIT+1
>> GMPVA IN1+3, IN2+4, IN3+2, IN3+7, IN4+4
I INIT+1~, INIT+3*, INIT+11*, IN1+4*, IN2+5*, IN4+5*, IN4+6, IN4+8, IN5+3*, IN5+5*
, IN5+6, KILL+2*, KILL+4!
ICD INIT+1~, INIT+2*, IN1+3, IN2+4, IN3+8, IN4+4
>> IOINHI HI+1
>> IOINORM HI+1
>> IOUOFF IN4+3
>> IOUON IN4+3
LASTMOD HDR+1~, HDR+2*, HDR+3*, HDR+4
LCNT INIT+1~, INIT+2*, INIT+9, INIT+10, INIT+11*, INIT+12*, IN1+2*, IN1+4, IN2+1*, IN2+5
, IN3+1*, IN3+3, IN3+8*, IN3+10*, IN3+11, IN4+1*, IN4+2*, IN4+3, IN4+9*, IN4+10
, IN4+12*, IN5+4*, IN5+7*, IN5+8
LINE INIT+1~, INIT+8*, INIT+9, INIT+10*, IN1+1*, IN1+2*, IN1+3*, IN1+4, IN2+1*, IN2+2*
, IN2+3*, IN2+4*, IN2+5, IN3+1*, IN3+2*, IN3+3, IN3+5*, IN3+6*, IN3+7*, IN3+8
, IN3+10*, IN3+11, IN4+7*, IN4+9, IN4+11*, IN4+12, IN5+2*, IN5+3*, IN5+4, IN5+6*
, IN5+7, HI~, HI+1
NOTE INIT+1~, IN4+6*, IN4+7, IN4+8*, IN4+9, IN4+11
NUM INIT+1~, IN4+4*, IN4+6*, IN4+7, IN5+1*, IN5+2, IN5+8
PAT HDR+1~*, HDR+4
SP INIT+1~, INIT+3*, INIT+4*, IN2+4, IN3+2, IN3+7
STR INIT+1~, IN1+1*, IN1+2, IN1+3*, IN2+4*, IN3+2*, IN3+7*
TEXT INIT+1~, INIT+6, INIT+11
TEXT( INIT+11
TEXT(1 INIT+8
U INIT+3, INIT+6, IN1+1, IN1+3, IN2+1, IN2+2, IN2+3, IN2+4, IN3+1, IN3+2
, IN3+5, IN3+6, IN3+7, IN3+10, IN4+7, IN4+8, IN4+9, IN4+11, IN5+8, HDR+1
, HDR+2
>> VALMBCK EN+7*, HELP+9*
>> VALMCC HELP+9
>> VALMCNT IN5+8*, HELP+7
>> VALMHDR(1 HDR+4*
>> VALMSG IN5+8*, HELP+9*
X HELP+1~, HELP+8*
>> XQORM("KEY" KILL+2!, KILL+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All