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

Package: Automated Medical Information Exchange

Routine: DVBAADRP


Information

DVBAADRP ;ALB/GTS-557/THM-AMIE COMPLETE ADMISSION RPT ; 1/22/91 1:19 PM

Source Information

Source file <DVBAADRP.m>

Entry Points

Name Comments DBIA/ICR reference
ENBROKER(Y) ;
; Returns some info for the CAPRI GUI to display prior
; to the user running this report
ENBROKE2(MSG,BDATE,EDATE,RO,RONUM,DVBADLMTR) ;
; This is the entry point to run the actual report from
; the CAPRI GUI.
SET
PRINTB
PRINTND ;print non-delimited admission inq report
PRINTD ;print delimited admission inq report
PRINT
PRINT1
TERM
SETUP
EN1
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: PRINTND+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINTND+3
Function Call: WRITE
  • Prompt: ?10,"Patient Name:",?26,PNAM,!!,?14,"Claim No:",?26,CNUM,!,?6,"Claim Folder Loc:",?26,CFLOC,!,?9,"Social Sec No:",?26,SSN,!,?8,"Admission Date:",?26,ADMDT,!,?3,"Admitting Diagnosis:",?26,DIAG,!
  • Line Location: PRINTND+4
Function Call: WRITE
  • Prompt: ?8,"Discharge Date:",?26,DCHGDT,!,?11,"Bed Service:",?26,BEDSEC,!,?13,"Recv A&A?:",?26,$S(RCVAA=0:"NO",RCVAA=1:"YES",1:"Not specified"),!
  • Line Location: PRINTND+5
Function Call: WRITE
  • Prompt: !,""""_PNAM_""""_DVBADLMTR_$C(160)_CNUM_DVBADLMTR_CFLOC_DVBADLMTR_SSN_DVBADLMTR_ADMDT_DVBADLMTR_""""_DIAG_""""_DVBADLMTR
  • Line Location: PRINTD+9
Function Call: WRITE
  • Prompt: DCHGDT_DVBADLMTR_""""_BEDSEC_""""_DVBADLMTR_$S(RCVAA=0:"NO",RCVAA=1:"YES",1:"Not specified")_DVBADLMTR
  • Line Location: PRINTD+10
Function Call: WRITE
  • Prompt: $S(RCVPEN=0:"NO",RCVPEN=1:"YES",1:"Not specified")_DVBADLMTR_""""_ELIG_""""
  • Line Location: PRINTD+11
Function Call: WRITE
  • Prompt: @IOF,!,"VARO COMPLETE ADMISSION REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on "
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: "Patient Name"_DVBADLMTR_"Claim No"_DVBADLMTR_"Claim Folder Loc"_DVBADLMTR
  • Line Location: COLHDR+1
Function Call: WRITE
  • Prompt: "Social Sec No"_DVBADLMTR_"Admission Date"_DVBADLMTR_"Admitting Diagnosis"_DVBADLMTR
  • Line Location: COLHDR+2
Function Call: WRITE
  • Prompt: "Discharge Date"_DVBADLMTR_"Bed Service"_DVBADLMTR_"Recv A&A?"_DVBADLMTR
  • Line Location: COLHDR+3
Function Call: WRITE
  • Prompt: "Pension?"_DVBADLMTR_"Eligibility Data"
  • Line Location: COLHDR+4

Used in RPC

RPC Name Call Tags
DVBAB REPORT ADMINQ ENBROKE2
DVBAB REPORT ADMISSION INQUIRY ENBROKER
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC