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
Print Page as PDF
Routine: DVBAB98

Package: Automated Medical Information Exchange

Routine: DVBAB98


Information

DVBAB98 ;ALB/SPH - CAPRI CONVERSION OF DVBARAD1 FOR SUPPORT ; 3/22/12 8:33am

Source Information

Source file <DVBAB98.m>

Entry Points

Name Comments DBIA/ICR reference
PRINTB
PRINTND ;create non-delimited re-admission report
PRINTD ;create delimited re-admission report
PRINT
PRINT1
PRINTC
KILL
ELIG
COLHDR ;Column header for delimited report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!!!!!!!
  • Line Location: DVBAB98+8
Function Call: WRITE
  • Prompt: @IOF,!!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!,?(80-$L(HEADDT)\2),HEADDT,!!!
  • Line Location: PRINTB+3
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRINTND+22
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop "
  • Line Location: PRINTND+22
Function Call: WRITE
  • Prompt: ?5,$S(DVBAT="PEN":MSG,DVBAT="A&A":MSG1,1:""),!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: "Eligibility: "
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: ELIG_$S(ELIG]"":", ",1:"")
  • Line Location: ELIG+5
Function Call: WRITE
  • Prompt: !?14
  • Condition for execution: $X>60
  • Line Location: ELIG+5
Function Call: WRITE
  • Prompt: $S(INCMP=1:"Incompetent",1:""),!
  • Line Location: ELIG+5
Info |  Source |  Entry Points |  Interaction Calls