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 |  Marked Items |  All
Print Page as PDF
Routine: GMTSU

Package: Health Summary

Routine: GMTSU


Information

GMTSU ; SLC/JER,KER/NDBI - Health Summary Utilities ; 08/27/2002

Source Information

Source file <GMTSU.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 %XY^%RCR  ($$GET1,FILE)^DID  $$VFIELD^DILFD  ^DIR  
Kernel 2 ($$FMTE,$$FMTHL7,$$HL7TFM)^XLFDT  $$UP^XLFSTR  
Health Summary 1 ($$UACT,$$UNAM)^GMTSU2  
Registration 1 OERR^VADPT  

Caller Graph

Caller Graph Total: 83

Package Total Caller Graph
Health Summary 83 GMTS  GMTS1  GMTSADH2  GMTSADH5  GMTSADHC  GMTSALG  GMTSAMIE  GMTSCNB  
GMTSDA  GMTSDCB  GMTSDEM  GMTSDEM2  GMTSDGA  GMTSDGA1  GMTSDGA2  GMTSDGC2  
GMTSDGCH  GMTSDGH  GMTSDGP  GMTSDVR  GMTSFH  GMTSFH1  GMTSGAF  GMTSHCPR  
GMTSLRA  GMTSLRAE  GMTSLRB  GMTSLRBE  GMTSLRCE  GMTSLRCP  GMTSLREE  GMTSLREM  
GMTSLRME  GMTSLROE  GMTSLRPE  GMTSLRSE  GMTSLRT  GMTSLTR  GMTSMAG  GMTSMCPZ  
GMTSOBH  GMTSORC3  GMTSPCD  GMTSPD  GMTSPL  GMTSPLST  GMTSPN  GMTSPN2  
GMTSPNB  GMTSPOST  GMTSPSG  GMTSPSG5  GMTSPSI  GMTSPSI5  GMTSPSO  GMTSPSO7  
GMTSPSO8  GMTSPSO9  GMTSPSZO  GMTSPXEP  GMTSPXFP  GMTSPXIM  GMTSPXOP  GMTSPXSK  
GMTSPXTP  GMTSPXXP  GMTSRAD  GMTSRAE  GMTSRAI  GMTSRAS  GMTSRASP  GMTSRO  
GMTSROB  GMTSROE  GMTSRON  GMTSSCD  GMTSSOWK  GMTSUP  GMTSVS  GMTSVSD  
GMTSVSS  GMTSYTQL  GMTSYTQS  

Entry Points

