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

Package: Health Summary

Routine: GMTSDGA1


Information

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

Source Information

Source file <GMTSDGA1.m>

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

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