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

BCHPCCBL.m

Go to the documentation of this file.
  1. BCHPCCBL ; IHS/CMI/LAB - back load chr visits to PCC ;
  1. ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
  1. ;
  1. ;
  1. W:$D(IOF) @IOF
  1. W !!,"This routine will loop through all CHR records for a time frame you specify",!,"and if there is no PCC visit already created it will fire the CHR to PCC",!,"link for that record.",!!
  1. W !!,"This routine should be used if the PCC link was turned off for some reason",!,"or another.",!!
  1. GETDATES ;
  1. S BCHBLCNT=0
  1. BD ;get beginning date
  1. W ! S DIR(0)="D^:DT:EP",DIR("A")="Enter BEGINNING Visit Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I $D(DIRUT) G XIT
  1. S BCHBD=Y
  1. ED ;get ending date
  1. W ! S DIR(0)="D^"_BCHBD_":DT:EP",DIR("A")="Enter ENDING Visit Date" S Y=BCHBD D DD^%DT S DIR("B")=Y,Y="" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I $D(DIRUT) G BD
  1. S BCHED=Y
  1. S X1=BCHBD,X2=-1 D C^%DTC S BCHSD=X
  1. S DIR(0)="Y",DIR("A")="Are you sure you want to continue",DIR("B")="N" KILL DA D ^DIR KILL DIR
  1. I $D(DIRUT) D XIT Q
  1. I 'Y D XIT Q
  1. PROCESS ;
  1. F S BCHSD=$O(^BCHR("B",BCHSD)) Q:BCHSD=""!(BCHSD>BCHED) D
  1. .S BCHR=0 F S BCHR=$O(^BCHR("B",BCHSD,BCHR)) Q:BCHR'=+BCHR D
  1. ..Q:'$D(^BCHR(BCHR,0))
  1. ..Q:$P(^BCHR(BCHR,0),U,15)]""
  1. ..S BCHEV("TYPE")="A"
  1. ..D PROTOCOL^BCHUADD1
  1. ..S BCHBLCNT=BCHBLCNT+1
  1. ..Q
  1. .Q
  1. W !!,"All done. ",BCHBLCNT," records were reviewed and processed.",!
  1. D XIT
  1. Q
  1. XIT ;
  1. D EN^XBVK("BCH")
  1. Q