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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Kernel 2 $$HTFM^XLFDT  $$UP^XLFSTR  
Problem List 2 JUMP^GMPLEDT3  ($$SURE,AUDIT,DTMOD)^GMPLX  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Problem List 5 GMPL  GMPLEDIT  GMPLEDT1  GMPLEDT4  GMPLMGR1  

Entry Points

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

External References

Name Field # of Occurrence
^%DT D1+7
^DIC NP+7
^DIR SUREDEL+7, SP1
JUMP^GMPLEDT3 NP+2, D1+2, SP1+1
$$SURE^GMPLX NP+4, D1+4, SP1+2
AUDIT^GMPLX DELETE+4
DTMOD^GMPLX DELETE+4
$$HTFM^XLFDT DELETE+2
$$UP^XLFSTR SP+1

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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: Y
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIC
  • Line Location:
    • NP+7
Routine Call
  • DIR
  • Line Location:
    • SUREDEL+7
    • SP1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] DELETE+3*
^VA(200 - [#200] NPHELP+2, NPHELP+5

Label References

Name Line Occurrences
$$SUREDEL DELETE+1
D1 D1+2, D1+4, D1+5, D1+6, D1+7, D1+8
DTHELP D1+6, D1+7
EDQ EDITED+3, EDITED+4
NP NP+2, NP+4, NP+5, NP+6, NP+8
NPHELP NP+6
SP SPEXP+1, SPEXP+3, SPEXP+5, SPEXP+7, SPEXP+9, SPEXP+11, SPEXP+13
SP1 SP1+1, SP1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1~*
CHNGE DELETE+1~, DELETE+2*, DELETE+4
CNT NPHELP+1~*, NPHELP+3*
>> DEFAULT NP, NP+3, D1, D1+3
DIC NPERSON+1~, NP+7*
DIC(0 NP+7*
DIFFRENT EDITED+1~*, EDITED+2*, EDITED+3, EDITED+4*, EDITED+5*, EDQ
DIR SUREDEL+1~, SP+1~
DIR("?" SUREDEL+4*, SUREDEL+5*, SUREDEL+6*, SP+4*, SP+5*
DIR("A" SUREDEL+3*, SP+2*, SP+3*
DIR("B" SUREDEL+3*, SP+6*
DIR(0 SUREDEL+3*, SP+1*
DT D1+8
DTIME NP+1, NPHELP+4, D1+1
>> DTOUT NP+1*, D1+1*, SP1
DUZ DELETE+2
FLD EDITED+1~, EDITED+2*, SP~, SP+6, SP1+3
>> GMPAGTOR SPEXP+1
>> GMPCV SPEXP+11
>> GMPFLD( EDITED+2, VERIFY+1, VERIFY+2*, SPEXP+2*, SPEXP+4*, SPEXP+6*, SPEXP+8*, SPEXP+10*, SPEXP+12*, SPEXP+14*
, SP+6, SP1+3*
>> GMPFLD(10 EDITED+4, EDITED+5
>> GMPGULF SPEXP+5
>> GMPHNC SPEXP+7
>> GMPIFN DELETE+2, DELETE+3, DELETE+4, NP+2, D1+2, SP1+1
>> GMPION SPEXP+3
GMPLJUMP NP+2!, D1+2!, SPEXP+1, SPEXP+3, SPEXP+5, SPEXP+7, SPEXP+9, SPEXP+11, SPEXP+13, SP1+1!
GMPLN SP+1~*, SP+2, SP+3, SP+5
>> GMPMST SPEXP+9
>> GMPORIG( EDITED+2
>> GMPORIG(10 EDITED+5
>> GMPQUIT NP+1*, NP+2, D1+1*, D1+2, SPEXP+1, SPEXP+3, SPEXP+5, SPEXP+7, SPEXP+9, SPEXP+11
, SPEXP+13, SP1*, SP1+1
>> GMPROV DELETE+2
>> GMPSAVED DELETE+3*
>> GMPSHD SPEXP+13
>> HELPMSG NP+5, NP+8, D1+5, D1+7
I NPHELP+1~, NPHELP+5*
NAME SP~, SP+1, SP+5
NM NPHELP+1~*, NPHELP+2*, NPHELP+5
NOTE EDITED+1~, EDITED+5*
NUM SUREDEL~, SUREDEL+2, SUREDEL+4
>> PROMPT NP, D1
U EDITED+5, DELETE+2, DELETE+3, NP, NPHELP+5, D1, SPEXP+2, SPEXP+4, SPEXP+6, SPEXP+8
, SPEXP+10, SPEXP+12, SPEXP+14, SP1+3
>> VALMBCK DELETE+1*, DELETE+3*
>> VALMCC DELETE+1
X SUREDEL+1~, NP+1*, NP+2, NP+3, NP+4, NP+5, NP+6, D1+1*, D1+2, D1+3
, D1+4, D1+5, D1+6, SP+1~, SP1+2
Y SUREDEL+1~, SUREDEL+8, NP+3*, NP+4*, NP+8, NPHELP+1~*, NPHELP+2, NPHELP+3, NPHELP+4*, D1+3*
, D1+4*, D1+7, D1+8, SP+1~, SP1, SP1+1, SP1+2*, SP1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All