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
 ;