Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
523 bytes
|
Line | |
---|
1 | PSOQCF04 ;HINES/RMS - NON-VA MEDS DOCUMENTATION DATE ; 30 Nov 2007 7:55 AM
|
---|
2 | ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
|
---|
3 | ;
|
---|
4 | NVADT(DFN,TEST,DATE,VALUE,TEXT) ;
|
---|
5 | N PSOQL,PSOQDT,PSOQARR,PSOQRDT
|
---|
6 | S TEST=0,DATE=""
|
---|
7 | D ^PSOHCSUM
|
---|
8 | Q:'$D(^TMP("PSOO",$J,"NVA"))
|
---|
9 | S PSOQL=0 F S PSOQL=$O(^TMP("PSOO",$J,"NVA",PSOQL)) Q:'+PSOQL D ;
|
---|
10 | . S PSOQDT=9999999-$P($G(^TMP("PSOO",$J,"NVA",PSOQL,0)),"^",5)
|
---|
11 | . S PSOQARR(PSOQDT)=""
|
---|
12 | S PSOQRDT=$O(PSOQARR(0)) Q:PSOQRDT=9999999
|
---|
13 | S TEST=1,DATE=9999999-PSOQRDT,TEXT=$$FMTE^XLFDT(DATE,"D")
|
---|
14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.