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

Package: Health Summary

Routine: GMTSDGA1


Information

GMTSDGA1 ; SLC/MKB,KER - Admissions (cont) ; 02/27/2002

Source Information

Source file <GMTSDGA1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Health Summary 2 (MTIM,REGDT4)^GMTSU  CKP^GMTSUP  
VA FileMan 1 EN^DIQ1  

Entry Points

Name Comments DBIA/ICR reference
TROUT ; Transfers Output
DCOUT ; Discharges Output
BDO ; Bedsection/Disposition/Outpatient Treatment
DXOUT ; PTF Discharge Diagnosis Output
ADOUT ; Admissions Output
NXT ; Next Diagnosis

External References

Name Field # of Occurrence
EN^DIQ1 BDO+1
MTIM^GMTSU TROUT+1
REGDT4^GMTSU DCOUT+2, DXOUT+4, ADOUT+5
CKP^GMTSUP TROUT+2, TROUT+3, DCOUT+1, DCOUT+3, DCOUT+5, DCOUT+6, DCOUT+7, DCOUT+8, DCOUT+9, DXOUT+1
, DXOUT+2, DXOUT+7, DXOUT+8, ADOUT+1, ADOUT+2, ADOUT+9, ADOUT+10, ADOUT+11, ADOUT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?24,TRFAC,!
  • Line Location: TROUT+3
Function Call: WRITE
  • Prompt: " Date of Discharge: ",X,!
  • Line Location: DCOUT+2
Function Call: WRITE
  • Prompt: ?16,"DXLS: ",ICD(ADM,2,80,+$P(ICD,U,10),3),!
  • Line Location: DCOUT+3
Function Call: WRITE
  • Prompt: ?10,"Bedsection: ",BDSC,!
  • Line Location: DCOUT+5
Function Call: WRITE
  • Prompt: " Disposition Type: ",$P(VAIP(17,3),U,2),!
  • Line Location: DCOUT+6
Function Call: WRITE
  • Prompt: " Disposition Place: ",DSPL,!
  • Line Location: DCOUT+7
Function Call: WRITE
  • Prompt: "Outpatient Treatment: ",OPTR,!
  • Line Location: DCOUT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DCOUT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DXOUT+1
Function Call: WRITE
  • Prompt: DDT," - ",ADT,?57,"LOS: ",LOS,!
  • Line Location: DXOUT+5
Function Call: WRITE
  • Prompt: "No discharge diagnosis available for this admission.",!
  • Line Location: DXOUT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ADOUT+1
Function Call: WRITE
  • Prompt: ADT," - ",DDT
  • Line Location: ADOUT+6
Function Call: WRITE
  • Prompt: ?25,GMTSWARD," ",GMTSRB
  • Line Location: ADOUT+6
Function Call: WRITE
  • Prompt: ?56,"LOS: ",LOS,!
  • Line Location: ADOUT+7
Function Call: WRITE
  • Prompt: " Last Tr Specialty: ",$E(SPEC,1,25),?50,"Last Prov: ",$E($P($G(VAIP(14,5)),U,2),1,15),!
  • Line Location: ADOUT+9
Function Call: WRITE
  • Prompt: "Admitting Diagnosis: ",$G(VAIP(13,7)),!
  • Line Location: ADOUT+10
Function Call: WRITE
  • Prompt: " Bedsection: ",$S(+($P(^DGPT(PTF,70),U,2))>0:$P($G(^DIC(42.4,+$P(^DGPT(PTF,70),U,2),0)),U),1:""),!
  • Line Location: ADOUT+11
Function Call: WRITE
  • Prompt: ?13,"ICD DX: "
  • Condition for execution: GMI=3
  • Line Location: NXT+3
Function Call: WRITE
  • Prompt: ?21,GMTO,?62,GMTNO,!
  • Line Location: NXT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] TROUT+3
^DGPT - [#45] DCOUT+4, ADOUT+11
^DIC(42.4 - [#42.4] ADOUT+8, ADOUT+11
^DIC(45.7 - [#45.7] ADOUT+8

Label References

Name Line Occurrences
BDO DCOUT+4
NXT DXOUT+7, ADOUT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADA TROUT+3
>> ADATE TROUT+1
>> ADM DCOUT+3, DXOUT+7, ADOUT+12, NXT+1
>> ADT TROUT+1*, TROUT+2, DXOUT+5, ADOUT+6
BDSC DCOUT+1~, DCOUT+5, BDO+2*
DA BDO+1~*, BDO+2, BDO+3, BDO+4
>> DDT DXOUT+4*, DXOUT+5, ADOUT+4*, ADOUT+5*, ADOUT+6
DIC BDO+1~*
DIQ BDO+1~*
DR BDO+1~*
DSPL DCOUT+1~, DCOUT+7, BDO+4*
>> FLAG DXOUT+1, DXOUT+3*, ADOUT+1, ADOUT+3*
>> GMC DCOUT+1*
>> GMI DXOUT+6*, DXOUT+7*, ADOUT+12*, NXT+1, NXT+2, NXT+3
>> GMTNO NXT+1*, NXT+3
>> GMTO NXT+1*, NXT+3
>> GMTSNPG DCOUT+9, DXOUT+1, ADOUT+1
>> GMTSQIT TROUT+2, TROUT+3, DCOUT+1, DCOUT+3, DCOUT+5, DCOUT+6, DCOUT+7, DCOUT+8, DCOUT+9, DXOUT+1
, DXOUT+2, DXOUT+7, DXOUT+8, ADOUT+1, ADOUT+2, ADOUT+9, ADOUT+10, ADOUT+11, ADOUT+12
>> GMTSRB ADOUT+6
>> GMTSWARD ADOUT+6
>> GMX DXOUT+7*, ADOUT+12*, NXT+1
>> ICD DCOUT+3, ADOUT+12
>> ICD( DCOUT+3, DXOUT+7, ADOUT+12, NXT+1
>> LOS DXOUT+5, ADOUT+7
NODIAG DXOUT+6*, DXOUT+8!, NXT+4*
OPTR DCOUT+1~, DCOUT+8, BDO+3*
>> PTF DCOUT+4, BDO+1*, ADOUT+11
>> PTF70 DCOUT+4*
PTFA BDO+1~
PTFA(45 BDO+2, BDO+3, BDO+4
>> PTFLG DCOUT+4*
>> SPEC ADOUT+8*, ADOUT+9
>> TI TROUT+1*
TRFAC TROUT+3*!
>> TS ADOUT+8*
U TROUT+2, TROUT+3, DCOUT+3, DCOUT+6, ADOUT+5, ADOUT+8, ADOUT+9, ADOUT+11
>> VAIP(13 DXOUT+4, ADOUT+10
>> VAIP(14 ADOUT+8, ADOUT+9
>> VAIP(17 DCOUT+1, DCOUT+2, DCOUT+6, ADOUT+4, ADOUT+5, ADOUT+6, ADOUT+10
>> VAIP(4 TROUT+2
>> VAIP(5 TROUT+2
>> X TROUT+1*, DCOUT+2*, DXOUT+4*, ADOUT+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All