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

Package Total Caller Graph
Health Summary 79 GMTS  GMTS1  GMTSADH2  GMTSADH5  GMTSADHC  GMTSALG  GMTSAMIE  GMTSCNB  
GMTSDA  GMTSDCB  GMTSDEM  GMTSDEM2  GMTSDGA  GMTSDGA1  GMTSDGA2  GMTSDGC2  
GMTSDGCH  GMTSDGH  GMTSDGP  GMTSDVR  GMTSFH  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  GMTSPSZO  
GMTSPXEP  GMTSPXFP  GMTSPXHR  GMTSPXIM  GMTSPXOP  GMTSPXSK  GMTSPXTP  GMTSPXXP  
GMTSRAD  GMTSRAE  GMTSRAI  GMTSRAS  GMTSRASP  GMTSRO  GMTSROB  GMTSROE  
GMTSRON  GMTSSCD  GMTSSOWK  GMTSUP  GMTSVS  GMTSVSD  GMTSVSS  
Health Summary Components 45 BHSALG  BHSAPRO  BHSAST1  BHSBCH  BHSBH  BHSDEN1  BHSDEN2  BHSDM5  
BHSENC  BHSENC2  BHSENCS  BHSENCW  BHSEXAM  BHSEYEKG  BHSFAM1  BHSFH  
BHSFH1  BHSFLOA  BHSHOS  BHSHS1  BHSINSUR  BHSLAB  BHSLAB1  BHSLABA  
BHSLABB  BHSMBN  BHSMEA  BHSMEAP  BHSMED  BHSMEDAL  BHSMEDCS  BHSMEDH  
BHSMEDI  BHSMSUP  BHSMSUP1  BHSNRS  BHSPED  BHSPHN  BHSPL  BHSPLST  
BHSPLST1  BHSPSO7A  BHSRAD  BHSSKIN  BHSSUR  
Clinical Scheduling for Windows 1 BSDX41C  
IHS Mods To Text Integration Utilities 1 BTIUPCC1  

Entry Points

Name Comments DBIA/ICR reference
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
FNAM(X) ; File Name
FLOC(X) ; File location
REGDT ; Receives X FM date and returns X in MM/DD/YY format
EDT(X) ; Health Summary External Date and Time
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
;
REGDT4 ; Receives X FM date and returns X in MM/DD/YYYY format
FLDS(X,Y) ; Field Set of Codes
PROK(X,Y) ; Routine and Patch # OK (in UCI)
ROK(X) ; Routine OK (in UCI) (NDBI)
HL7FMDTM ; Convert X - HL7 CCYYMMDDHHMM-HHHH to int date/time local
OED() ; Other Editor - DIC("S")
MTIM ; Convert Time from X=2890313.1304 to X=13:04
CMU(X) ; Component Uses CPT Modifiers
REGDTM4 ; Receives X FM date and returns X in MM/DD/YYYY TT:TT
FCLR(X) ; File Closed Root
FHDD(X) ; File has a DD?
GETRANGE(FROMDATE,TODATE) ; Select Date Range (from and to dates)
FLDI(X,Y) ; Field Input Transform
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
;
FSFN(X) ; File/Sub-File Name
REGDTM ; Receives X FM date and returns X in MM/DD/YY TT:TT
ED(X) ; Health Summary External Date
FLDN(X,Y) ; Field Name
SIDT ; Receives X FM date and returns X in DD MMM YY
NDBI(X) ; National Database Integration site 1 = yes 0 = no
CPT(X) ; Use CPT Modifiers Needs GMTSEG Array
FMHL7DTM ; Convert X - int date/time to HL7 CCYYMMDDHHMM-HHHH
  • ICR #1505
    • Status: Withdrawn
    • Usage: Private

    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