PXRMETHL.m

PXRMETHL ; SLC/PKR/PJH - Reminder Extract Transmissions; 12/09/2003

 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21

 ;

 ;Main entry point for PXRM EXTRACT TRANSMISSIONS

START(IEN) N VALMBCK,VALMCNT,VALMSG,X,XMZ,XQORM,XQORNOD

 ;Details of last run

 N DATA,NPERIOD,NSDATE,NTASK

 S DATA=$G(^PXRM(810.2,IEN,0))

 ;S NPERIOD=$P(DATA,U,6),NSDATE=$P(DATA,U,7),NTASK=$P(DATA,U,8)

 S NPERIOD=$P(DATA,U,6),NSDATE=$P(DATA,U,7)

 S VALMCNT=0

 D EN^VALM("PXRM EXTRACT TRANSMISSIONS")

 Q

 ;

BLDLIST ;Build workfile

 K ^TMP("PXRMETHL",$J)

 ;List of HL7 transmissions in reverse date order

 N ID,SUB,XDATE,XSTATUS

 S ID=""

 F  S ID=$O(^PXRMXT(810.3,IEN,5,"B",ID),-1) Q:ID=""  D

 .S SUB=$O(^PXRMXT(810.3,IEN,5,"B",ID,"")) Q:'SUB

 .S XDATE=$P($G(^PXRMXT(810.3,IEN,5,SUB,0)),U,2)

 .S XSTATUS=$$STATUS^PXRM7API(ID)

 .I 'XDATE S XDATE="Not Transmitted",XSTATUS=""

 .S VALMCNT=VALMCNT+1

 .S ^TMP("PXRMETHL",$J,VALMCNT,0)=$$FRE(ID,XDATE,XSTATUS)

 Q

 ;

FRE(ID,DATE,STATUS) ;Format  entry number, name, date created

 N TDATE,TEMP,TID,TSTATUS

 S TID=$E(ID,1,13)

 S TEMP=" "_$$LJ^XLFSTR(TID,16," ")

 S TDATE=$$FMTE^XLFDT(DATE,"5Z")

 S TEMP=TEMP_"  "_$$LJ^XLFSTR(TDATE,20," ")

 S TSTATUS=$E(STATUS,1,38)

 S TEMP=TEMP_"  "_$$LJ^XLFSTR(TSTATUS,38," ")

 Q TEMP

 ;

ENTRY ;Entry code

 D BLDLIST

 Q

 ;

EXIT ;Exit code

 K ^TMP("PXRMETHL",$J)

 D CLEAN^VALM10

 D FULL^VALM1

 S VALMBCK="Q"

 Q

 ;

HDR ; Header code

 S VALMHDR(2)="  Extract Summary Name: "_$P($G(^PXRMXT(810.3,IEN,0)),U)

 S VALMHDR(3)="          Date Created: "_$$FMTE^XLFDT($P($G(^PXRMXT(810.3,IEN,0)),U,6),"5Z")

 S VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"

 Q

 ;

INIT ;Initialization code

 S VALMCNT=0

 Q

PXRMETHL  ; SLC/PKR/PJH - Reminder Extract Transmissions; 12/09/2003

 +1       ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21

 +2       ;

 +3       ;Main entry point for PXRM EXTRACT TRANSMISSIONS

START(IEN)  NEW VALMBCK,VALMCNT,VALMSG,X,XMZ,XQORM,XQORNOD

 +1       ;Details of last run

 +2        NEW DATA,NPERIOD,NSDATE,NTASK

 +3        SET DATA=$GET(^PXRM(810.2,IEN,0))

 +4       ;S NPERIOD=$P(DATA,U,6),NSDATE=$P(DATA,U,7),NTASK=$P(DATA,U,8)

 +5        SET NPERIOD=$PIECE(DATA,U,6)

           SET NSDATE=$PIECE(DATA,U,7)

 +6        SET VALMCNT=0

 +7        DO EN^VALM("PXRM EXTRACT TRANSMISSIONS")

 +8        QUIT 

 +9       ;

BLDLIST   ;Build workfile

 +1        KILL ^TMP("PXRMETHL",$JOB)

 +2       ;List of HL7 transmissions in reverse date order

 +3        NEW ID,SUB,XDATE,XSTATUS

 +4        SET ID=""

 +5        FOR 

               SET ID=$ORDER(^PXRMXT(810.3,IEN,5,"B",ID),-1)

               IF ID=""

                   QUIT 

               Begin DoDot:1

 +6                SET SUB=$ORDER(^PXRMXT(810.3,IEN,5,"B",ID,""))

                   IF 'SUB

                       QUIT 

 +7                SET XDATE=$PIECE($GET(^PXRMXT(810.3,IEN,5,SUB,0)),U,2)

 +8                SET XSTATUS=$$STATUS^PXRM7API(ID)

 +9                IF 'XDATE

                       SET XDATE="Not Transmitted"

                       SET XSTATUS=""

 +10               SET VALMCNT=VALMCNT+1

 +11               SET ^TMP("PXRMETHL",$JOB,VALMCNT,0)=$$FRE(ID,XDATE,XSTATUS)

               End DoDot:1

 +12       QUIT 

 +13      ;

FRE(ID,DATE,STATUS) ;Format  entry number, name, date created

 +1        NEW TDATE,TEMP,TID,TSTATUS

 +2        SET TID=$EXTRACT(ID,1,13)

 +3        SET TEMP=" "_$$LJ^XLFSTR(TID,16," ")

 +4        SET TDATE=$$FMTE^XLFDT(DATE,"5Z")

 +5        SET TEMP=TEMP_"  "_$$LJ^XLFSTR(TDATE,20," ")

 +6        SET TSTATUS=$EXTRACT(STATUS,1,38)

 +7        SET TEMP=TEMP_"  "_$$LJ^XLFSTR(TSTATUS,38," ")

 +8        QUIT TEMP

 +9       ;

ENTRY     ;Entry code

 +1        DO BLDLIST

 +2        QUIT 

 +3       ;

EXIT      ;Exit code

 +1        KILL ^TMP("PXRMETHL",$JOB)

 +2        DO CLEAN^VALM10

 +3        DO FULL^VALM1

 +4        SET VALMBCK="Q"

 +5        QUIT 

 +6       ;

HDR       ; Header code

 +1        SET VALMHDR(2)="  Extract Summary Name: "_$PIECE($GET(^PXRMXT(810.3,IEN,0)),U)

 +2        SET VALMHDR(3)="          Date Created: "_$$FMTE^XLFDT($PIECE($GET(^PXRMXT(810.3,IEN,0)),U,6),"5Z")

 +3        SET VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"

 +4        QUIT 

 +5       ;

INIT      ;Initialization code

 +1        SET VALMCNT=0

 +2        QUIT