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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMTSDVR

Package: Health Summary

Routine: GMTSDVR


Information

GMTSDVR ; SLC/JER,KER - Health Summary Driver ; 04/30/2002

Source Information

Source file <GMTSDVR.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Health Summary 6 EN^GMTS1  (ACTPROF,PATCOPY)^GMTSDVR  $$RXAP^GMTSPD2  PAGE^GMTSPL  ($$PROK,GETRANGE)^GMTSU  $$TYPE^GMTSULT  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$VERSION^XPDUTL  
Order Entry Results Reporting 1 PATIENT^ORU1  
Outpatient Pharmacy 1 DFN^PSOSD1  

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Health Summary 5 GMTS  GMTSADH  GMTSADHC  GMTSDVR  GMTSOBS2  
Radiology Nuclear Medicine 4 RAO7RO  RAORD  RAORD4  RAORDQ  
Order Entry Results Reporting 3 ORPRS13  ORS HEALTH SUMMARY  ORWRP1  
Registration 3 DG1010P  DG1010PA  DGPAR  
Automated Information Collection System 1 IBDFN5  
Clinical Reminders 1 PXRMLPHS  
IHS Patient Merge 1 BPMMRG  
Nursing Service 1 NURCHSUM  
Toolkit 1 XDRRMRG2  

Entry Points

