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

VAFCCOPT.m

Go to the documentation of this file. 
  1. VAFCCOPT ;ALB/CM/PHH/EG/GAH OUTPATIENT APPT (HL7 MESS) NIGHT JOB ; 10/18/06
  1.  ;;5.3;Registration;**91,298,568,585,725,1015**;Jun 06, 1996;Build 21
  1.  ;hl7v1.6
  1.  ;This routine will loop through the Hospital Location file "S" node
  1.  ;and generate an HL7-v2.3 A08 message for all appointments for today
  1.  ;that have a status of "No action taken" or "Future"
  1.  ;the HL7 message is not batch.
  1.  ;
  1.  ;07/07/00 ACS - Added sequence 39 (facility+suffix) to the outpatient
  1.  ;string of fields
  1.  ;
  1.  ;Check to see if sending v2.3 is on or off
  1. EN I '$P($$SEND^VAFHUTL(),"^",2) Q
  1.  ;
  1.  S ERRB="^TMP($J,""ADT-ERR"","
  1.  ;
  1.  N STAT,X1,X2
  1.  ;This job should be set to run after midnight daily.
  1.  D NOW^%DTC S START=X
  1.  S X1=START,X2=1 D C^%DTC S STOP=X K X1,X2,%H,X,%,%I
  1.  S ENT=0,GBL="^TMP(""HLS"",$J)"
  1.  ;
  1.  K HL D INIT^HLFNC2("VAFC ADT-A08-SCHED SERVER",.HL)
  1.  I $D(HL)=1 DO  QUIT
  1.  .I $P(HL,"^",2)="Server Protocol Disabled"
  1.  .E  S @ERRB@(1)=HL D EBULL^VAFHUTL2("","","",ERRB)
  1.  ;
  1.  S PSTR="2,3,7,10,18,39,44,50"
  1.  ;
  1.  N DGARRAY,DGCNT
  1.  S COUNT=0
  1.  F  S ENT=$O(^SC(ENT)) Q:(ENT="")!(ENT'?.N)  D
  1.  .S ENT1=START
  1.  .S DGARRAY(1)=START_";"_STOP,DGARRAY("FLDS")="1;3",DGARRAY(2)=ENT
  1.  .S DGCNT=$$SDAPI^SDAMA301(.DGARRAY)
  1.  .;
  1.  .I DGCNT>0 S DFN=0 F  S DFN=$O(^TMP($J,"SDAMA301",ENT,DFN)) Q:DFN=""  D
  1.  ..Q:'$D(^DPT(DFN,0))
  1.  ..S ENT1=0 F  S ENT1=$O(^TMP($J,"SDAMA301",ENT,DFN,ENT1)) Q:ENT1=""!(ENT1'?.N1".".N)  D
  1.  ...S STAT=$P($P(^TMP($J,"SDAMA301",ENT,DFN,ENT1),"^",3),";")
  1.  ...I STAT="NT" S ERR=$$CREATE() I +ERR>0 S VPTR=$P(ERR,"^",6) D GEN
  1.  ...I +$G(ERR)<0 S @ERRB@(1)=ERR D EBULL^VAFHUTL2("","","",ERRB)
  1.  .I DGCNT'=0 K ^TMP($J,"SDAMA301")
  1.  D EXIT
  1.  Q
  1.  ;
  1. GEN I COUNT DO  ;first time through its been done
  1.  . K HL D INIT^HLFNC2("VAFC ADT-A08-SCHED SERVER",.HL)
  1.  . I $D(HL)=1 DO
  1.  . . S @ERRB@(1)=HL D EBULL^VAFHUTL2("","","",ERRB)
  1.  I $D(HL)=1 S ENT="ZZZZEND",ENT1=9999999,ENT2=9999999 Q
  1.  ;
  1.  ;
  1.  ;Generate the following segments:
  1.  ;EVN
  1.  S EVN=$$EVN^VAFHLEVN("A08","05")
  1.  I +EVN=-1 S ERR="-1^Unable to generate EVN segment" Q
  1.  ;PID
  1.  S VAFPID=$$EN^VAFCPID(DFN,"2,3,4,5,6,7,8,9,11,12,13,14,16,19,29,30")
  1.  ;ZPD
  1.  S ZPD=$$EN^VAFHLZPD(DFN,"2,3,4,5,6,7,8,9,10,11,12,13,14,15")
  1.  ;PV1 (outpatient)
  1.  S PV1=$$OUT^VAFHLPV1(DFN,EVENT,EVDT,VPTR,PSTR)
  1.  I +PV1=-1 S ERR="-1^Unable to generate PV1 segment" Q
  1.  ;
  1.  ; no dg1 segment will be created.  No diagnosis
  1.  ; information will be known at this stage.
  1.  S COUNT=1
  1.  K ^TMP("HLS",$J)
  1.  ;
  1.  ;
  1.  S @GBL@(COUNT)=EVN,COUNT=COUNT+1
  1.  MERGE @GBL@(COUNT)=VAFPID S COUNT=COUNT+1
  1.  S @GBL@(COUNT)=ZPD,COUNT=COUNT+1
  1.  S @GBL@(COUNT)=PV1
  1.  ;
  1.  D GENERATE^HLMA("VAFC ADT-A08-SCHED SERVER","GM",1,,.HLRST)
  1.  I $L($P(HLRST,2,99)) DO
  1.  . S @ERRB@(1)=HLRST D EBULL^VAFHUTL2("","","",ERRB)
  1.  . S ERRCNT=$G(ERRCNT)+1
  1.  . I $G(ERRCNT)>10 S ENT="ZZZZEND",ENT1=9999999,ENT2=9999999
  1.  Q
  1.  ;
  1. EXIT K HLERR
  1.  ;
  1.  D KILL^HLTRANS
  1.  K ERRCNT,VAFPID,^TMP("HLS",$J),SEQ,RESULT,MID
  1.  K PSTR,ZPD,DG1,PID,PV1,MSH,EVN,ENT,ENT1,ENT2,DFN,START,STOP,GBL,HLSDT
  1.  K EVDT,HLMTN,EVENT,COUNT,HLEVN,HLENTRY,ERR,VPTR,ERRB
  1.  Q
  1.  ;
  1. CREATE() ;
  1.  ;creates new entry in pivot file
  1.  N NODE,VPTR
  1.  S EVDT=ENT1,VPTR=DFN_";DPT("
  1.  S NODE=$$PIVNW^VAFHPIVT(DFN,EVDT,2,VPTR)
  1.  I +NODE=-1 Q NODE
  1.  S EVENT=$P(NODE,":")
  1.  Q EVENT_"^"_NODE