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

Package: Health Summary

Routine: GMTSDGCH


Information

GMTSDGCH ; SLC/KER/NDBI - Extended ADT Hist ; 09/21/2001

Source Information

Source file <GMTSDGCH.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Summary 5 GETFADM^GMTSDGA2  OTHER^GMTSDGC1  (ICDP,ICDS)^GMTSDGC2  ($$NDBI,$$ROK,REGDT4,REGDTM4)^GMTSU  CKP^GMTSUP  
NDBI 1 (DSP,LST)^A7RHSM  
Registration 1 (ELIG,IN5,KVAR)^VADPT  
VA FileMan 1 EN^DIQ1  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Loop through admissions starting from most recent
MVTS ; Loop through mvts chronologically, per admission
GET ; D IN5^VADPT for each mvt, print info
PRNT ; output line of data
SETUTL ; Set ^UTILITY array
NEXT1 ; Next ^UTILITY($J,"GMTSMVTS",<inverse date>) - "ATS"
NEXT2 ; Next ^UTILITY($J,"GMTSMVTS",<date>) - "APCA"
DISAB ; Disability Display
FADM ; Future Admissions

External References

Name Field # of Occurrence
DSP^A7RHSM MAIN+5
LST^A7RHSM MAIN+4
EN^DIQ1 DISAB+13
GETFADM^GMTSDGA2 FADM+3
OTHER^GMTSDGC1 PRNT+20
ICDP^GMTSDGC2 MAIN+7
ICDS^GMTSDGC2 MAIN+7
$$NDBI^GMTSU MAIN+4, MAIN+5
$$ROK^GMTSU MAIN+4, MAIN+5
REGDT4^GMTSU FADM+8
REGDTM4^GMTSU PRNT+1
CKP^GMTSUP MVTS+5, PRNT+2, DISAB+4, DISAB+6, DISAB+8, DISAB+14, DISAB+15, FADM+9, FADM+11, FADM+12
, FADM+15
ELIG^VADPT DISAB+2
IN5^VADPT MVTS+4, GET+3
KVAR^VADPT MAIN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X,?18,TT,?23,$E(TYPE,1,56),!
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: ?3,AWS,?56,SPEC,!
  • Line Location: PRNT+12
Function Call: WRITE
  • Prompt: ?7,AWS,?56,WARD,!
  • Line Location: PRNT+18
Function Call: WRITE
  • Prompt: "Eligibility: ",$E($P(VAEL("EL"),U,2),1,40)
  • Line Location: DISAB+4
Function Call: WRITE
  • Prompt: !," No rated disabilities"
  • Line Location: DISAB+8
Function Call: WRITE
  • Prompt: !?3,GMTSDIS(2.04,DA,.01,"E"),?51,$J(GMTSDIS(2.04,DA,2,"E"),3),"%",?60,$S(GMTSDIS(2.04,DA,3,"E")="YES":"S/C",1:"NSC")
  • Line Location: DISAB+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DISAB+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FADM+9
Function Call: WRITE
  • Prompt: X,?16,"Scheduled Admission",?56,$E($P(NODE,U,5),1,12),?69,$E($P(NODE,U,3),1,10),!
  • Line Location: FADM+11
Function Call: WRITE
  • Prompt: ?11,"Adm. Diag.: ",$P(NODE,U,2)
  • Line Location: FADM+13
Function Call: WRITE
  • Prompt: ?56,"Expected LOS: ",$P(NODE,U,6),!
  • Line Location: FADM+14
Function Call: WRITE
  • Prompt: ?14,"Surgery: ",$P(NODE,U,4),!
  • Line Location: FADM+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APCA" SETUTL+3, NEXT2+1
