Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBODISP

IBODISP.m

Go to the documentation of this file.
  1. IBODISP ;ALB/AAS - INTEGRATED BILLING - OUTPUTS ; 8-MAR-91
  1. ;;2.0; INTEGRATED BILLING ;**17,199**; 21-MAR-94
  1. ;
  1. EN ;
  1. ;***
  1. ;I $D(XRT0) S:'$D(XRTN) XRTN="EN^IBODISP" D T1^%ZOSV ;stop rt clock
  1. ;S XRTL=$ZU(0),XRTN="EN^IBODISP-1" D T0^%ZOSV ;start rt clock
  1. ; -display ib action by reference number
  1. S DIC="^IB(",DIC(0)="AEQM" D ^DIC K DIC G ENQ:+Y<1 S DA=+Y D DISP G EN
  1. ;***
  1. ;I $D(XRT0) S:'$D(XRTN) XRTN="EN^IBODISP" D T1^%ZOSV ;stop rt clock
  1. Q
  1. ;
  1. DISP S DIC="^IB(",DR="0:1" D EN^DIQ
  1. Q
  1. ENQ K DIC,DA,DR,Y,X,IBQT
  1. Q
  1. EN1 ;
  1. ;***
  1. ;I $D(XRT0) S:'$D(XRTN) XRTN="EN1^IBODISP" D T1^%ZOSV ;stop rt clock
  1. ;S XRTL=$ZU(0),XRTN="EN1^IBODISP-1" D T0^%ZOSV ;start rt clock
  1. ;
  1. ; -display ib action by patient [by date]
  1. N DPTNOFZY S DPTNOFZY=1 ;Suppress PATIENT file fuzzy lookups
  1. S DIC="^DPT(",DIC(0)="AEQM" D ^DIC K DIC G EN1Q:+Y<1 S DFN=+Y
  1. D DATE^IBOUTL G:'IBEDT EN1
  1. ; -loop through inverse dates by patient and display
  1. S S=2,IBDT=IBBDT-.0000001,(IBQUIT,IBOCNT)=0
  1. F IBI=0:0 S IBDT=$O(^IB("APTDT",DFN,IBDT)) Q:'IBDT!(IBDT>(IBEDT+.24)) F IBJJ=0:0 S IBJJ=$O(^IB("APTDT",DFN,IBDT,IBJJ)) Q:'IBJJ!('S)!($D(DTOUT)) S DA=IBJJ,IBOCNT=IBOCNT+1 I DA D DISP,PAUSE^IBOUTL G:IBQUIT EN1
  1. I IBOCNT<1 W !!,"No IB Actions Found for this Date Range",!!
  1. G EN1
  1. EN1Q K DIC,DA,DR,IBEDT,IBBDT,IBDT,IBI,IBJ,IBJJ,IBOCNT,S,X,Y,DFN,D0,IBQUIT
  1. ;***
  1. ;I $D(XRT0) S:'$D(XRTN) XRTN="EN1^IBODISP" D T1^%ZOSV ;stop rt clock
  1. Q
  1. ;
  1. EN2 ;
  1. ; -print list of ib actions
  1. ;***
  1. ;S XRTL=$ZU(0),XRTN="EN2^IBODISP-1" D T0^%ZOSV ;start rt clock
  1. W !!,"Print IB Action Entries by Date Added",!!," ** Please note that this output requires 132 columns **",!
  1. S DIC="^IB(",L=0,FLDS="[IB LIST]",BY="@12,@"
  1. D ASK G:$G(IBQT) ENQ
  1. S DHD="INTEGRATED BILLING ACTIONS FROM: "_FR(1)_" TO: "_TO(1)
  1. D EN1^DIP
  1. K DIC,L,FLDS,FR,BY,TO
  1. D ^%ZISC
  1. ;***
  1. ;I $D(XRT0) S:'$D(XRTN) XRTN="EN2^IBODISP" D T1^%ZOSV ;stop rt clock
  1. Q
  1. ASK ;
  1. N IBBDT,IBEDT
  1. D DATE^IBOUTL
  1. I (IBBDT<1)!(IBEDT<1) S IBQT=1 Q
  1. S FR=IBBDT_",?",TO=IBEDT_",?"
  1. S FR(1)=$$DAT1^IBOUTL(FR),TO(1)=$$DAT1^IBOUTL(TO)
  1. Q