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

Package: Mental Health

Routine: YSGAF


Information

YSGAF ;ALB/ASF-GLOBAL ASSESSMENT OF FUNCTIONING ;11/10/97 16:17

Source Information

Source file <YSGAF.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 6 ^%DT  ^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Mental Health 4 PATSTAT^YSDX3B  (DATE,LP1,ONELOC,ONLYREQ)^YSGAF1  EN^YSGAFOBX  ^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: 8

Package Total Caller Graph
Mental Health 3 YSGAF CLINIC ENTRY  YSGAF PRINT CLINIC  YSGAF SINGLE PT  
Automated Information Collection System 2 IBDF18E4  IBDFN16  
Scheduling 2 SDGAF  SDUTL2  
Registration 1 DGPTSCAN  

Entry Points

Name Comments DBIA/ICR reference
CLENT ;
CE1
RULE ;business rule for need dx
CK ;check last Axis 5
PRINT ;
QPRT ;Queued Task Entry Point
PR1
TOP ;print header
BOT ;page end
PTENT ;patient entry
DISP5 ;display last axis5
DISP51
ADD5 ;add axis 5 dx
RET(YSX) ;This extrinsic returns the most recent GAF score, GAF
  • ICR #2535
    • Status: Active
    • Usage: Supported
    UPD(YSPN,YSGN,YSGD,YSGC,YSPT) ;Update GAF information
    ; YSPN - Patient Name
    ; YSGN - GAF Score (Axis 5)
    ; YSGD - Date/Time of Diagnosis
    ; YSGC - Diagnosis By
    ; YSPT - Patient Type ('I'npatient or 'O'utpatient)
  • ICR #2535
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    ^%DT ADD5+13, UPD+30
    ^%DTC RULE+4
    ^%ZIS PRINT+8
    HOME^%ZIS PRINT+16
    ^%ZISC PR1+6
    ^%ZTLOAD PRINT+15
    ^DIC ADD5+10
    FILE^DICN ADD5+14, UPD+32
    ^DIE ADD5+18, UPD+39
    ^DIR BOT+2, ADD5+4, ADD5+7
    DEM^VADPT PR1+3, DISP5+2
    $$FMTE^XLFDT PR1+4, TOP+4
    PATSTAT^YSDX3B ADD5+15, UPD+34
    DATE^YSGAF1 CLENT+4, PRINT+4
    LP1^YSGAF1 CLENT+7, QPRT+2
    ONELOC^YSGAF1 CLENT+3, PRINT+3
    ONLYREQ^YSGAF1 CLENT+6, PRINT+5
    EN^YSGAFOBX ADD5+20, UPD+41
    ^YSLRP PTENT+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF,"Clinic Entry: Global Assessment of Functioning",!
    • Line Location: CLENT+2
    Function Call: WRITE
    • Prompt: !,"No GAF's to enter"
    • Line Location: CLENT+8
    Function Call: WRITE
    • Prompt: !,"No appointments found"
    • Line Location: QPRT+4
    Function Call: WRITE
    • Prompt: " "_$S(YSRULE:"**",1:" ")_"______ __________________"
    • Line Location: PR1+5
    Function Call: WRITE
    • Prompt: @IOF,"GAF List Clinic: ",YSCNAME," **= > than ",YSDAYS," days"
    • Line Location: TOP+3
    Function Call: WRITE
    • Prompt: !,"Appointment Date: ",$$FMTE^XLFDT(YSDATE,"5ZD")
    • Line Location: TOP+4
    Function Call: WRITE
    • Prompt: ?32,"Last GAF New",?65,"page: ",YSPAGE
    • Line Location: TOP+5
    Function Call: WRITE
    • Prompt: !?32,"GAF Date GAF Clinician",!,YSLINE
    • Line Location: TOP+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: BOT+2
    Function Call: WRITE
    • Prompt: @IOF,"Global Assessment of functioning"
    • Line Location: PTENT+2
    Function Call: WRITE
    • Prompt: !,VADM(1),?35,"SSN: xxx-xx-",VA("BID"),?55,"DOB: ",$P(VADM(3),U,2)
    • Line Location: DISP5+3
    Function Call: WRITE
    • Prompt: !?4,"Last GAF: ",YSGAFLN," on: "
    • Line Location: DISP51+2
    Function Call: WRITE
    • Prompt: Y
    • Line Location: DISP51+3
    Function Call: WRITE
    • Prompt: " by: ",$S(+$G(YSGAFLC):$P(^VA(200,YSGAFLC,0),U),1:"--> No provider entered for this GAF score")
    • Line Location: DISP51+4
    Function Call: WRITE
    • Prompt: !,YSGAFER
    • Line Location: DISP51+5
    Function Call: WRITE
    • Prompt: !?4,"no previous GAF"
    • Line Location: DISP51+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: ADD5+1
    Function Call: WRITE
    • Prompt: !,"No GAF will be entered. Enter ^^ to end loop.",$C(7)
    • Line Location: ADD5+5
    Function Call: WRITE
    • Prompt: !,"No GAF will be entered",$C(7)
    • Line Location: ADD5+8
    Function Call: WRITE
    • Prompt: !,"No GAF will be entered",$C(7)
    • Line Location: ADD5+11
    Routine Call
    • DIC
    • Line Location:
      • ADD5+10
    Routine Call
    • DIE
    • Line Location:
      • ADD5+18
      • UPD+39
    Routine Call
    • DIR
    • Line Location:
      • BOT+2
      • ADD5+4
      • ADD5+7
    Routine Call
    • %ZIS
    • Line Location:
      • PRINT+8
    Routine Call
    • %ZIS
    • Line Location:
      • PRINT+16

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" DISP51+3
    ^TMP("YSGAF" CLENT+8, CE1, QPRT+4, PR1
    ^VA(200 - [#200] DISP51+4, ADD5+9
    ^YSD(627.8 - [#627.8] CK+2, CK+4, CK+6, CK+8, CK+10, ADD5+17, ADD5+19, RET+7, RET+9, RET+10
    , RET+11, UPD+38, UPD+40

    Label References

    Name Line Occurrences
    ADD5 CE1+3, PTENT+3
    BOT PR1
    CK RULE+2, PR1+1, DISP51
    DISP5 CE1+3, PTENT+3
    RULE CE1+1, PR1+1
    TOP QPRT+3, BOT+1, BOT+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT CLENT+1~, PRINT+1~, PTENT+1~, ADD5+13*, UPD+30*, UPD+42!
    >> %ZIS PRINT+7*
    DA CLENT+1~, PRINT+1~, PTENT+1~, ADD5+12!, ADD5+16*, UPD+29!, UPD+35*, UPD+42!
    DD ADD5+12!, UPD+29!
    DFN CE1*, CK+2, CK+4, PR1*, PTENT+3!, DISP5+1, ADD5+16, UPD+33*
    DIC ADD5+9!*, ADD5+10!, ADD5+14*, UPD+31*, UPD+42!
    DIC("A" ADD5+9*
    DIC("B" ADD5+9*
    DIC(0 ADD5+9*, ADD5+14*, UPD+31*
    DIE CLENT+1~, PRINT+1~, PTENT+1~, ADD5+16*, UPD+35*, UPD+42!
    DINUM ADD5+12!, UPD+29!
    DIR CLENT+1~, PRINT+1~, BOT+1!, PTENT+1~, ADD5+2!, ADD5+6!, ADD5+9!
    DIR("?" ADD5+2*
    DIR("??" ADD5+2*
    DIR("A" ADD5+2*, ADD5+6*
    DIR("B" ADD5+6*
    DIR(0 BOT+2*, ADD5+2*, ADD5+6*
    DIRUT CLENT+1~, PRINT+1~, PTENT+1~, ADD5+5, ADD5+8
    DLAYGO CLENT+1~, PRINT+1~, PTENT+1~, ADD5+14*, UPD+30*, UPD+42!
    DO ADD5+12!, UPD+29!
    DR CLENT+1~, PRINT+1~, PTENT+1~, ADD5+16*, UPD+36*, UPD+37*, UPD+42!
    DT RULE+4
    DUZ ADD5+9, ADD5+16, UPD+36
    IO PRINT+18
    IO("Q" PRINT+10
    IOF CLENT+2, TOP+3, PTENT+2
    IOSL PR1
    IOST BOT+1
    K CLENT+1~, PRINT+1~, PTENT+1~
    >> POP PRINT+9
    U CK+7, CK+9, DISP5+3, DISP51+4, ADD5+9
    VA CLENT+1~, PRINT+1~, PTENT+1~
    VA("BID" PR1+4, DISP5+3
    VADM CLENT+1~, PRINT+1~, PTENT+1~
    VADM(1 DISP5+3
    VADM(3 DISP5+3
    X CLENT+1~, RULE+5, PRINT+1~, PTENT+1~, ADD5+4, ADD5+13*, UPD+30*, UPD+42!
    X1 CLENT+1~, RULE+4*, PRINT+1~, PTENT+1~
    X2 CLENT+1~, RULE+4*, PRINT+1~, PTENT+1~
    Y CLENT+1~, PRINT+1~, BOT+3, PTENT+1~, DISP51+3*, ADD5+4, ADD5+7, ADD5+10, ADD5+11, ADD5+13
    , ADD5+14, UPD+30, UPD+32, UPD+42!
    YSCLIN CLENT+1~, CLENT+3, PRINT+1~, PRINT+3, PTENT+1~
    YSCNAME CLENT+1~, PRINT+1~, TOP+3, PTENT+1~
    YSDA CLENT+1~, PRINT+1~, PTENT+1~, ADD5+14*, ADD5+16, ADD5+17, ADD5+19, ADD5+20, UPD+32*, UPD+35
    , UPD+38, UPD+40, UPD+41, UPD+42!
    YSDATE CLENT+1~, CLENT+4, PRINT+1~, PRINT+4, TOP+4, PTENT+1~
    YSDAYS CLENT+1~, CLENT+5*, RULE+5, PRINT+1~, PRINT+2*, TOP+3, PTENT+1~
    YSDD CLENT+1~, PRINT+1~, PTENT+1~
    YSDXEG CLENT+1~, CK+6*, CK+7, CK+8*, CK+9, PRINT+1~, PTENT+1~
    YSDXEL CLENT+1~, CK+2*, CK+3, CK+4, PRINT+1~, PTENT+1~
    YSDXEN CLENT+1~, CK+4*, CK+5, CK+6, CK+8, CK+10, PRINT+1~, PTENT+1~
    >> YSERR UPD+6*, UPD+9*, UPD+14*, UPD+19*, UPD+24*, UPD+27
    YSG CLENT+1~, PRINT+1~, PTENT+1~
    YSGAFER CLENT+1~, CK+1*, CK+10*, PR1+4, PTENT+1~, DISP51+5
    YSGAFLC CLENT+1~, CK+1*, CK+7*, PRINT+1~, PTENT+1~, DISP51+4
    YSGAFLD CLENT+1~, RULE+3, RULE+4, CK+1*, CK+7*, PRINT+1~, PR1+4, PTENT+1~, DISP51+3
    YSGAFLN CLENT+1~, CK+1*, CK+9*, PRINT+1~, PR1+4, PTENT+1~, DISP51+1, DISP51+2, DISP51+6
    YSGC CLENT+1~, PRINT+1~, PTENT+1~, ADD5+10*, ADD5+16, UPD~, UPD+22, UPD+36, UPD+42!
    YSGD CLENT+1~, PRINT+1~, PTENT+1~, ADD5+7*, ADD5+16, UPD~, UPD+17, UPD+36, UPD+42!
    YSGN CLENT+1~, PRINT+1~, PTENT+1~, ADD5+4*, ADD5+16, UPD~, UPD+12, UPD+37, UPD+42!
    YSGR CLENT+1~, PRINT+1~, PTENT+1~
    YSGT CLENT+1~, PRINT+1~, PTENT+1~
    YSHOLD RET+5~, RET+6*, RET+7*, RET+8, RET+9, RET+10, RET+11
    YSLINE CLENT+1~, PRINT+1~, TOP+2*, TOP+6, PTENT+1~
    YSN CLENT+1~, CE1*, PRINT+1~, PR1*, PR1+4, PTENT+1~
    YSONLY CLENT+1~, CLENT+6, CE1+1, PRINT+1~, PRINT+5, PR1+2, PTENT+1~
    YSOUT CLENT+1~, CE1*, PRINT+1~, PR1*, BOT+1*, BOT+3*, PTENT+1~, ADD5+4*
    YSPAGE CLENT+1~, PRINT+1~, QPRT+3*, TOP+1*, TOP+5, PTENT+1~
    YSPN UPD~, UPD+7, UPD+33, UPD+36, UPD+42!
    YSPT UPD~
    YSPTN CLENT+1~, PRINT+1~, PTENT+1~
    YSRULE CLENT+1~, CE1+1, RULE+1*, RULE+3*, RULE+5*, PRINT+1~, PR1+2, PR1+5, PTENT+1~
    YSSTAT ADD5+16, UPD+37, UPD+42!
    YSSTOP CLENT+1~, PRINT+1~, PTENT+1~
    YSX RET~, RET+7
    >> YSZ RET+9*, RET+10*, RET+11*, RET+12*, RET+13
    ZTDESC PRINT+11~, PRINT+13*
    >> ZTQUEUED QPRT+1
    >> ZTREQ QPRT+1*
    ZTRTN PRINT+11~, PRINT+12*
    ZTSAVE PRINT+11~
    ZTSAVE( PRINT+14*
    >> ZZ PRINT+14*
    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