- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSURTQ 456 printed Feb 18, 2025@23:54:29 Page 2
- 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 ;