- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOPMP1.m
r628 r636 1 1 PSOPMP1 ;BIRM/MFR - Patient Medication Profile - Listmanager ;04/28/05 2 ;;7.0;OUTPATIENT PHARMACY;**260 ,285,281**;DEC 1997;Build 412 ;;7.0;OUTPATIENT PHARMACY;**260**;DEC 1997;Build 84 3 3 ;Reference to ^PSDRUG("AQ" supported by IA 3165 4 4 ;Reference to EN1^GMRADPT supported by IA 10099 … … 17 17 . . S LBL=GRPLN(LN),POS=41-($L(LBL)\2) 18 18 . . D CNTRL^VALM10(LN,1,POS-1,IOUON_IOINHI,IOINORM) 19 . . D CNTRL^VALM10(LN,POS,$L(LBL),IORVON_IOINHI,IO RVOFF_IOINORM)19 . . D CNTRL^VALM10(LN,POS,$L(LBL),IORVON_IOINHI,IOINORM) 20 20 . . D CNTRL^VALM10(LN,POS+$L(LBL),81-POS-$L(LBL),IOUON_IOINHI,IOINORM) 21 21 Q … … 73 73 FILTER(RX) ; - Filter Rx's that should not be displayed 74 74 I $$GET1^DIQ(52,RX,26,"I")<PSOEXPDC Q 1 75 I $$GET1^DIQ(52,RX,26.1,"I") ,$$GET1^DIQ(52,RX,26.1,"I")<PSOEXPDC,$$GET1^DIQ(52,RX,100,"I")>11,$$GET1^DIQ(52,RX,100,"I")'=16 Q 175 I $$GET1^DIQ(52,RX,26.1,"I")<PSOEXPDC,$$GET1^DIQ(52,RX,100,"I")>11,$$GET1^DIQ(52,RX,100,"I")'=16 Q 1 76 76 I $$GET1^DIQ(52,RX,100,"I")=""!($$GET1^DIQ(52,RX,100,"I")=13) Q 1 77 77 I $$GET1^DIQ(52,RX,.01)="" Q 1 … … 152 152 I GMRAL S ALLERGY="<A>" 153 153 E D ALLERGY^PSOORUT2 I PSONOAL'="" S ALLERGY="<NO ALLERGY ASSESSMENT>" 154 S ALLERGY=IORVON_ALLERGY_IO RVOFF_IOINORM154 S ALLERGY=IORVON_ALLERGY_IOINORM 155 155 I '$G(POS) S POS=80-$L(ALLERGY) 156 156 S LINE=$$SETSTR^VALM1(ALLERGY,LINE,POS,80)
Note:
See TracChangeset
for help on using the changeset viewer.