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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMTSDGC1

Package: Health Summary

Routine: GMTSDGC1


Information

GMTSDGC1 ; SLC/KER/SBW - Subroutines for Ext ADT Hist ; 03/24/2004 [8/25/04 9:59am]

Source Information

Source file <GMTSDGC1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 EN^DIQ1  ^DIWP  
DRG Grouper 1 $$ICDDX^ICDCODE  
Health Summary 1 CKP^GMTSUP  
Registration 1 ^DGPMLOS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary 1 GMTSDGCH  

Entry Points

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

External References

Name Field # of Occurrence
^DGPMLOS GETDATA+3
EN^DIQ1 GETDATA+6
^DIWP OTHER+31
CKP^GMTSUP OTHER+6, OTHER+10, OTHER+14, OTHER+18, OTHER+21, OTHER+23, OTHER+24, OTHER+25, OTHER+34, OTHER+36
, NXTICD+5
$$ICDDX^ICDCODE GETDATA+13, GETDATA+17, GETDATA+21

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,?69,GMTNO,!
  • Line Location: NXTICD+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] OTHER+13, OTHER+30, OTHER+31
^DGPT - [#45] GETDATA+4, GETDATA+11
^ICD9 - [#80] GETDATA+10
^UTILITY($J OTHER+28!, OTHER+32, OTHER+33, OTHER+36, OTHER+37!

Label References

Name Line Occurrences
GETDATA OTHER+5, OTHER+17
NXTICD OTHER+10, OTHER+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATTN OTHER+1~
AWS OTHER+1~
BD OTHER+1~
BDSC OTHER+1~, OTHER+18, GETDATA+5*, GETDATA+7*
CODE OTHER~, OTHER+3, OTHER+11, OTHER+15, OTHER+26
DA GETDATA+1~, GETDATA+6*, GETDATA+7, GETDATA+8, GETDATA+9
DFN OTHER~
DGPMIFN OTHER+1~, GETDATA+2*, GETDATA+3
DIC GETDATA+1~, GETDATA+6*, GETDATA+11*
DIQ GETDATA+1~, GETDATA+6*
DIWF OTHER+27~, OTHER+29*
DIWL OTHER+27~, OTHER+29*
DIWR OTHER+27~, OTHER+29*
DP OTHER+2~
DR GETDATA+1~, GETDATA+6*, GETDATA+11*
DSPL OTHER+2~, OTHER+23, GETDATA+5*, GETDATA+9*
GMI OTHER+1~, OTHER+9*, OTHER+10*, OTHER+19*, OTHER+20*, NXTICD+1, NXTICD+2, NXTICD+3, NXTICD+4
GMJ OTHER+27~, OTHER+31*, OTHER+33*, OTHER+36
GMJ1 OTHER+27~, OTHER+35*, OTHER+36*
GMTNO OTHER+1~, NXTICD+1*, NXTICD+5
GMTO OTHER+1~, NXTICD+1*, NXTICD+5
GMTSI GETDATA+1~, GETDATA+20*, GETDATA+22, GETDATA+23
>> GMTSNPG OTHER+25
>> GMTSQIT OTHER+6, OTHER+10, OTHER+14, OTHER+18, OTHER+21, OTHER+23, OTHER+24, OTHER+25, OTHER+34, OTHER+36
, NXTICD+5
GMVAIP OTHER~
GMVAIP("AN" GETDATA+2
GMVAIP("DN" OTHER+4
GMVAIP("MF" OTHER+6
GMVAIP("WL" OTHER+14
GMX OTHER+1~, OTHER+10*, OTHER+20*, NXTICD+1
ICD OTHER+1~, OTHER+8, GETDATA+11*, GETDATA+12, GETDATA+16, GETDATA+20
ICD( OTHER+10, OTHER+20, GETDATA+22*, GETDATA+23*, NXTICD+1
ICD(1 GETDATA+14*, GETDATA+15*
ICD(2 GETDATA+18*, GETDATA+19*
>> ICDI GETDATA+12*, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16*, GETDATA+17, GETDATA+18, GETDATA+19, GETDATA+20*, GETDATA+21
, GETDATA+22, GETDATA+23
>> ICDX GETDATA+13*, GETDATA+14, GETDATA+15, GETDATA+17*, GETDATA+18, GETDATA+19, GETDATA+21*, GETDATA+22, GETDATA+23
LOS OTHER+1~, OTHER+7, OTHER+18, GETDATA+3*
MDA OTHER~, OTHER+13, OTHER+30, OTHER+31
NODIAG OTHER+1~, OTHER+19*, OTHER+21, NXTICD+6*
OP OTHER+2~
OPTR OTHER+2~, OTHER+24, GETDATA+5*, GETDATA+8*
PTF OTHER~, GETDATA+4, GETDATA+6, GETDATA+11
PTFA GETDATA+1~
PTFA(45 GETDATA+7, GETDATA+8, GETDATA+9
TRFAC OTHER+12~, OTHER+13*, OTHER+14
U OTHER+13, OTHER+14, GETDATA+12, GETDATA+16, GETDATA+20
>> VAIP("MT" OTHER+14
>> VAIP("WL" OTHER+14
WARD OTHER+1~
X OTHER+31*, GETDATA+1~, GETDATA+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All