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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMTSPN1

Package: Health Summary

Routine: GMTSPN1


Information

GMTSPN1 ; SLC/KER - Progress Note Header/Sig/Text/Prob ; 5/17/06 2:03pm

Source Information

Source file <GMTSPN1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Health Summary 1 CKP^GMTSUP  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary 1 GMTSPN  

Entry Points

Name Comments DBIA/ICR reference
WAIH ; Addendum to Interdisciplinary Note Header
WP(X,I) ; Writes Problems associated with Note
WAH ; Addendum Header
WDH ; Discharge Summary Header
WT(X,I) ; Write Progress Note Text
WIH ; Interdisciplinary Note Header
ST(X) ; Sub-Titles
WDB(X,I) ; Writes Brief Discharge Summary
AM(X,I) ; Write Amendment
WDBH ; Brief Discharge Summary Header
WH ; Note Header

External References

Name Field # of Occurrence
CKP^GMTSUP WH+1, WH+3, WH+5, WH+6, WDH+1, WDH+2, WDH+3, WDH+4, WDH+5, WDH+6
, WDBH+1, WAH+1, WAH+3, WAH+5, WAH+6, WAH+7, WAH+8, ST+5, WIH+1, WIH+3
, WIH+6, WIH+7, WIH+8, WIH+9, WAIH+1, WAIH+3, WAIH+5, WAIH+7, WAIH+8, WAIH+9
, WAIH+10, WAIH+11, WT+4, WT+5, WP+4, WP+6, WP+7, AM+3, AM+4, AM+6
, AM+7, AM+9, AM+11, AM+12, WDB+3
$$UP^XLFSTR WH+2, WAH+2, WIH+2, WAIH+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WH+1
Function Call: WRITE
  • Prompt: $G(PN("DATE")),?18,"Local Title: ",$$UP^XLFSTR($G(PN("DOCTYPE"))),!
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: ?15,"Standard Title: ",PN("VHATYPE"),!
  • Line Location: WH+3
Function Call: WRITE
  • Prompt: ?20,PN("AUTH"),!
  • Line Location: WH+5
Function Call: WRITE
  • Prompt: ?19,"Subject: ",PN("SUBJ"),!
  • Line Location: WH+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WDH+1
Function Call: WRITE
  • Prompt: ADMIT,?12,"-",?14,DISCHG,?56,"Status: ",STATUS,!
  • Line Location: WDH+2
Function Call: WRITE
  • Prompt: ?9,"Local Title: ",PN("VHATYPE"),!
  • Line Location: WDH+3
Function Call: WRITE
  • Prompt: ?6,"Standard Title: ",PN("VHATYPE"),!
  • Line Location: WDH+4
Function Call: WRITE
  • Prompt: ?3,"Last Tr Specialty: ",TSPEC,?49,"Dict'd By: ",AUTHOR,!
  • Line Location: WDH+5
Function Call: WRITE
  • Prompt: ?47,"Approved By: ",ATTNDNG,!
  • Line Location: WDH+6
Function Call: WRITE
  • Prompt: "Admitted",?11,"Disch'd",?23,"Dictated By",?38,"Approved By",?53,"Cosigned",?64,"Status",!!
  • Line Location: WDBH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WAH+1
Function Call: WRITE
  • Prompt: PN("DATE"),?18,"Local Title: ",$$UP^XLFSTR(PN("DOCTYPE")),!
  • Line Location: WAH+2
Function Call: WRITE
  • Prompt: ?15,"Standard Title: ",PN("VHATYPE"),!
  • Line Location: WAH+3
Function Call: WRITE
  • Prompt: ?23,"Ref: ",$E(ATYPE,1,25),?55,"Dated: ",ADATE,!
  • Line Location: WAH+5
Function Call: WRITE
  • Prompt: ?20,PN("AUTH"),!
  • Line Location: WAH+6
Function Call: WRITE
  • Prompt: ?19,"Subject: ",PN("SUBJ"),!
  • Line Location: WAH+7
Function Call: WRITE
  • Prompt: ?19,"Subject: ",$G(ASUB),!
  • Line Location: WAH+8
Function Call: WRITE
  • Prompt: !,GMTSB
  • Line Location: ST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WIH+1
Function Call: WRITE
  • Prompt: PN("DATE"),?18,"Local Title: ",$$UP^XLFSTR(PN("DOCTYPE"))
  • Line Location: WIH+2
Function Call: WRITE
  • Prompt: !?15,"Standard Title: ",PN("VHATYPE"),!
  • Line Location: WIH+3
Function Call: WRITE
  • Prompt: !,?23,"Ref: ",$E(PTYPE,1,25),?55,"Dated: ",PDATE
  • Line Location: WIH+6
Function Call: WRITE
  • Prompt: !?20,PN("AUTH")
  • Line Location: WIH+7
Function Call: WRITE
  • Prompt: !?19,"Subject: ",PN("SUBJ")
  • Line Location: WIH+8
Function Call: WRITE
  • Prompt: !?19,"Subject: ",$G(PSUB)
  • Line Location: WIH+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIH+1
Function Call: WRITE
  • Prompt: PN("DATE"),?18,"Local Title: ",$$UP^XLFSTR(PN("DOCTYPE"))
  • Line Location: WAIH+2
Function Call: WRITE
  • Prompt: !?15,"Standard Title: ",PN("VHATYPE"),!
  • Line Location: WAIH+3
Function Call: WRITE
  • Prompt: !,?23,"Ref: ",$E(ATYPE,1,25),?55,"Dated: ",ADATE
  • Line Location: WAIH+5
Function Call: WRITE
  • Prompt: !,?23,"Ref: ",$E(PTYPE,1,29),?55,"Dated: ",PDATE
  • Line Location: WAIH+7
