PSOQ0186.m

PSOQ0186 ;HINES/RMS - MEDICATION WORKSHEET HEALTH SUMMARY ; 30 Nov 2007  7:51 AM

 ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13

 ;

TASK2 ;NEW ENTRY POINT FOR REVISIONS WITH PENDING MEDS

 N PSOSITE,ARLPAT

 S ARLPAT=+DFN,PSOQHS=1

 S PSOSITE=$O(^PS(59,"D",+$$SITE^VASITE,0))

 I PSOSITE']"" S PSOSITE=$O(^PS(59,0))

 D EN^PSOQMCAL

 K PSOQHS

 Q

PSOQ0186  ;HINES/RMS - MEDICATION WORKSHEET HEALTH SUMMARY ; 30 Nov 2007  7:51 AM

 +1       ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13

 +2       ;

TASK2     ;NEW ENTRY POINT FOR REVISIONS WITH PENDING MEDS

 +1        NEW PSOSITE,ARLPAT

 +2        SET ARLPAT=+DFN

           SET PSOQHS=1

 +3        SET PSOSITE=$ORDER(^PS(59,"D",+$$SITE^VASITE,0))

 +4        IF PSOSITE']""

               SET PSOSITE=$ORDER(^PS(59,0))

 +5        DO EN^PSOQMCAL

 +6        KILL PSOQHS

 +7        QUIT