- 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 ---[H[J[2J[HPSSMEDX 707 printed Feb 18, 2025@23:59:06 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