PSSMEDX.m

PSSMEDX ;BIR/TS-CROSS REFERENCE LOGIC FOR STANDARD MEDICATION ROUTE POINTER IN 51.2 ;04/04/08

 ;;1.0;PHARMACY DATA MANAGEMENT;**129**;9/30/07;Build 67

 ;

SET ;This routine is called by the AC cross-reference on Field #10 of the Medication Routes (#51.2) File

 I $G(X1(1))=$G(X2(1)) Q

 N PSSHASH

 ;DA represents the current record called by the cross-reference

 S PSSHASH("DA")=DA

 D READ

 Q

 ;

READ ;Set values

 N PSSHASHX,%,%H,%I,X

 D NOW^%DTC S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",.01)=%

 S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",1)=$G(DUZ)

 S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",2)=$G(X1(1))

 S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",3)=$G(X2(1))

 D UPDATE^DIE("","PSSHASHX")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSMEDX   707     printed  Nov 22, 2024@17:43:05                                                                                                                                                                                                      Page 2

PSSMEDX   ;BIR/TS-CROSS REFERENCE LOGIC FOR STANDARD MEDICATION ROUTE POINTER IN 51.2 ;04/04/08

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**129**;9/30/07;Build 67

 +2       ;

SET       ;This routine is called by the AC cross-reference on Field #10 of the Medication Routes (#51.2) File

 +1        IF $GET(X1(1))=$GET(X2(1))

               QUIT 

 +2        NEW PSSHASH

 +3       ;DA represents the current record called by the cross-reference

 +4        SET PSSHASH("DA")=DA

 +5        DO READ

 +6        QUIT 

 +7       ;

READ      ;Set values

 +1        NEW PSSHASHX,%,%H,%I,X

 +2        DO NOW^%DTC

           SET PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",.01)=%

 +3        SET PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",1)=$GET(DUZ)

 +4        SET PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",2)=$GET(X1(1))

 +5        SET PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",3)=$GET(X2(1))

 +6        DO UPDATE^DIE("","PSSHASHX")

 +7        QUIT