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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DVBCAMIS

Package: Automated Medical Information Exchange

Routine: DVBCAMIS


Information

DVBCAMIS ;ALB/GTS-557/THM-2507 AMIS REPORT ;21 MAY 89@0822 ; 5/23/91 1:30 PM

Source Information

Source file <DVBCAMIS.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Medical Information Exchange 5 URL^DVBABURL  GO^DVBCAMI2  BULL^DVBCAMI3  $$EXMPRTY^DVBCIUTL  KILL^DVBCUTIL  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^%DT  YN^DICN  ^DIR  

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 C AMIS REPORT  

Entry Points

Name Comments DBIA/ICR reference
SETUP ;
INIT ;initialize counter arrays
EN
ASK0 ;prompt for previous month pending count
ASK
EXIT
GPTYPE(DVBACDE) ;get exam priority desc

External References

Name Field # of Occurrence
^%DT SETUP+16, EN+1, EN+2
^%ZIS ASK+6
HOME^%ZIS SETUP+18
^%ZTLOAD ASK+8
YN^DICN ASK+2
^DIR ASK0+12
URL^DVBABURL SETUP+13
GO^DVBCAMI2 ASK+9
BULL^DVBCAMI3 ASK+5
$$EXMPRTY^DVBCIUTL SETUP+20
KILL^DVBCUTIL EXIT
$$FMTE^XLFDT SETUP+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The AMIS 290 Report is no longer available here.",!," Please go to: ",RTN
  • Line Location: SETUP+14
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: *7,!!,"Invalid date sequence - ending date is before starting date.",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK0+6
Function Call: WRITE
  • Prompt: !!!,"Do you want to send a bulletin when processing is done"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Enter Y to send a bulletin to selected recipients or N not to send it at all.",!!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+6
Routine Call
  • DIR
  • Line Location:
    • ASK0+12
Routine Call
  • %ZIS
  • Line Location:
    • ASK+6
Routine Call
  • %ZIS
  • Line Location:
    • SETUP+18

Label References

Name Line Occurrences
$$GPTYPE ASK0+9
ASK ASK+3
EN EN+2, EN+3
EXIT SETUP+21, EN+1, ASK0+15, ASK+2, ASK+6, ASK+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+2*, ASK+3, ASK+4
%DT EN+1*, EN+2*, ASK!
%DT("A" EN+1*, EN+2*
%DT(0 EN+1*
>> %ZIS ASK+6*
>> %ZIS("A" ASK+6*
>> BDATE EN+1*
>> BDATE1 EN+1*, EN+3
DIR ASK0+1~
DIR("?" ASK0+3*, ASK0+4*
DIR("A" ASK0+10*, ASK0+11*
DIR("T" ASK0+5*
DIR(0 ASK0+2*
DIROUT ASK0+1~, ASK0+8, ASK0+15
DIRUT ASK0+1~, ASK0+8, ASK0+15
DT SETUP+16*, SETUP+17, EN+1
DTIME ASK0+5
DTOUT ASK0+1~, ASK+2
DUOUT ASK0+1~
DVBACDE GPTYPE~, GPTYPE+2, GPTYPE+3, GPTYPE+4, GPTYPE+5, GPTYPE+6, GPTYPE+7
DVBAEXMP SETUP+15~, INIT+1*, INIT+3, INIT+5, INIT+7, ASK0+8, ASK0+9, ASK0+13, ASK0+14
DVBAP SETUP+15~, INIT+3*, INIT+5*, INIT+7*, ASK0+8*, ASK0+9, ASK0+14
DVBAPRTY SETUP+15~, SETUP+20*, SETUP+21, INIT+1
DVBATXT ASK0+1~, ASK0+9*, ASK0+10, GPTYPE+1~, GPTYPE+3*, GPTYPE+4*, GPTYPE+5*, GPTYPE+6*, GPTYPE+7*, GPTYPE+8
>> DVBCDT(0 SETUP+17*
>> EDATE EN+2*
>> EDATE1 EN+2*, EN+3
>> FF SETUP+18*
>> HD SETUP+16*, EN
>> I ASK+7*
IO("Q" ASK+7, ASK+8
IOF SETUP+18, EN
IOM EN
ION ASK+7
>> JI INIT+2*, INIT+3, INIT+4*, INIT+5, INIT+6*, INIT+7
>> POP ASK+6
PREVMO ASK0+13*, EXIT!
PREVMO( ASK0+14*
RTN SETUP+11~, SETUP+12*, SETUP+13, SETUP+14
>> SBULL ASK*, ASK+4*, ASK+5
>> TOT( INIT+3*, INIT+5*, INIT+7*
UPDATE SETUP+16*, EXIT!
WHICH SETUP+11~, SETUP+12*, SETUP+13
X SETUP+16*, ASK0+1~
Y SETUP+16, EN+1, EN+2, ASK0+1~, ASK0+13, ASK0+14
>> ZTDESC ASK+7*
>> ZTIO ASK+7*
>> ZTRTN ASK+7*
>> ZTSAVE( ASK+7*
ZTSK ASK+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All