PSURTQ.m

PSURTQ ;BIR/RDC - PATIENT DEMOGRAPHIC QUEUE RETRANSMITION; 12 APR 2004

 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005

 ;

EN ; ENTRY POINT TO QUEUE RETRANSMITION OF PATIENT

 ; DEMOGRAPHICS FOR PBM EXTRACT

 ;

 S ZTDTH=PSUWHEN

 S ZTRTN="QUEUE^PSURT2"

 S ZTDESC="RETRANSMITION OF PATIENT DEMOGRAPHICS DATA FOR PBM"

 S ZTIO=""

 S ZTSAVE("PSUSTART")=""

 S ZTSAVE("PSULAST")=""

 S ZTSAVE("PSUMME")=""

 S ZTSAVE("PSUMMSTR")=""

 D ^%ZTLOAD

 Q

 ;

PSURTQ    ;BIR/RDC - PATIENT DEMOGRAPHIC QUEUE RETRANSMITION; 12 APR 2004

 +1       ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005

 +2       ;

EN        ; ENTRY POINT TO QUEUE RETRANSMITION OF PATIENT

 +1       ; DEMOGRAPHICS FOR PBM EXTRACT

 +2       ;

 +3        SET ZTDTH=PSUWHEN

 +4        SET ZTRTN="QUEUE^PSURT2"

 +5        SET ZTDESC="RETRANSMITION OF PATIENT DEMOGRAPHICS DATA FOR PBM"

 +6        SET ZTIO=""

 +7        SET ZTSAVE("PSUSTART")=""

 +8        SET ZTSAVE("PSULAST")=""

 +9        SET ZTSAVE("PSUMME")=""

 +10       SET ZTSAVE("PSUMMSTR")=""

 +11       DO ^%ZTLOAD

 +12       QUIT 

 +13      ;