- Timestamp:
- Dec 4, 2009, 8:26:01 PM (15 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOPMP0.m
r628 r636 1 1 PSOPMP0 ;BIRM/MFR - Patient Medication Profile - Listmanager ;10/28/06 2 ;;7.0;OUTPATIENT PHARMACY;**260 ,281**;DEC 1997;Build 412 ;;7.0;OUTPATIENT PHARMACY;**260**;DEC 1997;Build 84 3 3 ;Reference to EN1^GMRADPT supported by IA #10099 4 4 ;Reference to EN6^GMRVUTL supported by IA #1120 … … 14 14 ; - Patient selection 15 15 W !! S DIC=2,DIC(0)="QEAM" D ^DIC G EXIT:Y<0 S DFN=+Y 16 ;17 S PSODFN=DFN D CHKADDR^PSOBAI(DFN,1,1) ;bad address flag/update18 16 ; 19 17 D LST(PSOSITE,DFN) … … 102 100 ; 103 101 SETSORT(FIELD) ; - Sets the data sorted by the FIELD specified 104 N SEQ,RX,RXNUM,DRUG,DRNAME,QTY,STATUS,STS,ISSDT,DOCDAT,LSTFD,REFREM,DAYSUP,SIG,Z,ORD,GRPCNT,GROUP,RFRX,OI ,PSOBADR102 N SEQ,RX,RXNUM,DRUG,DRNAME,QTY,STATUS,STS,ISSDT,DOCDAT,LSTFD,REFREM,DAYSUP,SIG,Z,ORD,GRPCNT,GROUP,RFRX,OI 105 103 ; 106 104 K ^TMP("PSOPMPSR",$J) … … 120 118 . S REFREM=$$REFREM^PSOPMP1(RX) 121 119 . S DAYSUP=$$GET1^DIQ(52,RX,8) 122 . S PSOBADR=$O(^PSRX(RX,"L",9999),-1)123 . I PSOBADR'="" S PSOBADR=$G(^PSRX(RX,"L",PSOBADR,0)) I PSOBADR["(BAD ADDRESS)" S PSOBADR="B"124 . I PSOBADR'="B" S PSOBADR=""125 120 . S Z="",$P(Z,"^")=RX,$P(Z,"^",2)=RXNUM_$$COPAY^PSOPMP1(RX)_$$ECME^PSOBPSUT(RX),$P(Z,"^",3)=$E(DRNAME,1,30) 126 . S $P(Z,"^",4)=QTY,$P(Z,"^",5)=$P(STATUS,"^",3)_$$CMOP^PSOPMP1(DRUG,RX) _PSOBADR,$P(Z,"^",6)=$P(ISSDT,"^",2)121 . S $P(Z,"^",4)=QTY,$P(Z,"^",5)=$P(STATUS,"^",3)_$$CMOP^PSOPMP1(DRUG,RX),$P(Z,"^",6)=$P(ISSDT,"^",2) 127 122 . S $P(Z,"^",7)=$P(LSTFD,"^",2),$P(Z,"^",8)=REFREM,$P(Z,"^",9)=DAYSUP 128 123 . S SORT=$S(FIELD="RX":RXNUM_" ",FIELD="DR":DRNAME_RXNUM,FIELD="ID":+ISSDT_RXNUM_" ",FIELD="LF":+LSTFD_RXNUM_" ") … … 231 226 ; 232 227 ; - Regular prescription 233 I TYPE="RX" D S VALMBCK="R" D REF228 I TYPE="RX" D 234 229 . N PSOVDA,PSOSAVE,DA,PS 235 . S (PSOVDA,DA)=ORD,PS="REJECT MP"230 . S (PSOVDA,DA)=ORD,PS="REJECT" 236 231 . N LINE,TITLE,PSODFN D DP^PSORXVW 237 232 ;
Note:
See TracChangeset
for help on using the changeset viewer.