Name Comments DBIA/ICR reference
PQ ; Queued subroutine for HS by patient
ENXQ ; External call for tasked HS print
;
; Input: GMTSTYP=Record # of HS type in file 142
; DFN=Record # of patient in file 2
; GMTSPX1=Optional internal FM ending date
; GMTSPX2=Optional internal FM beginning date
;
; NOTE: Optional date range variables are both
; required if a date range is desired.
;
; To call from TaskMan:
; S ZTRTN="ENXQ^GMTSDVR"
; S ZTSAVE("GMTSTYP")=""
; S ZTSAVE("DFN")=""
; D ^%ZTLOAD
  • ICR #242
    • Status: Active
    • Usage: Private
  • ICR #349
    • Status: Active
    • Usage: Private
  • ICR #938
    • Status: Active
    • Usage: Controlled Subscription
    LOADSEG ; Load Enabled Components into GMTSEG Array
    ENX(DFN,GMTSTYP,GMTSPX2,GMTSPX1) ; External call to print a Health Summary
    ;
    ; Input: GMTSTYP=Record # of HS type in file 142
    ; DFN=Record # of patient in file 2
    ; GMTSPX1=Optional internal FM ending date
    ; GMTSPX2=Optional internal FM beginning date
    ;
    ; NOTE: Optional date range variables are both
    ; required if a date range is desired.
    ;
  • ICR #349
    • Status: Active
    • Usage: Private
  • ICR #744
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #938
    • Status: Active
    • Usage: Controlled Subscription
    HSOUT ; Output summary, with device control
    ; Call with: ZTRTN
    SELFILE ; Get Selection item information for GMTSEG(
    NOQUE ; Do Not Queue Output
    SELTYP ; Select Health Summary Type(s)
  • ICR #938
    • Status: Active
    • Usage: Controlled Subscription
    PTPC ; Combined Patient/Patient Copy
    QUE ; Queue output
    RESUB(GMP) ; Resubscript GMP Array
    ; Subscripts in GMP array are converted to numeric
    MAIN ; Control branching
  • ICR #938
    • Status: Active
    • Usage: Controlled Subscription
    ACTPROF(GMDFN) ; Print Action Profile for Patient
    PATCOPY(GMP,GMPAT) ; Copies patients from GMP to GMPAT array

    External References

    Name Field # of Occurrence
    ^%ZIS HSOUT+4, QUE+6
    ^%ZISC NOQUE+1, QUE+5
    ^%ZTLOAD QUE+4
    EN^GMTS1 PQ+12
    ACTPROF^GMTSDVR PQ+14
    PATCOPY^GMTSDVR PTPC+3
    $$RXAP^GMTSPD2 MAIN+16
    PAGE^GMTSPL ACTPROF+9
    $$PROK^GMTSU PTPC+1
    GETRANGE^GMTSU MAIN+13
    $$TYPE^GMTSULT SELTYP+5
    PATIENT^ORU1 PTPC+2, PTPC+3, ENX+17
    DFN^PSOSD1 ACTPROF+6
    $$VERSION^XPDUTL PTPC+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Another patient(s) can be selected."
    • Line Location: MAIN+10
    Function Call: WRITE
    • Prompt: !?3,"Invalid HEALTH SUMMARY TYPE."
    • Line Location: ENX+14
    Function Call: WRITE
    • Prompt: !?3,"Invalid PATIENT ID."
    • Line Location: ENX+17
    Function Call: WRITE
    • Prompt: !,"The Summary Type "_$P(Y,U,2)_" includes no components...Please choose another",!
    • Line Location: SELTYP+6
    Function Call: WRITE
    • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
    • Line Location: QUE+4
    Routine Call
    • %ZIS
    • Line Location:
      • HSOUT+4
      • QUE+6

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(4 - [#4] ACTPROF+5
    ^DISV( SELTYP+4
    ^DPT - [#2] PATCOPY+7, ENX+11, ENX+15, ENX+20
    ^GMT(142 - [#142] ENX+11, ENX+12, ENX+19, SELTYP+4, SELTYP+6, PQ+6, LOADSEG+2, SELFILE+1
    ^GMT(142.99 - [#142.99] ACTPROF+4
    ^XMB(1 - [#4.3] ACTPROF+5
    ^XUSEC("GMTS VIEW ONLY" HSOUT+2
    ^XUTL("OR" MAIN+9!, MAIN+19!

    Label References

    Name Line Occurrences
    @( HSOUT+2, NOQUE+1
    ENX ENXQ+15
    HSOUT MAIN+18
    LOADSEG PQ+8
    PQ ENX+21
    PTPC MAIN+9
    QUE HSOUT+5
    RESUB MAIN+15
    SELFILE LOADSEG+3
    SELTYP MAIN+4, ENX+14

    Naked Globals

    Name Field # of Occurrence
    ^( LOADSEG+2, SELFILE+2
    ^("ORLP" MAIN+9!, MAIN+19!
    ^("ORV" MAIN+9!, MAIN+19!
    ^("ORW" MAIN+9!, MAIN+19!
    ^("^GMT(142," SELTYP+4
    ^(0 SELTYP+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % QUE+1~, QUE+2*
    %ZIS HSOUT+3~, HSOUT+4*
    C MAIN+1~
    CNT RESUB+2~, RESUB+3*, RESUB+7*, RESUB+8
    DFN ENXQ+15, ENX~, ENX+11, ENX+15, ENX+17*, ENX+20, PQ+1~, PQ+10*, PQ+14, ACTPROF+1~
    , ACTPROF+3*, ACTPROF+7*
    DI ENX+10~
    DIC SELTYP+1~, SELTYP+2*
    DIC("A" SELTYP+2*
    DIC("B" SELTYP+4*
    DIC("S" SELTYP+3*
    DIC(0 SELTYP+2*
    DIROUT MAIN+2!, MAIN+3, MAIN+4, MAIN+6, MAIN+9, MAIN+11, MAIN+14, MAIN+16, PQ+4, PQ+9
    , PQ+13
    >> DTOUT MAIN+16
    DUOUT MAIN+2!, MAIN+3, MAIN+4, MAIN+6, MAIN+9, MAIN+11, MAIN+14, MAIN+16
    DUZ SELTYP+4, HSOUT+2
    DX ENX+10~
    DY ENX+10~
    GMDFN PATCOPY+1~, PATCOPY+5*, PATCOPY+7, RESUB+2~, RESUB+5*, RESUB+6*, RESUB+8, RESUB+9, ACTPROF~, ACTPROF+3
    , ACTPROF+7
    GMDUOUT PQ+11~, PQ+13
    GMP MAIN+5~, MAIN+7!, MAIN+9!, PTPC+2, PTPC+3, PATCOPY~, RESUB~
    GMP( PATCOPY+4, PATCOPY+5, RESUB+4, RESUB+6, RESUB+8*, RESUB+9!
    GMPAT MAIN+5~, MAIN+6, MAIN+7!, MAIN+11, MAIN+15, PTPC+3, PATCOPY~, ENX+10~, ENX+17, ENX+20*
    GMPAT( PATCOPY+7*, PQ+9, PQ+10
    GMPAT(0 ENX+20*
    GMPAT(1 MAIN+8*, ENX+17, ENX+20*
    GMPSAP MAIN+1~, MAIN+16*, ACTPROF+2
    GMQUIT ENX+10~, ENX+11, ENX+13*, ENX+16*, ENX+18
    >> GMRANGE MAIN+13
    GMTI PQ+1~, PQ+4*, PQ+6, PQ+7, LOADSEG+1~, LOADSEG+2*, LOADSEG+3*, LOADSEG+4, SELFILE+4
    GMTJ PQ+2~, PQ+9*, PQ+10, LOADSEG+1~, LOADSEG+2*, SELFILE+1
    GMTK SELFILE+1~*, SELFILE+2, SELFILE+4
    GMTS PQ+1~
    GMTS1 PQ+1~
    GMTS2 PQ+1~
    GMTSAGE PQ+1~
    GMTSDOB PQ+1~
    GMTSDTM PQ+1~
    GMTSE SELFILE+2~*, SELFILE+4
    GMTSEG PQ+5~
    GMTSEG( LOADSEG+3*, SELFILE+4*
    GMTSEGC PQ+5~, LOADSEG+4*
    GMTSEGI PQ+5~
    GMTSEGI( LOADSEG+3*
    GMTSF SELFILE+2~, SELFILE+3*, SELFILE+4
    GMTSLO PQ+1~
    GMTSLPG PQ+1~
    GMTSPHDR PQ+3~
    GMTSPNM PQ+1~
    GMTSPRO PTPC+1~*, PTPC+2, PTPC+3
    GMTSPX1 MAIN+12~, MAIN+13, ENXQ+15, ENX~
    GMTSPX2 MAIN+12~, MAIN+13, ENXQ+15, ENX~
    GMTSR SELFILE+2~*, SELFILE+3, SELFILE+4
    GMTSRB PQ+2~
    GMTSSN PQ+2~
    GMTSTITL PQ+2~, PQ+6*, PQ+7*
    GMTSTOF PQ+2~
    GMTSTYP ENXQ+15, ENX~, ENX+11, ENX+12, ENX+14*, ENX+19, PQ+2~, PQ+6*, LOADSEG+2, SELFILE+1
    GMTSVER PTPC+1~*, PTPC+2, PTPC+3
    GMTSWARD PQ+2~
    GMTYP MAIN+1~, MAIN+3, MAIN+4, ENX+10~, ENX+19, SELTYP+4, SELTYP+5!
    GMTYP( PQ+4, PQ+6, PQ+7
    GMTYP(0 ENX+19*, SELTYP+7*
    GMTYP(1 ENX+14, ENX+19*, SELTYP+7*
    GMX LOADSEG+1~, LOADSEG+2*, LOADSEG+3
    I MAIN+1~, PQ+2~
    IFN PATCOPY+1~, PATCOPY+2*, PATCOPY+4*, PATCOPY+5
    IO("Q" HSOUT+5, QUE+2!
    ION QUE+3
    IOP HSOUT+3~, QUE+6*
    IX0 PQ+2~
    J PQ+2~
    M4 PQ+2~
    NAME RESUB+2~, RESUB+3*, RESUB+4*, RESUB+6, RESUB+8, RESUB+9
    >> ORVP MAIN+6, MAIN+8
    P17 PQ+2~
    >> POP HSOUT+4
    PSOINST ACTPROF+1~, ACTPROF+5*
    PSONOPG ACTPROF+1~, ACTPROF+3*
    PSOPAR ACTPROF+1~, ACTPROF+4*
    PSTYPE ACTPROF+1~, ACTPROF+3*
    SEX PQ+2~
    TRFAC PQ+3~
    U PATCOPY+7, ENX+19, ENX+20, SELTYP+4, SELTYP+6, SELTYP+7, PQ+7, LOADSEG+3, SELFILE+2, SELFILE+3
    , ACTPROF+4, ACTPROF+5
    VADM MAIN+1~, ENX+10~
    VAERR PQ+3~
    VAIN ENX+10~, PQ+3~
    VAROOT MAIN+1~, ENX+10~
    X SELTYP+1~
    Y SELTYP+1~, SELTYP+5*, SELTYP+6, SELTYP+7
    ZTDESC QUE+1~, QUE+3*, QUE+5!
    ZTDTH QUE+1~, QUE+5!
    ZTIO QUE+1~, QUE+3*, QUE+5!
    >> ZTQUEUED ENX+13, ENX+16
    ZTRTN MAIN+1~, MAIN+17*, HSOUT+2, NOQUE+1, QUE+2, QUE+5!
    ZTSAVE QUE+1~, QUE+2!, QUE+5!
    ZTSAVE( QUE+2*
    ZTSK QUE+1~, QUE+4, QUE+5!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All