Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] Classic Fileman Calls
    ^YSD(627.8 - [#627.8] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call