Function Call: WRITE
  • Prompt: !?20,PN("AUTH")
  • Line Location: WAIH+8
Function Call: WRITE
  • Prompt: !?19,"Subject: ",PN("SUBJ")
  • Line Location: WAIH+9
Function Call: WRITE
  • Prompt: !?19,"Subject: ",$G(ASUB)
  • Line Location: WAIH+10
Function Call: WRITE
  • Prompt: !?19,"Subject: ",$G(PSUB)
  • Line Location: WAIH+11
Function Call: WRITE
  • Prompt: !,$G(@(GMTSD_GMTSK_",0)"))
  • Line Location: WT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WT+5
Function Call: WRITE
  • Prompt: !,"PROBLEM(S): "
  • Line Location: WP+4
Function Call: WRITE
  • Prompt: !?15,$G(@(GMTSD_GMTSPR_",0)"))
  • Line Location: WP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: AM+3
Function Call: WRITE
  • Prompt: !,$G(@(GMTSD_"1601,""E"")"))," AMENDMENT FILED:"
  • Line Location: AM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: AM+6
Function Call: WRITE
  • Prompt: !?10
  • Line Location: AM+7
Function Call: WRITE
  • Prompt: "_"
  • Line Location: AM+7
Function Call: WRITE
  • Prompt: !?28," /es/ ",$G(@(GMTSD_"1604,""E"")"))
  • Line Location: AM+9
Function Call: WRITE
  • Prompt: !?34,$G(@(GMTSD_"1605,""E"")"))
  • Line Location: AM+11
Function Call: WRITE
  • Prompt: !
  • Line Location: AM+12
Function Call: WRITE
  • Prompt: $E($G(ADMIT),1,12),?11,$E($G(DISCHG),1,12),?23,$E($G(AUTHOR),1,14),?38,$E($G(ATTNDNG),1,14),?53,$E($G(COSIG),1,10),?64,$G(STATUS),!
  • Line Location: WDB+4

Label References

Name Line Occurrences
WDBH WDB+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADATE WH+4*, WAH+4, WAH+5, WIH+4*, WAIH+4, WAIH+5
>> ADMIT WDH+2, WDB+4
>> ASUB WH+4*, WAH+8, WIH+4*, WAIH+10, WAIH+11
>> ATTNDNG WDH+6, WDB+4
>> ATYPE WH+4*, WAH+4, WAH+5, WIH+4*, WAIH+4, WAIH+5
>> AUTHOR WDH+5, WDB+4
>> COSIG WDB+4
>> DISCHG WDH+2, WDB+4
GMTS ST+1~, ST+2*, ST+4
GMTS1 ST+1~, ST+3*, ST+4*
GMTS2 ST+1~, ST+4*
GMTSA AM+1~, WDB+1~
GMTSB ST+1~, ST+4*, ST+5
>> GMTSCNT WH+1, WDH+1, WAH+1, WIH+1, WAIH+1
GMTSD WT+1~*, WT+2*, WT+3, WT+4, WP+2~*, WP+3*, WP+5, WP+6, AM+1~*, AM+2
, AM+3*, AM+4, AM+5, AM+7, AM+8, AM+9, AM+10, AM+11, WDB+1~*, WDB+2
GMTSI AM+1~, AM+7*, WDB+1~
GMTSIEN WT+1~*, WT+2, WP+2~*, WP+3, AM+1~*, AM+2, AM+3, WDB+1~*, WDB+2
GMTSK WT+3~*, WT+4
>> GMTSNPG WDB+3
GMTSPR WP+5~*, WP+6
>> GMTSQIT WH+1, WH+3, WH+5, WH+6, WDH+1, WDH+2, WDH+3, WDH+4, WDH+5, WDH+6
, WDBH+1, WAH+1, WAH+3, WAH+4, WAH+5, WAH+6, WAH+7, WAH+8, ST+5, WIH+1
, WIH+3, WIH+5, WIH+6, WIH+7, WIH+8, WIH+9, WAIH+1, WAIH+3, WAIH+4, WAIH+5
, WAIH+6, WAIH+7, WAIH+8, WAIH+9, WAIH+10, WAIH+11, WT+3, WT+4, WT+5, WP+4
, WP+5, WP+6, WP+7, AM+1, AM+3, AM+4, AM+5, AM+6, AM+7, AM+8
, AM+9, AM+10, AM+11, AM+12, WDB+1, WDB+3
>> GMTSREF WAH+5, WIH+6, WAIH+5, WAIH+7
GMTST ST+1~*, ST+2*, ST+3, ST+4
I WT~, WT+1, WP~, WP+2, AM~, AM+1, WDB~, WDB+1
>> PDATE WH+4*, WIH+5, WIH+6, WAIH+6, WAIH+7
>> PN("AUTH" WH+5, WAH+6, WIH+7, WAIH+8
>> PN("DATE" WH+2, WH+4, WAH+2, WIH+2, WIH+4, WAIH+2
>> PN("DOCTYPE" WH+2, WH+4, WDH+3, WAH+2, WIH+2, WIH+4, WAIH+2
>> PN("SUBJ" WH+4, WH+6, WAH+7, WAH+8, WIH+4, WIH+8, WIH+9, WAIH+9, WAIH+10, WAIH+11
>> PN("VHATYPE" WH+3, WDH+3, WDH+4, WAH+3, WIH+3, WAIH+3
>> PSUB WH+4*, WIH+9, WAIH+11
>> PTYPE WH+4*, WIH+5, WIH+6, WAIH+6, WAIH+7
>> STATUS WDH+2, WDB+4
>> TIUNAM WP+1
>> TSPEC WDH+5
X ST~, ST+1, WT~, WT+1, WP~, WP+2, AM~, AM+1, WDB~, WDB+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All