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

Package: Automated Medical Information Exchange

Routine: DVBAB53


Information

DVBAB53 ;ALB/SPH - CAPRI DISCHARGE REPORT ; 3/5/12 11:30am

Source Information

Source file <DVBAB53.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Automated Medical Information Exchange 4 EN^DVBAB99  ACCEPT^DVBALD  (FINAL,KILL,LOS)^DVBAUTIL  (DCHGDT,RCV)^DVBAVDPT  
Kernel 3 ^%ZISC  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  

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 DISCHARGE  

Entry Points

Name Comments DBIA/ICR reference
STRT(ZMSG,BDATE,EDATE,ADTYPE,DVBADLMTR)
SET
PRINTB
PRINTND ;create non-delimited discharge report
PRINTD ;create delimited discharge report
PRINT
PRINT1
TERM ;D HOME^%ZIS K NOASK
SETUP ;W @IOF,!,"VARO DISCHARGE REPORT" D NOPARM^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL S DTAR=^DVB(396.1,1,0),FDT(0)=$$FMTE^XLFDT(DT,"5DZ")
EN1 ;W !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on " S Y=$P(DTAR,U,4) X ^DD("DD") W Y,!!
ADTYPE ;D ADTYPE^DVBAUTL2 G:$D(DVBAQUIT) KILL^DVBAUTIL
QUEUE
GO
KILL
DEQUE
COLHDR ;Column header for delimited report

External References

Name Field # of Occurrence
^%ZISC KILL+2
^%ZTLOAD QUEUE+1
KILL^%ZTLOAD KILL+2
EN^DVBAB99 ADTYPE+3
ACCEPT^DVBALD ADTYPE+4
FINAL^DVBAUTIL KILL+2
KILL^DVBAUTIL ADTYPE+5, ADTYPE+6, GO+6
LOS^DVBAUTIL PRINTND+9, PRINTD+5
DCHGDT^DVBAVDPT PRINTB
RCV^DVBAVDPT SET
$$FMTE^XLFDT PRINTND+7, PRINTD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!!
  • Line Location: PRINTB+2
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRINTND+26
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ADTYPE+10
Function Call: WRITE
  • Prompt: !!,*7,DVBAERTXT,!!
  • Line Location: GO+3

Used in RPC

