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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBAB51

Package: Automated Medical Information Exchange

Routine: DVBAB51


Information

DVBAB51 ;ALB/VM - CAPRI INCOMPETENT PATIENT REPORT ; 3/21/12 3:21pm

Source Information

Source file <DVBAB51.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  KILL^%ZTLOAD  $$FMTE^XLFDT  
Automated Medical Information Exchange 2 (FINAL,KILL)^DVBAUTIL  (ADM,RCV)^DVBAVDPT  
Registration 1 DEM^VADPT  

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 DVBAB REPORT INCOMPVET  

Entry Points

Name Comments DBIA/ICR reference
STRT(ZMSG,BDATE,EDATE,DVBADLMTR) ;ENTER HERE
SET
PRINTB
PRINTND ;create non-delimited incompetent report
ELIG
PRINTD ;create delimited incompetent report
PRINT
PRINT1
TERM ;D HOME^%ZIS K NOASK
SETUP ;W @IOF,!,"VARO INCOMPETENCY REPORT" D NOPARM^DVBAUTL2
NOPARM ;check for AMIE parameter setup
EN1 ;***vm-out*W !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on " S Y=$P(DTAR,U,5) X ^DD("DD") W Y,!!
QUEUE ;***vm-out*I $D(IO("Q")) S ZTRTN="DEQUE^DVBACMRP",ZTIO=ION,NOASK=1,ZTDESC="AMIE INCOMPETENT VET REPORT" F I="FDT(0)","HEAD","HEAD1","BDATE","EDATE","TYPE","RO","RONUM","NOASK" S ZTSAVE(I)=""
GO
KILL
DEQUE
COLHDR ;Column header for delimited report

External References

Name Field # of Occurrence
^%ZIS EN1+2
^%ZISC KILL+2
KILL^%ZTLOAD KILL+2
FINAL^DVBAUTIL KILL+2
KILL^DVBAUTIL NOPARM+2, EN1+2, GO+2
ADM^DVBAVDPT PRINTB
RCV^DVBAVDPT SET+3
DEM^VADPT PRINTD+2
$$FMTE^XLFDT SET+1, SET+2, PRINTB+1, PRINTB+2, NOPARM+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: ELIG+7
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop "
  • Line Location: ELIG+7
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: GO+0
Routine Call
  • %ZIS
  • Line Location:
    • EN1+2

Used in RPC

