Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSSMEDX

PSSMEDX.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. SET ;This routine is called by the AC cross-reference on Field #10 of the Medication Routes (#51.2) File
  1. I $G(X1(1))=$G(X2(1)) Q
  1. N PSSHASH
  1. ;DA represents the current record called by the cross-reference
  1. S PSSHASH("DA")=DA
  1. D READ
  1. Q
  1. ;
  1. READ ;Set values
  1. N PSSHASHX,%,%H,%I,X
  1. D NOW^%DTC S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",.01)=%
  1. S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",1)=$G(DUZ)
  1. S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",2)=$G(X1(1))
  1. S PSSHASHX(51.27,"+1,"_PSSHASH("DA")_",",3)=$G(X2(1))
  1. D UPDATE^DIE("","PSSHASHX")
  1. Q