RPC Name Call Tags
DVBAB REPORT DISCHARGE STRT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.2 - [#405.2] SET+2, SET+5
^DGPM - [#405] SET+1
^DGPM("AMV3" GO
^DPT - [#2] SET, PRINTND+20, PRINTD+12
^TMP("DVBA" ADTYPE+6, ADTYPE+7
^TMP("DVBAR" PRINTND+1*, PRINTND+3*, PRINTND+4*, PRINTND+5*, PRINTND+6*, PRINTND+7*, PRINTND+8*, PRINTND+10*, PRINTND+11*, PRINTND+12*
, PRINTND+13*, PRINTND+21*, PRINTND+22*, PRINTD+3*, PRINTD+4*, PRINTD+6*, PRINTD+7*, PRINTD+8*, PRINTD+14*, PRINTD+16
, PRINTD+26*, GO+4*, KILL+1, COLHDR+3*, COLHDR+4*, COLHDR+5*, COLHDR+6*, COLHDR+7*
^TMP($J STRT+9!, SET+7*, PRINT+1, PRINT1, GO+1, DEQUE!
^XTMP("DVBA_DISCHARGE_RPT" PRINTD+2, GO+5!, KILL!, COLHDR+10*

Label References

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

Naked Globals

Name Field # of Occurrence
^( PRINTND+20, PRINTD+12, PRINT1
^(0 SET+1, SET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADM PRINT1*
ADTYPE STRT~, SET
BDATE STRT~, STRT+2*, GO, COLHDR+10
>> BEDSEC PRINTND+11, PRINTD+7
>> CFLOC SET, SET+7, PRINTND+5, PRINTD+3, PRINT+1*, PRINT1
>> CNUM SET+7, PRINTB*, PRINTND+4, PRINTD+3
>> DA SET, SET+7, PRINTB, PRINTND+20, PRINTD+12, PRINT1*, GO*
>> DATA PRINTB, PRINT1*
>> DCHGDT PRINTND+7, PRINTD+4
>> DFN SET*, PRINTB*
DISTYPE ADTYPE+7*, GO+6!, KILL+2!
DISTYPE( SET+4
>> DSRP SETUP+1*
DT COLHDR+10
>> DVBABCNT STRT+3*, PRINTND+1*, PRINTND+3*, PRINTND+4*, PRINTND+5*, PRINTND+6*, PRINTND+7*, PRINTND+8*, PRINTND+10*, PRINTND+11*
, PRINTND+12*, PRINTND+13*, PRINTND+21*, PRINTND+22*, PRINTD+3, PRINTD+4, PRINTD+6, PRINTD+7, PRINTD+8, PRINTD+14
, PRINTD+16, PRINTD+26, PRINTD+28*, GO+4, COLHDR+3, COLHDR+4, COLHDR+5, COLHDR+6, COLHDR+7, COLHDR+8*
>> DVBACEPT ADTYPE+5
DVBADLMTR STRT~, STRT+7, STRT+8*, PRINTB+4, PRINTB+5, PRINTD+3, PRINTD+4, PRINTD+6, PRINTD+7, PRINTD+8
, PRINTD+17, PRINTD+20, PRINTD+21, PRINTD+23, PRINTD+24, PRINTD+25, GO+4, COLHDR+1~, COLHDR+2*, COLHDR+3
, COLHDR+4, COLHDR+5, COLHDR+6, COLHDR+7
>> DVBAELIG PRINTND+17, PRINTD+10
>> DVBAELST PRINTND+19, PRINTD+11
DVBAERTXT GO+2~*, GO+3, GO+4
DVBAFNLDTE STRT+1~, STRT+7*, GO+5, KILL
DVBAON2 PRINTB+1, PRINTND+27*, GO+6!, KILL+2!
>> DVBAQUIT GO+6
>> DVBASC SET*
DVBATMP PRINTD+1~, PRINTD+16*, PRINTD+17, PRINTD+20*, PRINTD+21, PRINTD+23*, PRINTD+24*, PRINTD+25*, PRINTD+26
EDATE STRT~, GO, GO+5, KILL, COLHDR+10
ELIG PRINTND+17*, PRINTND+19*, PRINTND+21, PRINTD+1~, PRINTD+10*, PRINTD+11*, PRINTD+14
>> G PRINT+1*
>> HEAD STRT+6*, PRINTB+2
>> HEAD1 STRT+6*, PRINTB+2
>> I PRINTD+24*, QUEUE*
INCMP PRINTND+17*, PRINTND+20*, PRINTND+21, PRINTND+22, PRINTD+1~, PRINTD+10*, PRINTD+12*, PRINTD+14
IO PRINT, GO+3
IO("Q" QUEUE, QUEUE+1
IOF PRINTB+1
ION QUEUE
IOST PRINTB+1
>> J PRINT+1*, GO*
>> K PRINT1*
>> L PRINT1*
>> LOS PRINTND+10, PRINTD+6
>> M PRINT+1*
>> MA SET+6, PRINT+1*, PRINT1, GO*
MA1 STRT+1~, SET+6*, SET+7
>> MB SET+1, SET+7, GO*
>> NOASK QUEUE*, GO
>> PNAM PRINTND+3, PRINTD+3
>> QUIT PRINT*, PRINT+1, PRINT1
>> QUIT1 PRINTB*
>> RCVAA SET, SET+7, PRINTB*, PRINTND+12, PRINTD+7
>> RCVPEN SET, SET+7, PRINTB*, PRINTND+13, PRINTD+8
>> RO STRT+5*, SET
>> RONUM STRT+4*, SET
>> SSN PRINTND+6, PRINTD+3
>> TDIS SET+1*, SET+2, SET+4, SET+5*, SET+7, PRINTB*, PRINTND+8, PRINTD+4
U SET+1, SET+5, SET+7, PRINTB, PRINTND+20, PRINTD+12, COLHDR+10
X PRINTD+1~, PRINTD+17*, PRINTD+18*, PRINTD+19*, PRINTD+20, PRINTD+21*, PRINTD+22*, PRINTD+23, KILL+2*
X1 PRINTD+1~, PRINTD+18*, PRINTD+19*
X2 PRINTD+1~, PRINTD+18*, PRINTD+19*
X3 PRINTD+1~, PRINTD+18*, PRINTD+19*
>> XCN SET+7, PRINT+1*, PRINT1
ZMSG STRT~, KILL+1*
>> ZTDESC QUEUE*
>> ZTIO QUEUE*
>> ZTQUEUED KILL+2
>> ZTRTN QUEUE*
>> ZTSAVE( QUEUE*
>> ZTSK QUEUE+1
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