source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOQCF04.m@ 1005

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

initial load of WorldVistAEHR

File size: 523 bytes
Line 
1PSOQCF04 ;HINES/RMS - NON-VA MEDS DOCUMENTATION DATE ; 30 Nov 2007 7:55 AM
2 ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
3 ;
4NVADT(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.