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

Package: Automated Medical Information Exchange

Routine: DVBAB9


Information

DVBAB9 ;ALB/SPH - CAPRI DISCHARGE REPORT ;09/06/00

Source Information

Source file <DVBAB9.m>

Entry Points

Name Comments DBIA/ICR reference
STRT(MSG,BDATE,EDATE,RONUM,DUZ) ;
SET
PRINTB
PRINT
PRINT1
TERM
SETUP
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

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: WRITE
  • Prompt: ?10,"Patient Name:",?26,PNAM,!!,?14,"Claim No:",?26,CNUM,!,?6,"Claim Folder Loc:",?26,CFLOC,!,?9,"Social Sec No:",?26,SSN,!
  • Line Location: PRINTB+3
Function Call: WRITE
  • Prompt: ?8,"Discharge Date:",?26,$$FMTE^XLFDT(DCHGDT,"5DZ"),!,?5,"Type of Discharge:",?26,TDIS,!
  • Line Location: PRINTB+4
Function Call: WRITE
  • Prompt: ?8,"Length of Stay:",?26,LOS_$S(LOS="":"Discharged same day",LOS=1:" day",1:" days"),!
  • Line Location: PRINTB+5
Function Call: WRITE
  • Prompt: ?11,"Bed Service:",?26,BEDSEC,!
  • Line Location: PRINTB+6
Function Call: WRITE
  • Prompt: ?13,"Recv A&A?:",?26,$S(RCVAA="0":"NO",RCVAA="1":"YES",1:"Not specified"),!
  • Line Location: PRINTB+7
Function Call: WRITE
  • Prompt: ?14,"Pension?:",?26,$S(RCVPEN="0":"NO",RCVPEN="1":"YES",1:"Not specified"),!
  • Line Location: PRINTB+8
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRINTB+9
Function Call: WRITE
  • Prompt: @IOF,!,"VARO DISCHARGE REPORT"
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADTYPE+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ADTYPE+7
Function Call: WRITE
  • Prompt: !!,*7,"No data found for parameters entered.",!!
  • Line Location: GO+1

Used in RPC

RPC Name Call Tags
DVBAB REPORT CHECKLIST REPORT1
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC