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

PSOEXREF.m

Go to the documentation of this file.
  1. PSOEXREF ;BHAM/RTR - Cross references for External Interface File ; 03/20/96 09:45
  1. ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
  1. ;
  1. SDATE ;Set logic for Date/Time field
  1. S:$P($G(^PS(52.51,DA,0)),"^",11)&($P($G(^(0)),"^",4)) ^PS(52.51,"AS",X,$P(^PS(52.51,DA,0),"^",11),$P(^(0),"^",4),DA)=""
  1. Q
  1. KDATE ;Kill logic for Date/Time field
  1. K:$P($G(^PS(52.51,DA,0)),"^",11)&($P($G(^(0)),"^",4)) ^PS(52.51,"AS",X,$P(^PS(52.51,DA,0),"^",11),$P(^(0),"^",4),DA)
  1. Q
  1. SDIV ;Set logic for Division Field
  1. S:$P($G(^PS(52.51,DA,0)),"^",3)&($P($G(^(0)),"^",4)) ^PS(52.51,"AS",$P(^PS(52.51,DA,0),"^",3),X,$P(^(0),"^",4),DA)=""
  1. Q
  1. KDIV ;Kill logic for Division field
  1. K:$P($G(^PS(52.51,DA,0)),"^",3)&($P($G(^(0)),"^",4)) ^PS(52.51,"AS",$P(^PS(52.51,DA,0),"^",3),X,$P(^(0),"^",4),DA)
  1. Q
  1. SPER ;Set logic for person field
  1. S:$P($G(^PS(52.51,DA,0)),"^",3)&($P($G(^(0)),"^",11)) ^PS(52.51,"AS",$P(^PS(52.51,DA,0),"^",3),$P(^(0),"^",11),X,DA)=""
  1. Q
  1. KPER ;Kill logic for person field
  1. K:$P($G(^PS(52.51,DA,0)),"^",3)&($P($G(^(0)),"^",11)) ^PS(52.51,"AS",$P(^PS(52.51,DA,0),"^",3),$P(^(0),"^",11),X,DA)
  1. Q
  1. SMES ;Set Logic for Message ID
  1. S:$P($G(^PS(52.51,DA,0)),"^",11) ^PS(52.51,"AM",X,$P(^PS(52.51,DA,0),"^",11),DA)=""
  1. Q
  1. KMES ;Kill Logic for Message ID
  1. K:$P($G(^PS(52.51,DA,0)),"^",11) ^PS(52.51,"AM",X,$P(^PS(52.51,DA,0),"^",11),DA)
  1. Q
  1. SDIVM ;Set logic for Division (Message Server ID)
  1. S:$P($G(^PS(52.51,DA,1)),"^")'="" ^PS(52.51,"AM",$P(^PS(52.51,DA,1),"^"),X,DA)=""
  1. Q
  1. KDIVM ;Kill logic for Division (Message Server ID)
  1. K:$P($G(^PS(52.51,DA,1)),"^")'="" ^PS(52.51,"AM",$P(^PS(52.51,DA,1),"^"),X,DA)
  1. Q