|
Last change
on this file since 1080 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
523 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
