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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMPLDIS1

Package: Problem List

Routine: GMPLDIS1


Information

GMPLDIS1 ; SLC/MKB -- Displays current/default values for saving ;5/26/94 15:22

Source Information

Source file <GMPLDIS1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$REPEAT^XLFSTR  
Problem List 1 ($$EXTDT,WRAP)^GMPLX  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Problem List 1 GMPL1  

Entry Points

Name Comments DBIA/ICR reference
DIS1
DISPLAY ; display current values for problem in GMPFLD array
ACCEPT(GMPFLD) ; accept current values of problem to save?
HELP ; help msg for $$ACCEPT, redisplay values

External References

Name Field # of Occurrence
^DIR ACCEPT+5
$$EXTDT^GMPLX DIS1+7
WRAP^GMPLX DISPLAY+8
$$REPEAT^XLFSTR DIS1, DIS1+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCEPT+1
Function Call: WRITE
  • Prompt: !!?11,"Select SAVE to save this problem as listed and"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?11,"continue; enter E to change any of these values,"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?11,"or Q to exit to the problem list without saving."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!,"Press <return> to redisplay the problem values ..."
  • Line Location: HELP+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," Problem: "_TEXT(1)
  • Line Location: DIS1+1
Function Call: WRITE
  • Prompt: !," "_TEXT(I)
  • Line Location: DIS1+2
Function Call: WRITE
  • Prompt: !," Onset: "_$P(GMPFLD(.13),U,2)
  • Line Location: DIS1+3
Function Call: WRITE
  • Prompt: !," Status: "_$P(GMPFLD(.12),U,2)
  • Line Location: DIS1+5
Function Call: WRITE
  • Prompt: "/"_$P(GMPFLD(1.14),U,2)
  • Line Location: DIS1+6
Function Call: WRITE
  • Prompt: ", Resolved "_$$EXTDT^GMPLX($P(GMPFLD(1.07),U))
  • Line Location: DIS1+7
Function Call: WRITE
  • Prompt: !," Provider: "_$P(GMPFLD(1.05),U,2)
  • Line Location: DIS1+9
Function Call: WRITE
  • Prompt: !," Service: "_$P(GMPFLD(1.06),U,2)
  • Line Location: DIS1+11
Function Call: WRITE
  • Prompt: !," Clinic: "_$P(GMPFLD(1.08),U,2)
  • Line Location: DIS1+12
Function Call: WRITE
  • Prompt: !," Recorded: "_$P(GMPFLD(1.09),U,2)_" by "_$P(GMPFLD(1.04),U,2)
  • Line Location: DIS1+14
Function Call: WRITE
  • Prompt: ?55,"ICD Code: "_$P(GMPFLD(.01),U,2)
  • Line Location: DIS1+15
Routine Call
  • DIR
  • Line Location:
    • ACCEPT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XUSEC("GMPL ICD CODE" DIS1+15

Label References

Name Line Occurrences
DISPLAY ACCEPT+1, HELP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CMMT DISPLAY+1~*, DISPLAY+5*, DISPLAY+7, DISPLAY+8
DIR ACCEPT+1~
DIR("?" ACCEPT+4*
DIR("A" ACCEPT+3*
DIR("B" ACCEPT+2*
DIR(0 ACCEPT+2*
DTIME HELP+6
>> DTOUT ACCEPT+5
>> DUOUT ACCEPT+5
DUZ DIS1+15
GMPFLD ACCEPT~, DISPLAY+1
GMPFLD( DISPLAY+2, DISPLAY+6, DIS1+3, DIS1+4, DIS1+5, DIS1+6, DIS1+7, DIS1+9, DIS1+11, DIS1+12
, DIS1+14, DIS1+15
GMPFLD(10 DISPLAY+4
>> GMPLVIEW("VIEW" DIS1+11
>> GMPVA DIS1+4, DIS1+8
I DISPLAY+1~, DISPLAY+2*, DISPLAY+4*, DIS1+2*
NTS DISPLAY+1~*, DISPLAY+4*, DISPLAY+5, DISPLAY+8
PROB DISPLAY+1~, DISPLAY+6*, DISPLAY+7, DISPLAY+8*
SP DISPLAY+1~*, DISPLAY+2*, DISPLAY+3*, DIS1+8, DIS1+10, DIS1+13
TEXT DISPLAY+1~, DISPLAY+7*, DISPLAY+8, DIS1+2
TEXT( DIS1+2
TEXT(1 DISPLAY+7*, DIS1+1
TEXT(2 DISPLAY+7*
U DISPLAY+2, DISPLAY+6, DIS1+3, DIS1+4, DIS1+5, DIS1+6, DIS1+7, DIS1+8, DIS1+9, DIS1+10
, DIS1+11, DIS1+12, DIS1+13, DIS1+14, DIS1+15
>> VALMCC DIS1, DIS1+16
X ACCEPT+1~, HELP+1~, HELP+6*
Y ACCEPT+1~, ACCEPT+5, ACCEPT+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All