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

Package: Automated Medical Information Exchange

Routine: DVBARADM


Information

DVBARADM ;ALB/GTS-557/THM-READMISSION REPORT ; 1/23/91 8:01 AM

Source Information

Source file <DVBARADM.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Automated Medical Information Exchange 4 ^DVBARAD1  (DATE,KILL)^DVBAUTIL  NOPARM^DVBAUTL2  (ADM,RCV)^DVBAVDPT  
Kernel 3 (,HOME)^%ZIS  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 1 ^%DTC  

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

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA RE-ADMISSION REPORT  

Entry Points

Name Comments DBIA/ICR reference
SORT
DCHGDT
CAL
TDIS
SET
TERM
SETUP
EN1
ASK
GO
DQ

External References

Name Field # of Occurrence
^%DTC SET, SET+1
^%ZIS ASK+7
HOME^%ZIS TERM
^%ZTLOAD ASK+9
KILL^%ZTLOAD GO+5
^DVBARAD1 GO+6
DATE^DVBAUTIL EN1+1
KILL^DVBAUTIL TERM+1, EN1+1, ASK, ASK+7, ASK+9, GO+5
NOPARM^DVBAUTL2 TERM+1
ADM^DVBAVDPT SET+4, SET+9, SET+14
RCV^DVBAVDPT SORT
$$FMTE^XLFDT SETUP, EN1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"VARO RE-ADMISSION REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"Please enter admission dates for search, oldest date first,",!,"most recent date last.",!!,"Last report was run on "
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+0
Function Call: READ
  • Variable: DVBAH
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: DVBAH
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: *7,!!,"Must be H for HOSPITAL or D for HOSPITAL-DOM",!!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: $P("om^ospital",U,Z),!!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !!,"Looking for Pension and A&A cases ...",!!
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: !!,"Examining cases found for re-admissions within 185 days ...",!!
  • Line Location: GO+2
Function Call: WRITE
  • Prompt: *7,!!,"No data found for parameters entered.",!!
  • Line Location: GO+5
Routine Call
  • %ZIS
  • Line Location:
    • ASK+7
Routine Call
  • %ZIS
  • Line Location:
    • TERM

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1
^DG(405.2 - [#405.2] TDIS+1
^DGPM - [#405] DCHGDT, CAL, CAL+1, TDIS
^DGPM("AMV1" GO+1
^DGPM("APID" CAL
^DVB(396.1 - [#396.1] SETUP
^TMP("DVBA" SORT+1*, SORT+2*, CAL*, CAL+1, CAL+2, SET+6*, SET+11*, SET+15*, TERM!, GO+3
, GO+4!, GO+5, DQ!

Label References

Name Line Occurrences
ASK ASK+4
CAL GO+3
DCHGDT CAL+2
GO DQ+1
SET CAL+2
SORT GO+1
TDIS SET+4, SET+9, SET+14
TERM DVBARADM+3

Naked Globals

Name Field # of Occurrence
^(0 DCHGDT, CAL, TDIS, TDIS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ASK+7*
>> %ZIS("A" ASK+7*
>> %ZIS("B" ASK+7*
>> ADM GO+1*
>> ADMDT SET+3*, SET+8*, SET+13*
>> BDATE EN1+2, GO+1
>> BDATE1 EN1+2*
>> CFLOC SORT, SET+6, SET+11, SET+15
>> CNUM SET+11
>> CURADMDT CAL+1*, CAL+2, SET, SET+8, SET+11
>> DCHPTR DCHGDT*, TDIS
>> DFN SORT+1, SORT+2, CAL, CAL+1, CAL+2, SET+6, SET+11, SET+15, GO+1*, GO+3*
DT SETUP
>> DTAR SETUP*, SETUP+1, EN1
DTIME ASK
>> DVBADT GO+1*
>> DVBAH ASK*, ASK+1*, ASK+2*, ASK+3*, ASK+4, ASK+5, ASK+6, GO+3
>> DVBAI CAL*
>> DVBAQUIT TERM+1
DVBARADQ SET+16!
>> DVBAT SET+2, SET+6, SET+7, SET+11, SET+12, SET+15, GO+3*
>> EDATE CAL, EN1+2, GO+1
>> FDT(0 SETUP*, SETUP+1
>> HEAD SETUP+1*, ASK+5*
>> HEAD1 SETUP+1*, SETUP+2
>> HEADDT EN1+2*
>> HOSPDAYS SET+1, GO+3*
>> I CAL*, ASK+8*
IO("Q" ASK+8
IOF SETUP
ION ASK+9
>> J CAL*
>> LADMDT DCHGDT*, CAL+2, SET+1, SET+3, SET+6, SET+13, SET+15
>> LDCHGDT DCHGDT*, SET, SET+1
>> LOS SET+1*
NOASK TERM!, ASK+9*, GO, GO+1, GO+2, GO+3
>> POP ASK+7
>> RCVAA SORT+1, SET+11
>> RCVPEN SORT+2, SET+11
>> RO SORT
>> RONUM SORT
>> TDIS TDIS*, TDIS+1*, SET+5, SET+6, SET+7, SET+11, SET+15
U DCHGDT, CAL, CAL+1, TDIS, TDIS+1, SET+6, SET+11, SET+15, SETUP+1, EN1
, ASK, ASK+6
>> VX CAL+1*, CAL+2*, SET+17*
>> VY DCHGDT, CAL+2*, SET+6, SET+11, SET+15, SET+17*
>> X SET, SET+1
>> X1 SET*, SET+1*
>> X2 SET*, SET+1*
>> XCN SET+6, SET+11, SET+15
>> Y EN1*, EN1+1
>> Z ASK+6*
>> ZI CAL*
>> ZJ CAL*
>> ZTDESC ASK+9*
>> ZTIO ASK+9*
>> ZTQUEUED GO+5
>> ZTRTN ASK+9*
>> ZTSAVE( ASK+8*
>> ZTSK ASK+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All