^DGPM("ATID1" MAIN+5, MVTS+1
^DGPM("ATS" SETUTL+2, NEXT1+1, NEXT1+2
^DPT - [#2] DISAB+7, DISAB+10
^TMP("GMFADM" FADM+2!, FADM+4, FADM+6, FADM+7, FADM+17!
^UTILITY($J MAIN+8!, MVTS+3!, MVTS+8, MVTS+10!, GET+1, GET+3, NEXT1+3*, NEXT2+2*

Label References

Name Line Occurrences
DISAB MAIN+3
FADM MAIN+3
GET MVTS+8
MVTS MAIN+6
NEXT1 SETUTL+2
NEXT2 SETUTL+3
PRNT MVTS+5, GET+4
SETUTL MVTS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A7RHS MAIN+4, MAIN+9!
ADA MAIN+1~, MVTS+1*, MVTS+4, GET+1, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1, NEXT2+2
ADM MAIN+1~, MAIN+2*, MAIN+5*, MVTS+1
ATTN PRNT+3~, PRNT+14*, PRNT+16, PRNT+17, PRNT+19
AWS PRNT+11~*, PRNT+12, PRNT+17*, PRNT+18
CNTR MAIN+1~, MAIN+2*, MAIN+5, MVTS+9*
CODE MAIN+1~, PRNT+3~, PRNT+5*, PRNT+7, PRNT+20
DA DISAB+11~, DISAB+12*, DISAB+14
>> DFN MAIN+4, MAIN+5, MAIN+7, MVTS+1, PRNT+20, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1
, DISAB+7, DISAB+10, DISAB+12
DIC DISAB+11~, DISAB+12*
DIQ DISAB+11~, DISAB+12*
DIQ(0 DISAB+12*
DOC MAIN+1~, PRNT+3~, PRNT+4*, PRNT+10, PRNT+11, PRNT+13
DR DISAB+11~, DISAB+12*
FLAG MAIN+1~, MAIN+2*, MVTS+5, PRNT+21*, DISAB+3*, FADM+9, FADM+10*
GMC MAIN+1~, MAIN+2*, MAIN+6*, PRNT+8*
GMDT FADM+1~, FADM+5*, FADM+6*, FADM+7
GMMDA MAIN+1~, MVTS+4*, GET+3*, PRNT+20
>> GMTS1 MAIN+2
>> GMTS2 MAIN+5
GMTSDIS DISAB+11~
GMTSDIS( DISAB+14
GMTSI DISAB+1~, DISAB+9*, DISAB+10*, DISAB+12
>> GMTSNDM MAIN+2
>> GMTSQIT MVTS+5, PRNT+2, DISAB+4, DISAB+6, DISAB+8, DISAB+14, DISAB+15, FADM+9, FADM+11, FADM+12
, FADM+15
GMW DISAB+1~
IM MAIN+1~
IN MAIN+1~
ITS MAIN+1~
MDA MAIN+1~, NEXT2+1*, NEXT2+2
MDM MAIN+1~, MVTS+7*, MVTS+8*, GET+1, GET+3, SETUTL+1*, SETUTL+3*, NEXT2+1, NEXT2+2
NODE FADM+1~, FADM+7*, FADM+8, FADM+11, FADM+13, FADM+14, FADM+16
PREVAP MVTS+2~, PRNT+16, PRNT+19*
PREVDR MVTS+2~, PRNT+10, PRNT+13*
PREVSP MVTS+2~, PRNT+10, PRNT+13*
PREVWD MVTS+2~, PRNT+16, PRNT+19*
PTF MAIN+1~, MAIN+7, PRNT+6*, PRNT+20
SPEC MAIN+1~, PRNT+3~, PRNT+5*, PRNT+10, PRNT+12, PRNT+13
TS MAIN+1~, NEXT1+1*, NEXT1+2
TSDA MAIN+1~, NEXT1+2*, NEXT1+3
TSDM MAIN+1~, SETUTL+1*, SETUTL+2*, NEXT1+1, NEXT1+2, NEXT1+3
TT MAIN+1~, PRNT+7*, PRNT+9
TYPE MAIN+1~, PRNT+3~, PRNT+4*, PRNT+9
U PRNT+1, PRNT+4, PRNT+5, DISAB+4, DISAB+5, DISAB+6, FADM+8, FADM+11, FADM+13, FADM+14
, FADM+16
VA DISAB+1~
VA200 MAIN+1~, MAIN+2*
VADM DISAB+1~
VAEL DISAB+1~
VAEL("EL" DISAB+2, DISAB+4
VAEL("ES" DISAB+5
VAEL("SC" DISAB+6
VAERR DISAB+1~
VAHOW MAIN+1~, MAIN+2*
VAIP MAIN+1!, MVTS+2~, MVTS+5, GET+2!, GET+4, PRNT+20
VAIP( PRNT+5
VAIP("AP" PRNT+14
VAIP("DR" PRNT+4
VAIP("E" MVTS+4*, GET+3*
VAIP("MD" PRNT+1
VAIP("MT" PRNT+4
VAIP("PT" PRNT+6
VAIP("TT" PRNT+5
VAIP("WL" PRNT+15
VAPA DISAB+1~
WARD PRNT+3~, PRNT+15*, PRNT+16, PRNT+18, PRNT+19
X MAIN+1~, PRNT+1*, PRNT+9, FADM+1~, FADM+8*, FADM+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All