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

Package: Problem List

Routine: GMPLEDT2


Information

GMPLEDT2 ; SLC/MKB/KER -- Problem List edit actions ; 04/15/2002

Source Information

Source file <GMPLEDT2.m>

Entry Points

Name Comments DBIA/ICR reference
EDITED() ; Returns 1 if problem has been altered
EDQ
SUREDEL(NUM) ; -- sure you want to delete problems?
DELETE ; Remove current problem from patient's list
VERIFY ; Mark current problem as verified
NPERSON ; look up into #200, given PROMPT,HELPMSG,DEFAULT (returns X, Y)
NP
NPHELP ; List names in New Person file
DATE ; Edit date fields given PROMPT,HELPMSG,DEFAULT (ret'ns X,Y)
D1
DTHELP ; Date help
SPEXP ; Edit Fields 1.11, 1.12, 1.13, 1.15, 1.16, 1.17, 1.18
SP(FLD,NAME) ; edit exposure fields -- Requires FLD number & field NAME
SP1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"CAUTION: "_$S(NUM=1:"This problem",1:"These "_NUM_" problems")_" will be completely removed",!," from this patient's list!!",!
  • Line Location: SUREDEL+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SUREDEL+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+4
Function Call: WRITE
  • Prompt: "... removed!",!!,"Returning to Problem List.",!
  • Line Location: DELETE+5
Function Call: WRITE
  • Prompt: $C(7),!!,"This problem does not require verification.",!
  • Line Location: VERIFY+1
Function Call: WRITE
  • Prompt: !,"."
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: "... verified!"
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: !,PROMPT_$S(+DEFAULT:$P(DEFAULT,U,2)_"//",1:"")
  • Line Location: NP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: !!,HELPMSG,!
  • Line Location: NP+5
Function Call: WRITE
  • Prompt: !!,HELPMSG,!,$C(7)
  • Line Location: NP+8
Function Call: WRITE
  • Prompt: !,"Choose from: "
  • Line Location: NPHELP+1
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: NPHELP+4
Function Call: WRITE
  • Prompt: !," "_$P($G(^VA(200,I,0)),U)
  • Line Location: NPHELP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NPHELP+6
Function Call: WRITE
  • Prompt: !,PROMPT_$S(+DEFAULT:$P(DEFAULT,U,2)_"//",1:"")
  • Line Location: D1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: !!,HELPMSG,!
  • Line Location: D1+5
Function Call: WRITE
  • Prompt: " INVALID DATE"
  • Line Location: D1+7
Function Call: WRITE
  • Prompt: !,HELPMSG
  • Line Location: D1+7
Function Call: WRITE
  • Prompt: !!,"Date cannot be in the future!",!,$C(7)
  • Line Location: D1+8
Function Call: WRITE
  • Prompt: !!,"Examples of valid dates:"
  • Line Location: DTHELP+1
Function Call: WRITE
  • Prompt: !," Jan 20 1957 or 20 Jan 57 or 1/20/57 or 012057"
  • Line Location: DTHELP+2
Function Call: WRITE
  • Prompt: !," T (for TODAY), T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc."
  • Line Location: DTHELP+3
Function Call: WRITE
  • Prompt: !,"You may omit the precise day, such as Jan 1957, or"
  • Line Location: DTHELP+4
Function Call: WRITE
  • Prompt: !,"If the year is omitted, a date in the PAST will be assumed.",!
  • Line Location: DTHELP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call