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

ACHSEOBC.m

Go to the documentation of this file.
  1. ACHSEOBC ; IHS/ITSC/TPF/PMF - AUTOMATICALLY DELETE EOBR FILES AT FACILITY ;
  1. ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**18**;JUN 11, 2001
  1. ;
  1. U IO(0)
  1. W !,*7,?10,"NOT AN ENTRY POINT"
  1. Q
  1. ;
  1. FILDEL ;EP - Delete EOBR import files.
  1. S ACHSI=""
  1. FILDELA ;
  1. S ACHSI=$O(ACHSUFLS(ACHSI))
  1. G FILDELC:+ACHSI=0
  1. S ACHSDATE=$P(ACHSUFLS(ACHSI)," ",2)
  1. G FILDELA:$L(ACHSDATE)=0
  1. S ACHSRDAT=9999999-ACHSDATE,ACHSUFLS("C",ACHSRDAT,ACHSI)=""
  1. G FILDELA
  1. ;
  1. FILDELC ;
  1. S (ACHSR,ACHSRR,ACHSDELD,ACHSCNT,ACHSDSAV)=0
  1. FILDELC1 ;
  1. S ACHSR=$O(ACHSUFLS("C",ACHSR))
  1. G FILDELF:+ACHSR=0
  1. FILDELC2 ;
  1. S ACHSRR=$O(ACHSUFLS("C",ACHSR,ACHSRR))
  1. G FILDELC1:+ACHSRR=0
  1. S ACHSCNT=ACHSCNT+1
  1. I ACHSCNT=3 S ACHSDELD=9999999-ACHSR
  1. G FILDELC2
  1. ;
  1. FILDELF ;
  1. G FILDEND:+ACHSDELD=0
  1. U IO(0)
  1. ;ACHS*3.1*18 4.6.2010 IHS.OIT.FCJ CHANGED DEFAULT TO NO IN NXT LINE
  1. I '$$DIR^XBDIR("Y","Delete ALL FI EOBR FILES With Process Date BEFORE "_$$FMTE^XLFDT(ACHSDELD),"N","","","",1) G FILDEND
  1. S ACHSR=9999999-ACHSDELD
  1. FILDELK1 ;
  1. S ACHSR=$O(ACHSUFLS("C",ACHSR))
  1. G FILDEND:+ACHSR=0
  1. S ACHSRR="",ACHSRR=$O(ACHSUFLS("C",ACHSR,ACHSRR))
  1. G FILDELK1:+ACHSRR=0
  1. I +$P(^ACHSF(DUZ(2),2),U,21)<10,$P(ACHSUFLS(ACHSRR)," ",4)>990 G FILDELK2
  1. G FILDELK1:$P(ACHSUFLS(ACHSRR)," ",4)'<+$P(^ACHSF(DUZ(2),2),U,21)
  1. FILDELK2 ;
  1. G FILDELK1:$P(ACHSUFLS(ACHSRR)," ",4)=+$P(^ACHSF(DUZ(2),2),U,21)
  1. S ACHSZFN=$P(ACHSUFLS(ACHSRR)," ",1)
  1. I '$$DEL^%ZISH($$IM^ACHS,ACHSZFN) U IO(0) W !!?10,ACHSZFN," has been DELETED" K ACHSUFLS("C",ACHSR,ACHSRR),ACHSUFLS(ACHSRR)
  1. G FILDELK1
  1. ;
  1. FILDEND ;
  1. Q
  1. ;
  1. REPORT ;EP - Print EOBR processing summary report.
  1. S ACHSPG=0,ACHSZFPT="",ACHSERR=0
  1. D NOW^ACHS
  1. S IOP=ZTIO
  1. D ^%ZIS
  1. I POP S ACHSERR=1 D HOME^%ZIS Q
  1. U IO
  1. D HDR
  1. REPORT1 ;
  1. S ACHSZFPT=$O(ACHSZFCT(ACHSZFPT))
  1. G TOT:ACHSZFPT=""
  1. W !?10,$P(^DIC(4,ACHSZFPT,0),U,1),?55,$J($FN(ACHSZFCT(ACHSZFPT),","),10),!
  1. G REPORT1
  1. ;
  1. HDR ;
  1. S ACHSPG=ACHSPG+1
  1. W @IOF,ACHSTIME,!,?28,"CHS EOBR PROCESSING REPORT",?67,"PAGE ",$J(ACHSPG,3),!,?22,"for Documents Processed on: ",$$FMTE^XLFDT(ACHSEOBD),!,?40-(($L($$LOC^ACHS)+4)\2),"for ",$$LOC^ACHS,!
  1. HDR1 ;
  1. W !!?20,"Facility",?60,"# EOBR's",!?10,$$REPEAT^XLFSTR("-",60),!!
  1. Q
  1. ;
  1. TOT ;
  1. W !!?10,$$REPEAT^XLFSTR("=",60),!
  1. W:$D(ACHSZRC) !!?20,"Total For All Facilities = ",?55,$J($FN(ACHSZRC,","),10)
  1. D RTRN^ACHS
  1. W @IOF
  1. Q
  1. ;