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

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

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

Used in RPC

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