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

Package: Health Summary

Routine: GMTSPD


Information

GMTSPD ; SLC/JER,KER - Interactive Print-by-Location ; 04/30/2002 [1/26/05 1:50pm]

Source Information

Source file <GMTSPD.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Health Summary 4 MAIL^GMTSMAIL  ($$RXAP,HSOUT)^GMTSPD2  REGDT4^GMTSU  $$TYPE^GMTSULT  
VA FileMan 3 (C,NOW)^%DTC  ^DIC  ^DIR  
Kernel 1 $$UP^XLFSTR  
Scheduling 1 GETPLIST^SDAMA202  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Health Summary 2 GMTS HS BY LOC  GMTSPNJ  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Interactive Print by Location
SELTYP() ; Select Health Summary type
SELLOC(GMX) ; Select multiple Hospital Location
ASK ; Prompt for One or ALL
ASK2
A1 ; Single ? Help
A2 ; Double ?? Help
CONT ; Continue Displaying List
C1 ; Continue Help
CHKLOC(LOC) ; Get date range for Clinics/ORs
SELDATE() ; Visit/Surgery date range for Print-by-Clinic
CKPAT(LOC) ; Checks for patients at selected location

External References

Name Field # of Occurrence
C^%DTC CKPAT+8, CKPAT+9, CKPAT+31
NOW^%DTC SELDATE+3
^DIC SELLOC+7, ASK2+9
^DIR ASK2+3, CONT+3, SELDATE+6, SELDATE+13
MAIL^GMTSMAIL CKPAT+17
$$RXAP^GMTSPD2 MAIN+8
HSOUT^GMTSPD2 MAIN+9
REGDT4^GMTSU SELDATE+3, SELDATE+10
$$TYPE^GMTSULT SELTYP+5
GETPLIST^SDAMA202 CKPAT+11
$$UP^XLFSTR ASK2+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !,"This Summary Type includes no components...Please choose another."
  • Line Location: SELTYP+7
Function Call: WRITE
  • Prompt: " ",LAST
  • Line Location: ASK2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+10
Function Call: WRITE
  • Prompt: " ??",!!,?5,"Not a ward, clinic or operating room"
  • Line Location: ASK2+11
Function Call: WRITE
  • Prompt: !," Answer with HOSPITAL LOCATION NAME, or ABBREVIATION, TEAM or 'ALL'"
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !," for all hospital locations. Enter '^' to return to Health Summary"
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !," Type Selection or '^^' to exit."
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+2
Function Call: WRITE
  • Prompt: !,?3,"Choose from:"
  • Condition for execution: GMTSC=1
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: !,?3,GMTSL
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: !," Enter ether RETURN or '^'"
  • Line Location: C1+1
Routine Call
  • DIC
  • Line Location:
    • SELLOC+7
    • ASK2+9
Routine Call
  • DIR
  • Line Location:
    • ASK2+3
    • CONT+3
    • SELDATE+6
    • SELDATE+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] CKPAT+4
^DISV( SELTYP+2, ASK2+1
^DPT("CN" CKPAT+5
^GMT(142 - [#142] SELTYP+2, SELTYP+6
^SC - [#44] ASK2+1, ASK2+4, A2+5, CKPAT+4
^SC("B" A2+3, A2+4
^SRF("AOR" CKPAT+26, CKPAT+30
^SRS("B" CKPAT+25
^TMP($J CKPAT+15, CKPAT+17, CKPAT+18!, CKPAT+20, CKPAT+21, CKPAT+22!
^XUSEC("GMTS VIEW ONLY" SELLOC+3

Label References

Name Line Occurrences
$$SELDATE CHKLOC+2
$$SELTYP MAIN+4
A1 A2+2
ASK SELLOC+6
ASK2 ASK2+10
CHKLOC MAIN+7
CONT A2+7
SELLOC MAIN+6

Naked Globals

Name Field # of Occurrence
^(0 SELTYP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SELDATE+1~, SELDATE+3, CKPAT+1~
%H SELDATE+1~, CKPAT+1~
%I SELDATE+1~
%T CKPAT+1~
DA CONT+2~
DEFDT SELDATE+1~, SELDATE+3*, SELDATE+4, SELDATE+10*, SELDATE+11
DIC SELTYP+1~, SELTYP+3*, SELLOC+1~, SELLOC+2*, ASK+1~, ASK2+7*
DIC("A" SELTYP+3*, SELLOC+2*, SELLOC+12*
DIC("B" SELTYP+2*
DIC("S" SELTYP+4*, SELLOC+4*, ASK2+8*
DIC(0 SELTYP+4*, SELLOC+2*, ASK2+7*
DIR SELLOC+1~, ASK+1~, CONT+2~, SELDATE+1~
DIR("?" ASK2+2*, CONT+2*
DIR("??" ASK2+2*, CONT+2*
DIR("A" ASK2*, CONT+2*, SELDATE+5*, SELDATE+12*
DIR("B" SELDATE+4*, SELDATE+11*
DIR(0 ASK2+2*, CONT+2*, SELDATE+4*, SELDATE+11*
DIROUT MAIN+2!, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7, MAIN+8, MAIN+9~, SELTYP+5*, SELLOC+5
, SELLOC+7, SELLOC+8*, ASK2+12*, CONT+2~, CHKLOC+1, SELDATE+7*, SELDATE+14*
DIRUT CONT+2~
DT SELDATE+3*
DTOUT MAIN+7, MAIN+8, SELLOC+5, CONT+2~, CHKLOC+1
DUOUT MAIN+5, MAIN+6!, MAIN+7, MAIN+8, MAIN+9*, SELLOC+5, CONT+2~, CHKLOC+1
DUZ SELTYP+2, SELLOC+3, ASK2+1
ERR ASK+1~, ASK2+7*, ASK2+10
GMBEG SELDATE+1~, SELDATE+2*, SELDATE+8*, SELDATE+9, SELDATE+10, SELDATE+16, CKPAT+1~, CKPAT+28*, CKPAT+29, CKPAT+30
, CKPAT+31*
GMEND SELDATE+1~, SELDATE+2*, SELDATE+15*, SELDATE+16
GMLOC MAIN+1~, CHKLOC+3*, CHKLOC+4
GMPSAP MAIN+1~, MAIN+8*
GMTSA A2+1~, A2+2*, A2+5*, A2+7, CONT+1*
GMTSC A2+1~, A2+2*, A2+5*, A2+6
GMTSCDT MAIN+1~, CKPAT+1~, CKPAT+10*, CKPAT+11
GMTSDATE CKPAT+1~, CKPAT+19*, CKPAT+21*, CKPAT+23
GMTSE A2+1~, A2+2*, A2+3, A2+4, CONT+3*
GMTSERR CKPAT+14~, CKPAT+15*, CKPAT+16, CKPAT+17
>> GMTSEXIT ASK2+12*
GMTSI A2+1~, A2+4*, A2+5, CKPAT+19~*, CKPAT+20*, CKPAT+21
GMTSL A2+1~, A2+5*, A2+6
GMTSLC SELLOC+1~, SELLOC+2*, SELLOC+3*, SELLOC+5, SELLOC+6, SELLOC+7*, ASK2+6*
GMTSN A2+1~, A2+2*, A2+3*, A2+4
GMTSP A2+1~*, A2+7, CONT+1*
GMTSRES CKPAT+1~, CKPAT+11, CKPAT+12
GMTSSC MAIN+1~, MAIN+5, MAIN+6!, MAIN+7
GMTSSC("ALL" MAIN+5
GMTSSC(0 MAIN+7
GMTSTN MAIN+1~
GMTSTYP MAIN+1~, MAIN+2*, MAIN+3, MAIN+4*, SELTYP+2
GMX SELLOC~, SELLOC+10*, SELLOC+11*, ASK2+6!*
GMX( SELLOC+5, SELLOC+9*
GMX("ALL" SELLOC+6, ASK2+6*
GMX(1 ASK2+6*
GMY CKPAT+1~, CKPAT+5*, CKPAT+7*, CKPAT+13*, CKPAT+23*, CKPAT+25*, CKPAT+26*, CKPAT+29, CKPAT+30*, CKPAT+32
IOSL A2+1, CONT+1
LAST ASK+1~, ASK2+1*, ASK2+3, ASK2+4
LASTI ASK+1~, ASK2+1*, ASK2+3, ASK2+4
LOC SELLOC+1~, CHKLOC~, CHKLOC+1, CHKLOC+2*, CHKLOC+4, CKPAT~, CKPAT+2, CKPAT+4*, CKPAT+5, CKPAT+6
, CKPAT+8, CKPAT+9, CKPAT+10, CKPAT+11, CKPAT+25, CKPAT+26, CKPAT+27, CKPAT+28, CKPAT+29
LOC( CHKLOC+3, CHKLOC+4*
LTYPE CKPAT+1~, CKPAT+2*, CKPAT+3, CKPAT+23, CKPAT+24
OLOC CKPAT+25~*, CKPAT+26, CKPAT+27, CKPAT+30
U SELTYP+2, SELLOC+9, SELLOC+10, SELLOC+11, CHKLOC+1, CHKLOC+2, CHKLOC+4, SELDATE+16, CKPAT+2, CKPAT+4
, CKPAT+6, CKPAT+8, CKPAT+9, CKPAT+10, CKPAT+26, CKPAT+27, CKPAT+28, CKPAT+29
X SELTYP+1~, SELTYP+5, SELLOC+1~, SELLOC+8, ASK2+3, ASK2+4*, ASK2+10, ASK2+12, CONT+2~, SELDATE+1~
, SELDATE+3*, SELDATE+10*, CKPAT+1~, CKPAT+11, CKPAT+21, CKPAT+23, CKPAT+31
X1 CKPAT+1~, CKPAT+8*, CKPAT+9*, CKPAT+31*
X2 CKPAT+1~, CKPAT+8*, CKPAT+9*, CKPAT+31*
Y SELTYP+1~, SELTYP+5*, SELTYP+6, SELTYP+8, SELLOC+1~, SELLOC+5, SELLOC+8, SELLOC+9, SELLOC+10, ASK2+4*
, ASK2+5, ASK2+12, CONT+2~, CONT+3, SELDATE+1~, SELDATE+7, SELDATE+8, SELDATE+14, SELDATE+15, CKPAT+1~
Y(0 SELLOC+9, SELLOC+11, ASK2+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All