Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC