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

Package: Mental Health

Routine: YSGAF1


Information

YSGAF1 ;ASF/ALB- GLOBAL ASSESSMENT OF FUNCTIONNING CONT;9/25/97 11:19 ;11/10/97 16:08

Source Information

Source file <YSGAF1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  ^DIC  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Mental Health 1 ^YSLRP  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Mental Health 2 YSGAF  YSGAF HISTORY  

Entry Points

Name Comments DBIA/ICR reference
ONELOC ;single hospital location
DATE ;
ONLYREQ ;only > ysdays
LP1 ;loop to create tmp pt list
LP2 ;apps at one time
HX ;GAF history
QHX ;Queued Task Entry Point
HXLP ;
TOP ;
BOT ;page end

External References

Name Field # of Occurrence
^%DT DATE+2
NOW^%DTC TOP+5
^%ZIS HX+5
HOME^%ZIS HX+13
^%ZISC QHX+14
^%ZTLOAD HX+12
^DIC ONELOC+3
^DIR ONELOC+8, ONLYREQ+2, BOT+2
DEM^VADPT QHX+2
^YSLRP HX+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,YSCNAME," does not have a mental health stop code"
  • Line Location: ONELOC+7
Function Call: WRITE
  • Prompt: !!,"No previous GAF's on file for this patient"
  • Line Location: QHX+6
Function Call: WRITE
  • Prompt: !,$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3),$S($L($P(YSG,U,4)):"Err",1:" ")
  • Line Location: QHX+10
Function Call: WRITE
  • Prompt: $E($P($G(^VA(200,$P(YSG,U,3),0)),U),1,15)
  • Line Location: QHX+11
Function Call: WRITE
  • Prompt: ?26,$J(+YSG,3)
  • Line Location: QHX+12
Function Call: WRITE
  • Prompt: " ",$E(YSGR,1,+YSG\2)
  • Line Location: QHX+13
Function Call: WRITE
  • Prompt: @IOF,"Global Assessment of Functioning Historical Listing"
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: !,VADM(1),?$X+5,VA("PID"),?45,"printed: "
  • Line Location: TOP+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: TOP+5
Function Call: WRITE
  • Prompt: !,YSLINE
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: !,"Date",?10,"Clinician",?26,"GAF",?30,YSGT
  • Line Location: TOP+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: BOT+2
Routine Call
  • DIC
  • Line Location:
    • ONELOC+3
Routine Call
  • DIR
  • Line Location:
    • ONELOC+8
    • ONLYREQ+2
    • BOT+2
Routine Call
  • %ZIS
  • Line Location:
    • HX+5
Routine Call
  • %ZIS
  • Line Location:
    • HX+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TOP+5
^DIC(40.7 - [#40.7] ONELOC+5
^DPT - [#2] LP2+3, LP2+4
^SC - [#44] LP1+3, LP2+1, LP2+2
^TMP("YSGAF" LP1+1!, LP2+5*, QHX+3!, QHX+6, QHX+8, QHX+9, HXLP+2*
^VA(200 - [#200] QHX+11
^YSD(627.8 - [#627.8] HXLP+1, HXLP+2

Label References

Name Line Occurrences
BOT QHX+8
HXLP QHX+4
LP2 LP1+3
ONELOC ONELOC+9
TOP QHX+5, BOT+1, BOT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TOP+5
%DT DATE+1~, DATE+2*, HX+1~
%DT("A" DATE+2*
%DT("B" DATE+2*
>> %ZIS HX+4*
DA HX+1~
DFN LP2+3*, LP2+4, LP2+5, HX+2!, HXLP+1
DIC ONELOC+1~, ONELOC+3*, HX+2!
DIC(0 ONELOC+3*
DIE HX+1~
DIR ONLYREQ+2!, HX+1~, BOT+1!
DIR("A" ONELOC+8*, ONLYREQ+2*
DIR("B" ONELOC+8*, ONLYREQ+2*
DIR(0 ONELOC+8*, ONLYREQ+2*, BOT+2*
DIRUT ONLYREQ+3, HX+1~
DLAYGO HX+1~
DR HX+1~
IO HX+15
IO("Q" HX+7
IOF TOP+3
IOSL QHX+8
IOST BOT+1
K LP2+1*, LP2+2, HX+1~
>> POP HX+6
U ONELOC+4, ONELOC+5, LP2+3, LP2+4, QHX+10, QHX+11, HXLP+2
VA HX+1~
VA("PID" TOP+4
VADM HX+1~
VADM(1 TOP+4
X HX+1~
X1 HX+1~
X2 HX+1~
Y ONELOC+1~, ONELOC+3, ONELOC+4, ONELOC+9, DATE+3, ONLYREQ+3, HX+1~, QHX+10*, TOP+5*, BOT+3
Y(0 ONELOC+5
YSCLIN ONELOC+2*, ONELOC+4*, LP1+3, LP2+1, LP2+2, HX+1~
YSCNAME ONELOC+2*, ONELOC+4*, ONELOC+7, HX+1~
YSDA HX+1~
YSDATE DATE+3*, LP1+2, LP1+3, HX+1~
YSDAYS ONLYREQ+2, HX+1~
YSDD LP1+2*, LP1+3*, LP2+1, LP2+2, LP2+4, HX+1~, QHX+8*, QHX+9, HXLP+1*, HXLP+2
YSDXEG HX+1~
YSDXEL HX+1~
YSDXEN HX+1~
YSG LP2+2*, LP2+3, HX+1~, QHX+9*, QHX+10, QHX+11, QHX+12, QHX+13
YSGAFLC HX+1~
YSGAFLD HX+1~
YSGAFLN HX+1~
YSGC HX+1~
YSGD HX+1~
YSGN HX+1~
YSGR HX+1~, QHX+13, TOP+2*
YSGT HX+1~, TOP+1*, TOP+7
YSLINE HX+1~, TOP+6*
YSN HX+1~, QHX+8*, QHX+9, HXLP+1*, HXLP+2
YSONLY ONLYREQ+1*, ONLYREQ+3*, HX+1~
YSOUT HX+1~, QHX+7*, QHX+8, BOT+1*, BOT+3*
YSPAGE HX+1~
YSPTN LP2+3*, LP2+5, HX+1~
YSRULE HX+1~
YSSTOP ONELOC+5*, ONELOC+6, HX+1~
ZTDESC HX+8~, HX+10*
>> ZTQUEUED QHX+1
>> ZTREQ QHX+1*
ZTRTN HX+8~, HX+9*
ZTSAVE HX+8~
ZTSAVE("DFN" HX+11*
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