18 lines
439 B
Mathematica
18 lines
439 B
Mathematica
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
|
|
;
|