RPC Name Call Tags
DVBAB REPORT INCOMPVET STRT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.2 - [#405.2] PRINTB+4
^DGPM - [#405] PRINTB+3
^DGPM("AMV1" GO
^DIC(4 - [#4] PRINTND+8, PRINTD+4
^DPT - [#2] SET, SET+3, ELIG+3, PRINTD+10
^DVB(396.1 - [#396.1] NOPARM+1, NOPARM+2
^TMP("DVBAR" STRT+5!, PRINTB+5*, PRINTND+1*, PRINTND+2*, PRINTND+3*, PRINTND+4*, PRINTND+5*, PRINTND+6*, PRINTND+7*, PRINTND+8*
, PRINTND+9*, PRINTND+10*, PRINTND+11*, ELIG+1*, ELIG+4*, ELIG+5*, ELIG+6*, PRINTD+3*, PRINTD+4*, PRINTD+5*
, PRINTD+6*, PRINTD+12*, NOPARM+1*, GO+1*, KILL+1, COLHDR+1*, COLHDR+2*, COLHDR+3*, COLHDR+4*, COLHDR+5*
, COLHDR+6*, COLHDR+7*
^TMP($J STRT+5!, SET+5*, PRINT+1, PRINT1, GO+1, GO+2, DEQUE!
^XTMP("DVBA_INCOMPETENT_RPT" PRINTD+1, GO+2!, KILL!, COLHDR+9*

Label References

Name Line Occurrences
COLHDR PRINTD+1
GO DEQUE
KILL GO+1
PRINT GO+2
PRINT1 PRINT+1
PRINTB PRINT1
PRINTD PRINTB+8
PRINTND PRINTB+9
SET GO
TERM STRT+5

Naked Globals

Name Field # of Occurrence
^( SET, ELIG+3, PRINTD+10, PRINT1
^(0 PRINTB+3, PRINTB+4, PRINTND+8, PRINTD+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN1+2*!
>> ADM PRINTB+3, PRINT1*
>> ADMDT PRINTB+1*, PRINTND+5, PRINTD+3
BDATE STRT~, GO
>> BEDSEC PRINTND+9, PRINTD+5
>> CFLOC SET+3, SET+5, PRINTND+3, PRINTD+3, PRINT+1*, PRINT1
>> CNUM SET+5, PRINTB*, PRINTND+2, PRINTD+3
>> DA SET, SET+3, SET+5, PRINTB, ELIG+3, PRINTD+10, PRINT1*, GO*
>> DATA PRINTB, PRINT1*
>> DCHGDT PRINTB+2*, PRINTND+7, PRINTND+8, PRINTD+3, PRINTD+4
>> DCHPTR PRINTB+3*
>> DFN SET+3*, PRINTB*
>> DIAG PRINTND+6, PRINTD+3
DT NOPARM+2, COLHDR+9
>> DTAR NOPARM+2*, NOPARM+3
>> DVBABCNT STRT+2*, PRINTB+5*, PRINTND+1*, PRINTND+2*, PRINTND+3*, PRINTND+4*, PRINTND+5*, PRINTND+6*, PRINTND+7*, PRINTND+8*
, PRINTND+9*, PRINTND+10*, PRINTND+11*, ELIG+1, ELIG+4*, ELIG+5*, ELIG+6*, PRINTD+3, PRINTD+4, PRINTD+5
, PRINTD+6, PRINTD+12, PRINTD+13*, NOPARM+1*, GO+1, COLHDR+1*, COLHDR+2, COLHDR+3, COLHDR+4, COLHDR+5
, COLHDR+6, COLHDR+7, COLHDR+8*
DVBADLMTR STRT~, STRT+3, STRT+4*, PRINTB+5, PRINTB+8, PRINTB+9, PRINTD+2, PRINTD+3, PRINTD+4, PRINTD+5
, PRINTD+6, PRINTD+12, COLHDR+2, COLHDR+3, COLHDR+4, COLHDR+5, COLHDR+6, COLHDR+7
>> DVBAELIG ELIG, PRINTD+8
>> DVBAELST ELIG+2, PRINTD+9
DVBAFNLDTE STRT+1~, STRT+3*, GO+2, KILL
DVBAON2 PRINTB+5, PRINTB+10*, GO+2!, KILL+2!
>> DVBAQUIT NOPARM+1*, NOPARM+2, GO+2
EDATE STRT~, GO, GO+2, KILL
>> ELIG ELIG*, ELIG+2*, ELIG+4, PRINTD+8*, PRINTD+9*, PRINTD+12
>> FDT(0 NOPARM+2*, NOPARM+3
>> H PRINT+1*
>> HEAD NOPARM+3*, COLHDR+1
>> HEAD1 NOPARM+3*, COLHDR+1
>> ICDAT SET*, SET+1*, SET+5, PRINTB*, ELIG+5, PRINTD+12
>> ICDAT2 SET*, SET+2*, SET+5, PRINTB*, ELIG+5, PRINTD+12
>> INCMP SET*, SET+5, PRINTB*, ELIG*, ELIG+3*, ELIG+4, PRINTD+8*, PRINTD+10*, PRINTD+12
IO PRINT
IOST PRINTB+5
>> J PRINT+1*, GO*
>> K PRINT1*
>> L PRINT1*
>> LADM PRINTB+3*
>> M PRINT+1*
>> MA SET+4, PRINT+1*, PRINT1, GO*
MA1 STRT+1~, SET+4*, SET+5
>> MB SET+5, GO*
NOASK TERM+1!, GO
>> PNAM PRINTND+1, PRINTD+3
>> POP EN1+2
>> QUIT PRINT*, PRINT+1, PRINT1
>> QUIT1 PRINTB*
>> RCVAA SET+5, PRINTB*, PRINTND+10, PRINTD+5
>> RCVPEN SET+5, PRINTB*, PRINTND+11, PRINTD+6
>> RO STRT+2*, SET+3
>> RONUM STRT+2*, SET+3
>> SSN PRINTND+4, PRINTD+2*, PRINTD+3
>> TDIS PRINTB+3*, PRINTB+4*, PRINTND+8, PRINTD+4
>> TO PRINTB+3*, PRINTND+8, PRINTD+4
U SET, SET+5, PRINTB, PRINTB+3, PRINTB+4, PRINTND+8, ELIG+3, PRINTD+2, PRINTD+4, PRINTD+10
, NOPARM+3, COLHDR+9
>> VADM(1 PRINTD+2
>> VADM(2 PRINTD+2
>> X KILL+2*
>> XCN SET+5, PRINT+1*, PRINT1
ZMSG STRT~, KILL+1*
>> ZTQUEUED KILL+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All