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

Package: Mental Health

Routine: YSGAF2


Information

YSGAF2 ;ASF/ALB- GLOBAL ASSESSMENT OF FUNCTIONNING CONT ;11/13/97 09:09

Source Information

Source file <YSGAF2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 (,NOW)^%DTC  ^DIE  ^DIR  
Mental Health 1 ^YSLRP  

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

Package Total Caller Graph
Mental Health 1 YSGAF ERROR  

Entry Points

Name Comments DBIA/ICR reference
EDENT ;edit /error
SHOW ; display dxs
LST ;LIST AXIS 5 FOR CURRENT PT AND DUZ
SEL ;select dx
APART ;time since dx

External References

Name Field # of Occurrence
^%DTC APART+2
NOW^%DTC EDENT+14, APART+2
^DIE EDENT+14, EDENT+17
^DIR EDENT+13, SEL+2
^YSLRP EDENT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Edit Global Assessment of functioning Diagnosis",!
  • Line Location: EDENT+2
Function Call: WRITE
  • Prompt: !,"No previous GAF on record for this patient",!,"Please enter any new GAF data through the entry options",!
  • Line Location: EDENT+5
Function Call: WRITE
  • Prompt: !!,"No Axis 5 dx's by "_$P(^VA(200,DUZ,0),U)
  • Line Location: EDENT+7
Function Call: WRITE
  • Prompt: !,"Dx made ",YSDAYS," days ago and cannot be changed. Do you wish to mark it as an error? "
  • Line Location: EDENT+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: $J(K,3),". GAF:",$J($P(^TMP("YSGAF",$J,K),U,3),3)_" on "
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: ?40
  • Line Location: SHOW+6
Routine Call
  • DIE
  • Line Location:
    • EDENT+14
    • EDENT+17
Routine Call
  • DIR
  • Line Location:
    • EDENT+13
    • SEL+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YSD(627.8 - [#627.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EDENT+14, SHOW+5
^TMP("YSGAF" EDENT+7, SHOW+2, SHOW+4, SHOW+5, LST+1!, LST+7*, APART+1
^VA(200 - [#200] EDENT+7, EDENT+14
^YSD(627.8 - [#627.8] EDENT+5, LST+2, LST+3, LST+4, LST+5, LST+7

Label References

Name Line Occurrences
APART EDENT+10
LST EDENT+6
SEL EDENT+8
SHOW EDENT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDENT+14, APART+2
%DT EDENT+1~
DA EDENT+1~, EDENT+14*, EDENT+17*, LST+2*, LST+3, LST+4, LST+5, LST+7
DFN EDENT+3!, EDENT+4, EDENT+5, LST+2
DIE EDENT+1~, EDENT+14*, EDENT+17*
DIR EDENT+1~, EDENT+13!, SEL+1!
DIR("A" SEL+1*
DIR("B" EDENT+13*, SEL+1*
DIR(0 EDENT+13*, SEL+1*
DIRUT EDENT+1~, EDENT+9, EDENT+13
DLAYGO EDENT+1~
DR EDENT+1~, EDENT+14*, EDENT+17*
DUZ EDENT+7, EDENT+14, LST+4
G EDENT+1~, EDENT+14, EDENT+17, APART+1*, APART+2
K EDENT+1~, SHOW+2*, SHOW+4, SHOW+5
U EDENT+7, EDENT+14, SHOW+4, SHOW+5, LST+3, LST+4, LST+7, APART+2
X EDENT+1~, APART+2
X1 EDENT+1~, APART+2*
X2 EDENT+1~, APART+2*
Y EDENT+1~, EDENT+9, EDENT+14*, SHOW+5*, APART+1
YSBY EDENT+1~, LST+4*
YSDATE EDENT+1~
YSDATR EDENT+1~, LST+2*
YSDAYS EDENT+1~, EDENT+11, EDENT+12, EDENT+16, APART+2*
YSENT EDENT+1~, LST+1*, LST+6*, LST+7, SEL+1
YSGAF EDENT+1~, LST+3*, LST+7
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