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

Package: Health Summary

Routine: GMTSMHPE


Information

GMTSMHPE ; SLC/JER,KER - Mental Health Physical Exam Component ; 11/14/2011

Source Information

Source file <GMTSMHPE.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main control
  • ICR #5727
    • Status: Pending
    • Usage: Private
    PHYEXAM ; Check for existence of PHYSICAL EXAM data
    VS(DFN,GMDATE) ; Show vital signs
    OMITABN ; Get PHYSICAL EXAM 'Omits' and 'Abnormals'
    SHOWOMIT ; Show 'Omits'
    SHOWABN ; Show 'Abnormals'
    SYS(GMHSYST) ; Physical System

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: PHYEXAM+16
    Function Call: WRITE
    • Prompt: "VITAL SIGNS DATE: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.01,"E"))]"":^("E"),1:"Unknown")
    • Line Location: VS+2
    Function Call: WRITE
    • Prompt: ?40,"Examiner: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,29,"E"))]"":^("E"),1:"Unknown")
    • Line Location: VS+3
    Function Call: WRITE
    • Prompt: !,"Temp: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.04,"E")):^("E")_"F",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,34,"E")):^("E")_"C",1:"")
    • Line Location: VS+5
    Function Call: WRITE
    • Prompt: ?14,"Pulse: ",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.05,"E"))
    • Line Location: VS+6
    Function Call: WRITE
    • Prompt: ?28,"Resp: ",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.07,"E"))
    • Line Location: VS+7
    Function Call: WRITE
    • Prompt: ?42,"BP: ",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.06,"E"))
    • Line Location: VS+8
    Function Call: WRITE
    • Prompt: ?56,"Ht: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.02,"E")):^("E")_"in",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,32,"E")):^("E")_"cm",1:"")
    • Line Location: VS+9
    Function Call: WRITE
    • Prompt: ?70,"Wt: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.03,"E")):^("E")_"lb",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,33,"E")):^("E")_"kg",1:""),!!
    • Line Location: VS+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: VS+11
    Function Call: WRITE
    • Prompt: "Comments:",!
    • Line Location: VS+12
    Function Call: WRITE
    • Prompt: ?4,$G(^MR(+DFN,"PE",+GMDATE,19,GMI,0)),!
    • Line Location: VS+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: VS+15
    Function Call: WRITE
    • Prompt: "Initial Impression:",!
    • Line Location: VS+16
    Function Call: WRITE
    • Prompt: ?4,$G(^MR(+DFN,"PE",+GMDATE,20,GMI,0)),!
    • Line Location: VS+18
    Function Call: WRITE
    • Prompt: "General Appearance: "
    • Line Location: VS+20
    Function Call: WRITE
    • Prompt: !
    • Line Location: VS+23
    Function Call: WRITE
    • Prompt: "Omissions: "
    • Line Location: SHOWOMIT+1
    Function Call: WRITE
    • Prompt: " None",!!
    • Line Location: SHOWOMIT+2
    Function Call: WRITE
    • Prompt: !?11
    • Line Location: SHOWOMIT+4
    Function Call: WRITE
    • Prompt: GMPHY
    • Line Location: SHOWOMIT+5
    Function Call: WRITE
    • Prompt: ", "
    • Condition for execution: +$O(GMDATA("OM",GMYST))
    • Line Location: SHOWOMIT+5
    Function Call: WRITE
    • Prompt: !!
    • Line Location: SHOWOMIT+6
    Function Call: WRITE
    • Prompt: "Abnormal Findings: "
    • Line Location: SHOWABN+1
    Function Call: WRITE
    • Prompt: " None",!!
    • Line Location: SHOWABN+2
    Function Call: WRITE
    • Prompt: " Abnormal Findings (cont'd):",!
    • Condition for execution: GMTSNPG
    • Line Location: SHOWABN+5
    Function Call: WRITE
    • Prompt: ?(17-$L(GMPHY)),GMPHY,":"
    • Line Location: SHOWABN+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: SHOWABN+9

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^MR - [#90] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call