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

Package: Automated Medical Information Exchange

Routine: DVBAB56


Information

DVBAB56 ;ALB/SPH - CAPRI READMISSION REPORT ; 3/22/12 8:34am

Source Information

Source file <DVBAB56.m>

Entry Points

Name Comments DBIA/ICR reference
STRT(ZMSG,BDATE,EDATE,DVBAH,DVBADLMTR)
SORT
DCHGDT
CAL
TDIS
SET
TERM ;D HOME^%ZIS
SETUP ;W @IOF,!,"VARO RE-ADMISSION REPORT"
EN1 ;W !!,"Please enter admission dates for search, oldest date first,",!,"most recent date last.",!!,"Last report was run on " S Y=$P(DTAR,U,7) X ^DD("DD") W Y,!!
ASK ;W !!,"Do you want (H)ospital or Hospital-(D)om H// " R DVBAH:DTIME G:'$T!(DVBAH=U) KILL^DVBAUTIL
GO
DQ

Interaction Calls

Name Line Occurrences
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("Dom^Hospital",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

Used in RPC

RPC Name Call Tags
DVBAB REPORT READMIT STRT
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC