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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMPLEDT1

Package: Problem List

Routine: GMPLEDT1


Information

GMPLEDT1 ; SLC/MKB/KER/AJB/TC -- Edit Problem List fields ;08/27/14 07:57

Source Information

Source file <GMPLEDT1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Problem List 4 (DATE,NPERSON,SPEXP)^GMPLEDT2  JUMP^GMPLEDT3  (EDNOTE,PRIORITY,RESOLVED,TERM)^GMPLEDT4  ($$EXTDT,$$SURE)^GMPLX  
VA FileMan 2 ^DIC  ^DIR  
Scheduling 1 DIS^SDROUT2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Problem List 11 GMPL EDIT ICD  GMPL EDIT NEW NOTE  GMPL EDIT ONSET  GMPL EDIT PROVIDER  GMPL EDIT RECORDED  GMPL EDIT REFORMULATE  GMPL EDIT SC  GMPL EDIT SERVICE  
GMPL EDIT SP  GMPL EDIT STATUS  GMPL1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ONSET ; Edit Date of Onset - field .13
O1 ; Get Date of Onset
STATUS ; Edit Status - field .12
; Then Edit Date Resolved - Field 1.07, if inactive
ST1 ; Get Status
RECORDED ; Edit Date Recorded - field 1.09
RC1 ; Get Date
SC ; Edit Service Connected - field 1.1
SC1 ; Get Service Connection
SP ; Edit Exposures/Conditions
; Agent Orange - field 1.11
; Ionizing Radiation - field 1.12
; Persian Gulf/Environmental Contaminants - field 1.13
; Head and/or Neck Cancer - field 1.15
; Military Sexual Trauma - field 1.16
; Combat Vet - field 1.17
; SHAD - field 1.18
SOURCE ; Edit Service - field 1.06
; or Clinic - field 1.08
S1 ; Get Service/Clinic
SQ ; Quit Service/Clinic
AUTHOR ; Edit Recording Provider - field 1.04
PROV ; Edit Responsible Provider - field 1.05
ICD ; Edit ICD Code - field .01
ICD0 ; Prompt for ICD Code
ICD1 ; Get ICD Code
NOTE ; Attach a note to problem - field 11
TERM ; Edit Problem - field 1.01
Q ; No Editing

External References

Name Field # of Occurrence
^DIC S1+7, ICD1+5
^DIR ST1+1, SC1+1, ICD1+1
DATE^GMPLEDT2 O1+1, RC1+1
NPERSON^GMPLEDT2 AUTHOR+3, PROV+3
SPEXP^GMPLEDT2 SP+8
JUMP^GMPLEDT3 ST1+2, SC1+2, S1+3, ICD1+2
EDNOTE^GMPLEDT4 NOTE+6
PRIORITY^GMPLEDT4 ST1+6
RESOLVED^GMPLEDT4 ST1+5
TERM^GMPLEDT4 TERM+1
$$EXTDT^GMPLX O1+4, RC1+3
$$SURE^GMPLX SC1+3, S1+6
DIS^SDROUT2 SC+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Date of Onset cannot be later than the date the problem was entered!",$C(7)
  • Line Location: O1+2
Function Call: WRITE
  • Prompt: !!,"Date of Onset cannot be later than the date of death!",$C(7)
  • Line Location: O1+3
Function Call: WRITE
  • Prompt: !!,"Date Recorded cannot be later than the problem was entered!",$C(7)
  • Line Location: RC1+2
Function Call: WRITE
  • Prompt: !!,">>> Currently known service-connection data for "_$P(GMPDFN,U,2)_":"
  • Line Location: SC+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+16
Function Call: WRITE
  • Prompt: !,PROMPT_$S($L(DEFAULT):DEFAULT_"//",1:"")
  • Line Location: S1+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: !!,HELPMSG,!
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: !,HELPMSG
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: !?5,"Only clinic"_$S(VIEW="S":"al service",1:"")_"s are allowed!",!
  • Line Location: S1+7
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: ICD1+1
Function Call: WRITE
  • Prompt: !!,"ICD Code may not be deleted!",!,$C(7)
  • Line Location: ICD1+3
Routine Call
  • DIC
  • Line Location:
    • S1+7
    • ICD1+5
Routine Call
  • DIR
  • Line Location:
    • ST1+1
    • SC1+1
    • ICD1+1

Label References

