source: FOIAVistA/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSURTQ.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 439 bytes
Line 
1PSURTQ ;BIR/RDC - PATIENT DEMOGRAPHIC QUEUE RETRANSMITION; 12 APR 2004
2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
3 ;
4EN ; ENTRY POINT TO QUEUE RETRANSMITION OF PATIENT
5 ; DEMOGRAPHICS FOR PBM EXTRACT
6 ;
7 S ZTDTH=PSUWHEN
8 S ZTRTN="QUEUE^PSURT2"
9 S ZTDESC="RETRANSMITION OF PATIENT DEMOGRAPHICS DATA FOR PBM"
10 S ZTIO=""
11 S ZTSAVE("PSUSTART")=""
12 S ZTSAVE("PSULAST")=""
13 S ZTSAVE("PSUMME")=""
14 S ZTSAVE("PSUMMSTR")=""
15 D ^%ZTLOAD
16 Q
17 ;
Note: See TracBrowser for help on using the repository browser.