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

BLRRLV.m

Go to the documentation of this file.
  1. BLRRLV ; cmi/anch/maw - BLR Verify Reference Lab Results ;
  1. ;;5.2;LR;**1021**;Jul 27, 2006
  1. ;;1.0;BLR REFERENCE LAB;;MAR 14, 2005
  1. ;
  1. ;
  1. ;
  1. ;this routine will allow the user to verify reference lab results
  1. ;before passing them on to PCC
  1. ;
  1. MAIN ;EP - this is the main routine driver
  1. S BLRVER=$$ASKV
  1. I $G(BLRVER) D RFL,EOJ Q
  1. D LOOP
  1. D EOJ
  1. Q
  1. ;
  1. ASKV() ;-- ask to mark all as verified
  1. S DIR(0)="Y",DIR("A")="Do you wish to mark all results as verified"
  1. S DIR("B")="N"
  1. D ^DIR
  1. K DIR
  1. Q +$G(Y)
  1. ;
  1. LOOP ;-- loop the xref and call VER
  1. I '$O(^BLRTXLOG("BVER",0)) D Q
  1. . W !,"No results to verify"
  1. S DIC="^BLRTXLOG("
  1. S BLRVDA=0 F S BLRVDA=$O(^BLRTXLOG("BVER",BLRVDA)) Q:'BLRVDA!$G(BLRVQ) D
  1. . Q:$G(BLRVQ)
  1. . W @IOF
  1. . S DA=BLRVDA
  1. . D DIQ^BLRLM(DIC,DA)
  1. I '$O(^BLRTXLOG("BVER",0)) D Q
  1. . W !!,"No more results to verify"
  1. I $O(^BLRTXLOG("BVER",0)) D Q
  1. . W !!,"Please come back and verify remaining results"
  1. Q
  1. ;
  1. UPD(DA) ;-- mark entry as verified
  1. S DIE="^BLRTXLOG("
  1. S DR="2006////"_$G(DUZ)_";2007///"_$$GET1^DIQ(200,DUZ,.01,"E")
  1. D ^DIE
  1. K ^BLRTXLOG("BVER",BLRVDA)
  1. D ^BLREVTQ("M","REFILE","REFILE",,BLRVDA)
  1. Q
  1. ;
  1. RMV(DA) ;-- remove the entry from the tx log
  1. S DIK="^BLRTXLOG(" D ^DIK
  1. K ^BLRTXLOG("BVER",DA)
  1. Q
  1. ;
  1. RFL ;-- mark all as verified and refile
  1. W !,"Now marking all results as verified"
  1. S BLRVDA=0 F S BLRVDA=$O(^BLRTXLOG("BVER",BLRVDA)) Q:'BLRVDA D
  1. . W "."
  1. . S DA=BLRVDA
  1. . S DIE="^BLRTXLOG("
  1. . S DR="2006////"_$G(DUZ)_";2007///"_$$GET1^DIQ(200,DUZ,.01,"E")
  1. . D ^DIE
  1. . K ^BLRTXLOG("BVER",BLRVDA)
  1. . D ^BLREVTQ("M","REFILE","REFILE",,BLRVDA)
  1. Q
  1. ;
  1. VER() ; EP -- verify individual results
  1. S DIR(0)="Y",DIR("A")="Mark this result as verified"
  1. D ^DIR
  1. K DIR
  1. Q +$G(Y)
  1. ;
  1. XREF(XIEN) ; EP -- setup the x ref for Source Of Data Input
  1. S BLRRL=$P($G(^BLRSITE(DUZ(2),"RL")),U)
  1. Q:'BLRRL
  1. S BLRHLD=$P($G(^BLRRL(BLRRL,0)),U,11)
  1. Q:'BLRHLD
  1. S BLRUNI=$P($G(^BLRRL(BLRRL,0)),U,10)
  1. Q:'BLRUNI
  1. S ^BLRTXLOG("BVER",DA)="R"
  1. Q
  1. ;
  1. EOJ ;-- kill variables
  1. D JOB^BLRPARAM
  1. D EN^XBVK("BLR")
  1. Q
  1. ;