Name Comments DBIA/ICR reference
PROK(X,Y) ; Routine and Patch # OK (in UCI)
ROK(X) ; Routine OK (in UCI) (NDBI)
NDBI(X) ; National Database Integration site 1 = yes 0 = no
CPT(X) ; Use CPT Modifiers Needs GMTSEG Array
CMU(X) ; Component Uses CPT Modifiers
ED(X) ; Health Summary External Date
EDT(X) ; Health Summary External Date and Time
REGDT ; Receives X FM date and returns X in MM/DD/YY format
REGDT4 ; Receives X FM date and returns X in MM/DD/YYYY format
REGDTM ; Receives X FM date and returns X in MM/DD/YY TT:TT
REGDTM4 ; Receives X FM date and returns X in MM/DD/YYYY TT:TT
SIDT ; Receives X FM date and returns X in DD MMM YY
MTIM ; Convert Time from X=2890313.1304 to X=13:04
HF(X) ; Host File - Used to distinguish from Host Files that
; are intended for Printers and Host Files for other
; purposes (windows/files)
;
; 1 - if Device Type is HFS and not a TCP/IP Printer
; 0 - if Device Type is not HFS or device is a Printer
;
; Check Device
; Check Host File Server
FMHL7DTM ; Convert X - int date/time to HL7 CCYYMMDDHHMM-HHHH
  • ICR #1505
    • Status: Withdrawn
    • Usage: Private
    HL7FMDTM ; Convert X - HL7 CCYYMMDDHHMM-HHHH to int date/time local
    DEM ; Gets Demographic Data from VADPT
    ;
    ; Input DFN
    ;
    ; Output GMTSPNM Patient Name
    ; GMTSSN Social Security Number
    ; GMTSDOB Date of Birth
    ; SEX Sex
    ; GMTSWARD Ward
    ; GMTSRB Bed
    ; GMTSAGE Age
    ; VADM() Demographic Array
    ; VAIN() Inpatient Array
    ; GMTSPHDR() Report Header Array
    ;
    NAME(X,Y,L) ; Format name
    ;
    ; Input
    ; X Internal Entry Number of NEW PERSON file 200
    ; Y Flag to specify the first name format
    ; 0 for First Name Initial (only)
    ; 1 for First Name
    ; L Maximum Length of Name
    ;
    ; Output Last,First (name/initial) to specified length
    ;
    GETRANGE(FROMDATE,TODATE) ; Select Date Range (from and to dates)
    OED() ; Other Editor - DIC("S")
    FCLR(X) ; File Closed Root
    FSFN(X) ; File/Sub-File Name
    FNAM(X) ; File Name
    FLOC(X) ; File location
    FHDD(X) ; File has a DD?
    FLDN(X,Y) ; Field Name
    FLDS(X,Y) ; Field Set of Codes
    FLDI(X,Y) ; Field Input Transform

    External References

    Name Field # of Occurrence
    %XY^%RCR FSFN+3
    $$GET1^DID FLDN+1, FLDS+1, FLDI+1
    FILE^DID FSFN+1, FNAM+1, FLOC+1
    $$VFIELD^DILFD FHDD+1
    ^DIR GETRANGE+2, GETRANGE+6
    $$UACT^GMTSU2 OED+2, OED+12
    $$UNAM^GMTSU2 NAME+13, OED+2
    OERR^VADPT DEM+15
    $$FMTE^XLFDT REGDT+1, REGDT4+1, REGDTM+1, REGDTM4+1, GETRANGE+4
    $$FMTHL7^XLFDT FMHL7DTM+1
    $$HL7TFM^XLFDT HL7FMDTM+1
    $$UP^XLFSTR GETRANGE+4, FSFN+2, FSFN+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: GETRANGE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: GETRANGE+2
    Function Call: WRITE
    • Prompt: " (",$$UP^XLFSTR($$FMTE^XLFDT(+FROMDATE,1)),")"
    • Line Location: GETRANGE+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: GETRANGE+10
    Routine Call
    • DIR
    • Line Location:
      • GETRANGE+2
      • GETRANGE+6

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" ROK+1, NDBI+1
    ^A7RCP NDBI+1
    ^GMT(142 - [#142] OED+1, OED+2
    ^GMT(142.1 - [#142.1] CMU+1, CMU+2

    Label References

    Name Line Occurrences
    $$CMU CPT+3
    $$FLOC FCLR+1
    $$PROK HF+11
    $$ROK PROK+2
    REGDT4 ED+1, DEM+18
    REGDTM4 EDT+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %X FSFN+1~, FSFN+3*
    %Y FSFN+1~, FSFN+3*
    ALPHA NAME+11~, NAME+15*, NAME+17*, NAME+18
    AUSER OED+1~, OED+2*, OED+10, OED+12*
    CH NAME+11~, NAME+17*
    COMP OED+1~*, OED+2
    >> DA(1 OED+1
    DIERR FSFN+1~, FSFN+2, FNAM+1~, FLOC+1~
    DIR GETRANGE+1~, GETRANGE+5~
    DIR("A" GETRANGE+1*, GETRANGE+5*
    DIR("B" GETRANGE+5*
    DIR(0 GETRANGE+1*, GETRANGE+5*
    >> DIROUT GETRANGE+2, GETRANGE+6
    DIRUT GETRANGE+1~, GETRANGE+2, GETRANGE+6
    DOB DEM+18~, DEM+21*, DEM+22
    DTOUT GETRANGE+1~, GETRANGE+2, GETRANGE+6
    >> DUOUT GETRANGE+2, GETRANGE+6
    DUZ OED+2
    FI FSFN+1~*, FSFN+3
    FIRST NAME+11~, NAME+15*, NAME+16, NAME+17, NAME+18*, NAME+19*, NAME+20
    FNF NAME+11~, NAME+12*, NAME+19
    FR FSFN+1~, FSFN+3!
    FR("" FSFN+3
    FRDT GETRANGE+9~*
    FROMDATE GETRANGE~, GETRANGE+3*, GETRANGE+4, GETRANGE+6!, GETRANGE+7!, GETRANGE+8, GETRANGE+9*
    G NDBI+1~*
    GMTS PROK+1~, PROK+2*, PROK+3
    GMTS85 HF+11~*, HF+12
    GMTSA CPT+1~, CPT+3*, CMU+1~*, CMU+2*
    >> GMTSAGE DEM+16*
    GMTSC CPT+1~*, CPT+3
    >> GMTSDOB DEM+18*, DEM+21
    GMTSE FSFN+1~, FNAM+1~, FLOC+1~
    >> GMTSEG( CPT+1
    GMTSI PROK+1~, PROK+3*, CPT+1~, CMU+1~*, CMU+2
    GMTSL FCLR+1~*
    GMTSM CPT+1~, CPT+2*
    GMTSN CPT+1~*, CPT+2, CMU+1~*, FSFN+1~, FNAM+1~, FLOC+1~
    GMTSN("GLOBAL NAME" , FLOC+1
    GMTSN("NAME" FSFN+2, FNAM+1
    GMTSO PROK+1~, PROK+2*, PROK+3*, PROK+4
    GMTSPHDR DEM+18!
    GMTSPHDR("DOB" DEM+22*
    GMTSPHDR("DOBS" DEM+22*
    GMTSPHDR("NMSSN" DEM+21*
    GMTSPHDR("TWO" DEM+23*
    GMTSPHDR("WARDRB" DEM+21*
    GMTSPHDR("WARDRBS" DEM+22*
    >> GMTSPNM DEM+15*, DEM+19
    >> GMTSRB DEM+17*, DEM+19
    >> GMTSSN DEM+15*, DEM+19
    >> GMTSWARD DEM+17*, DEM+19
    IEN NAME+11~, NAME+12*, NAME+13
    IO HF+16
    ION HF+14, HF+18, HF+20
    IOST HF+21
    >> IOT HF+9
    L NAME~, NAME+12
    LAST NAME+11~, NAME+15*, NAME+20
    LEN NAME+11~, NAME+12*, NAME+13*, NAME+20
    LWARDRB DEM+18~, DEM+20*
    MM SIDT+1~, SIDT+3*, SIDT+4
    MON SIDT+1~, SIDT+2*, SIDT+3
    NAT OED+1~, OED+2*, OED+4, OED+6, OED+8
    NMSSN DEM+18~, DEM+19*, DEM+21
    NMSSNE DEM+18~, DEM+19*, DEM+23
    >> ORWINDEV HF+12
    OTHER OED+1~, OED+2*, OED+12, OED+14
    OWNER OED+1~, OED+2*, OED+6, OED+8, OED+10, OED+14
    OWNN OED+1~, OED+2*, OED+14
    PSN NAME+11~, NAME+17*
    R NDBI+1~*
    RAWNM NAME+11~, NAME+13*, NAME+14*, NAME+15
    >> SEX DEM+16*
    TODATE GETRANGE~, GETRANGE+8*, GETRANGE+9*
    U SIDT+3
    USER OED+1~, OED+2*, OED+8, OED+10
    VA DEM+18!
    VA("PID" DEM+15
    >> VADM(1 DEM+15
    >> VADM(2 DEM+15
    >> VADM(3 DEM+18
    >> VADM(4 DEM+16
    >> VADM(5 DEM+16
    VAHOW DEM+15!
    >> VAIN(4 DEM+17
    >> VAIN(5 DEM+17
    WARDRB DEM+18~, DEM+19*, DEM+20, DEM+21
    WARDRBE DEM+18~, DEM+20*, DEM+23
    WARDRBS DEM+18~, DEM+20*, DEM+22, DEM+23
    X PROK~, PROK+1*, PROK+2, PROK+4*, ROK~, ROK+1*, NDBI~, NDBI+1*, CPT~, CPT+1*
    , CMU~, CMU+1*, ED~, ED+1*, EDT~, EDT+1*, REGDT+1*, REGDT4+1*, REGDTM+1*, REGDTM4+1*
    , SIDT+1*, SIDT+3, SIDT+4*, MTIM+1*, HF~, HF+20*, HF+21*, HF+22, FMHL7DTM+1*, HL7FMDTM+1*
    , DEM+18*, NAME~, NAME+12, NAME+20*, NAME+21, GETRANGE+1~, GETRANGE+5~, OED+2, FCLR~, FCLR+1*
    , FCLR+2, FSFN~, FSFN+1, FSFN+2*, FSFN+3*, FNAM~, FNAM+1*, FLOC~, FLOC+1*, FHDD~
    , FHDD+1*, FLDN~, FLDN+1*, FLDS~, FLDS+1*, FLDI~, FLDI+1*
    Y PROK~, PROK+1*, PROK+2*, PROK+3, NAME~, NAME+12, GETRANGE+1~, GETRANGE+3, GETRANGE+5~, GETRANGE+7
    , GETRANGE+8, FLDN~, FLDN+1, FLDS~, FLDS+1, FLDI~, FLDI+1

    Marked Items

    Name Field # of Occurrence
    $T(@(3) PROK+2
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All