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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Health Summary 2 $$WRAP^GMTSORC  CKP^GMTSUP  
VA FileMan 1 EN^DIQ1  

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

    External References

    Name Field # of Occurrence
    EN^DIQ1 PHYEXAM+9
    $$WRAP^GMTSORC VS+21, SHOWABN+7
    CKP^GMTSUP VS+1, VS+4, VS+14, VS+18, VS+20, VS+22, SHOWOMIT+1, SHOWOMIT+4, SHOWOMIT+6, SHOWABN+1
    , SHOWABN+5, SHOWABN+8

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^MR - [#90] MAIN+2, PHYEXAM+3, VS+11, VS+13, VS+14, VS+15, VS+17, VS+18
    ^UTILITY("DIQ1" PHYEXAM+5!, PHYEXAM+10, PHYEXAM+17!, VS+2, VS+3, VS+5, VS+6, VS+7, VS+8, VS+9
    , VS+10, VS+19, OMITABN+2, OMITABN+4

    Label References

    Name Line Occurrences
    $$SYS OMITABN+3, OMITABN+4
    OMITABN PHYEXAM+13
    SHOWABN PHYEXAM+15
    SHOWOMIT PHYEXAM+14
    VS PHYEXAM+12

    Naked Globals

    Name Field # of Occurrence
    ^("E" VS+2, VS+3, VS+5, VS+9, VS+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA PHYEXAM+4~, PHYEXAM+6*
    DA( PHYEXAM+7*, PHYEXAM+8*
    DFN MAIN+2, PHYEXAM+3, PHYEXAM+6, PHYEXAM+12, VS~, VS+11, VS+13, VS+14, VS+15, VS+17
    , VS+18
    DIC PHYEXAM+4~, PHYEXAM+6*
    DIQ PHYEXAM+4~
    DIQ(0 PHYEXAM+6*
    DR PHYEXAM+4~, PHYEXAM+6*
    DR( PHYEXAM+7*, PHYEXAM+8*
    GMCKC MAIN+2~
    GMDATA MAIN+2~, OMITABN+1!
    GMDATA("AB" OMITABN+4*, SHOWABN+2, SHOWABN+3, SHOWABN+4, SHOWABN+6
    GMDATA("OM" OMITABN+3*, SHOWOMIT+2, SHOWOMIT+3, SHOWOMIT+4, SHOWOMIT+5
    GMDATE MAIN+2~, PHYEXAM+2*, PHYEXAM+3*, PHYEXAM+7, PHYEXAM+12, VS~, VS+2, VS+3, VS+5, VS+6
    , VS+7, VS+8, VS+9, VS+10, VS+11, VS+13, VS+14, VS+15, VS+17, VS+18
    , VS+19, OMITABN+2, OMITABN+4
    GMEND MAIN+2~, PHYEXAM+2*, PHYEXAM+3
    GMFLD MAIN+2~, OMITABN+1~*, OMITABN+2, OMITABN+3, OMITABN+4
    GMHSYST SYS~, SYS+1*, SYS+2
    GMI MAIN+2~, VS+1~, VS+13*, VS+14, VS+16*, VS+17*, VS+18, VS+22*, SHOWABN+1~, SHOWABN+8*
    GMIL MAIN+2~
    GMPHY SHOWOMIT+1~, SHOWOMIT+4*, SHOWOMIT+5, SHOWABN+1~, SHOWABN+4*, SHOWABN+5
    GMTIMES MAIN+2~, MAIN+5*, PHYEXAM+3, PHYEXAM+11*
    >> GMTS1 MAIN+3
    >> GMTS2 MAIN+3
    GMTSB MAIN+2~, MAIN+3*, PHYEXAM+2
    GMTSE MAIN+2~, MAIN+3*, PHYEXAM+2
    >> GMTSNDM MAIN+4
    >> GMTSNPG SHOWABN+5
    >> GMTSQIT PHYEXAM+3, PHYEXAM+12, PHYEXAM+14, PHYEXAM+15, VS+1, VS+4, VS+11, VS+13, VS+14, VS+15
    , VS+17, VS+18, VS+20, VS+22, SHOWOMIT+1, SHOWOMIT+3, SHOWOMIT+4, SHOWOMIT+6, SHOWABN+1, SHOWABN+3
    , SHOWABN+5, SHOWABN+8
    GMTXT VS+1~, VS+19*, VS+21*, VS+22, SHOWABN+1~, SHOWABN+6*, SHOWABN+7*, SHOWABN+8
    GMX MAIN+2~, OMITABN+1~, OMITABN+2*, OMITABN+3, OMITABN+4
    GMYST SHOWOMIT+1~, SHOWOMIT+3*, SHOWOMIT+4, SHOWOMIT+5, SHOWABN+1~, SHOWABN+3*, SHOWABN+4, SHOWABN+6
    IOM SHOWOMIT+4
    MAX MAIN+2~, MAIN+4*, PHYEXAM+3
    U SYS+1
    Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All