Name Line Occurrences
@( S1+5
ICD0 ICD1+5
ICD1 ICD1+2, ICD1+3
O1 O1+2, O1+3
RC1 RC1+2
S1 S1+3, S1+4, S1+5, S1+6, S1+7
SC1 SC1+2, SC1+3
SQ S1+6
ST1 ST1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DEFAULT ONSET+1~, ONSET+2*, RECORDED+1~, RECORDED+2*, SOURCE+2~, SOURCE+5*, SOURCE+6*, S1+1, AUTHOR+1~, AUTHOR+2*
, PROV+1~*, NOTE+1~, NOTE+5*
DFN SC+1~, SC+10*
DIC SOURCE+2~, SOURCE+3*, ICD+1~, ICD1+5*
DIC("S" SOURCE+4*
DIC(0 SOURCE+3*, ICD1+5*
DIR STATUS+2~, SC+1~, ICD+1~, ICD0+1!
DIR("?" SC+17*, ICD0+4*
DIR("A" SC+12*, SC+15*, ICD0+1*, ICD0+2*
DIR("B" STATUS+4*, SC+13*, SC+16*, ICD0+3*
DIR(0 STATUS+3*, SC+17*, ICD0+1*
DONE NOTE+1~*, NOTE+2, NOTE+8*
DT ONSET+2, RECORDED+2
DTIME S1+2
DTOUT STATUS+2~, ST1+1, SC+1~, SC1+1, SOURCE+2~, S1+2*, ICD+1~, ICD1+1
ENTERED ONSET+1~, ONSET+2*, O1+2, RECORDED+1~, RECORDED+2*, RC1+2
>> GMPDFN O1+3, SC+8, SC+10
>> GMPFLD( ONSET+2, O1+4*, STATUS+4, ST1+3*, ST1+4*, ST1+5, ST1+6, RECORDED+2, RC1+3*, SC+16
, SC1+4*, SOURCE+5, SOURCE+6, SQ+1*, AUTHOR+2, AUTHOR+4*, PROV+1, PROV+4*, ICD0+2, ICD0+3
, ICD1+4, ICD1+6*
>> GMPFLD(10 NOTE+3, NOTE+5, NOTE+7!, NOTE+9*
>> GMPIFN ST1+2, SC1+2, S1+3, ICD1+2
GMPLCPTR NOTE+1~
GMPLJUMP O1+1, ST1+2!, RC1+1, SC1+2!, S1+3!, AUTHOR+3, PROV+3, ICD1+2!, NOTE+2, NOTE+6
>> GMPLVIEW("VIEW" SOURCE+2
>> GMPORIG( SC+7, SC+11
>> GMPQUIT O1+1, ST1+1*, ST1+2, RC1+1, SC1+1*, SC1+2, S1+2*, S1+3, AUTHOR+3, PROV+3
, ICD1+1*, ICD1+2, NOTE+2, NOTE+6
>> GMPSC SC+9, SC+11
HELPMSG ONSET+1~, ONSET+3*, RECORDED+1~, RECORDED+3*, SOURCE+2~, SOURCE+7*, S1+4, S1+5, AUTHOR+1~, AUTHOR+2*
, PROV+1~, PROV+2*
I NOTE+1~*, NOTE+3, NOTE+4*, NOTE+5, NOTE+7, NOTE+9
>> IORVOFF ICD1+1
>> IORVON ICD0+2
NCNT NOTE+1~*, NOTE+4*, NOTE+5
NXT NOTE+1~, NOTE+3*, NOTE+4
PROMPT ONSET+1~, ONSET+3*, RECORDED+1~, RECORDED+3*, SOURCE+2~, SOURCE+5*, SOURCE+6*, S1+1, AUTHOR+1~*, PROV+1~
, PROV+2*, NOTE+1~, NOTE+5*
U O1+3, O1+4, STATUS+4, ST1+3, RC1+3, SC+8, SC+16, SC1+4, SOURCE+5, SOURCE+6
, ICD0+2, ICD0+3, ICD1+4
VIEW SOURCE+2~*, SOURCE+3, SOURCE+4, SOURCE+5, SOURCE+7, S1+5, S1+7, SQ+1
X ONSET+1~, STATUS+2~, RECORDED+1~, SC+1~, SC1+3, SOURCE+2~, S1+2*, S1+3, S1+4, S1+5
, S1+6, AUTHOR+1~, PROV+1~, ICD+1~, ICD1+3, ICD1+4, NOTE+1~, NOTE+7
Y ONSET+1~, O1+2, O1+3, O1+4, STATUS+2~, ST1+1, ST1+2, ST1+3*, ST1+4, RECORDED+1~
, RC1+2, RC1+3, SC+1~, SC1+1, SC1+2, SC1+3*, SC1+4, SOURCE+2~, S1+6*, S1+7
, SQ+1, AUTHOR+1~, AUTHOR+4, PROV+1~, PROV+4, ICD+1~, ICD1+1, ICD1+2, ICD1+4, ICD1+5
, ICD1+6, NOTE+1~, NOTE+8, NOTE+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All