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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls