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

Package: Health Summary

Routine: GMTSDGC1


Information

GMTSDGC1 ; SLC/KER/SBW - Subroutines for Ext ADT Hist ;06/25/15 15:47

Source Information

Source file <GMTSDGC1.m>

Entry Points

Name Comments DBIA/ICR reference
OTHER(DFN,PTF,CODE,GMVAIP,MDA) ; Additional data to include
GETDATA ; Gets LOS, ICD and bedsection data
NXTICD ; Print the next ICD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?12,"Adm. Diag: ",GMVAIP("MF")
  • Line Location: OTHER+6
Function Call: WRITE
  • Prompt: ?64,"LOS: ",LOS,!
  • Line Location: OTHER+7
Function Call: WRITE
  • Prompt: ?11,"Bedsection: ",BDSC,?64,"LOS: ",LOS,!
  • Line Location: OTHER+18
Function Call: WRITE
  • Prompt: ?7,"Principal Diag: No discharge diagnosis available.",!
  • Line Location: OTHER+22
Function Call: WRITE
  • Prompt: ?4,"Disposition Place: ",DSPL,!
  • Line Location: OTHER+23
Function Call: WRITE
  • Prompt: ?4,"Outpat. Treatment: ",OPTR,!
  • Line Location: OTHER+24
Function Call: WRITE
  • Prompt: !
  • Line Location: OTHER+25
Function Call: WRITE
  • Prompt: ?14,"TS Diag: "
  • Line Location: OTHER+34
Function Call: WRITE
  • Prompt: ?23,^UTILITY($J,"W",GMJ,GMJ1,0),!
  • Line Location: OTHER+36
Function Call: WRITE
  • Prompt: ?23,GMTO,?61,GMTNO,!
  • Line Location: NXTICD+5
Info |  Source |  Entry Points |  Interaction Calls