PSOEXREF ;BHAM/RTR - Cross references for External Interface File ; 03/20/96 09:45
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
;
SDATE ;Set logic for Date/Time field
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)=""
Q
KDATE ;Kill logic for Date/Time field
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)
Q
SDIV ;Set logic for Division Field
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)=""
Q
KDIV ;Kill logic for Division field
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)
Q
SPER ;Set logic for person field
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)=""
Q
KPER ;Kill logic for person field
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)
Q
SMES ;Set Logic for Message ID
S:$P($G(^PS(52.51,DA,0)),"^",11) ^PS(52.51,"AM",X,$P(^PS(52.51,DA,0),"^",11),DA)=""
Q
KMES ;Kill Logic for Message ID
K:$P($G(^PS(52.51,DA,0)),"^",11) ^PS(52.51,"AM",X,$P(^PS(52.51,DA,0),"^",11),DA)
Q
SDIVM ;Set logic for Division (Message Server ID)
S:$P($G(^PS(52.51,DA,1)),"^")'="" ^PS(52.51,"AM",$P(^PS(52.51,DA,1),"^"),X,DA)=""
Q
KDIVM ;Kill logic for Division (Message Server ID)
K:$P($G(^PS(52.51,DA,1)),"^")'="" ^PS(52.51,"AM",$P(^PS(52.51,DA,1),"^"),X,DA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOEXREF 1606 printed Dec 13, 2024@02:29:21 Page 2
PSOEXREF ;BHAM/RTR - Cross references for External Interface File ; 03/20/96 09:45
+1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
+2 ;
SDATE ;Set logic for Date/Time field
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",11)&($PIECE($GET(^(0)),"^",4))
SET ^PS(52.51,"AS",X,$PIECE(^PS(52.51,DA,0),"^",11),$PIECE(^(0),"^",4),DA)=""
+2 QUIT
KDATE ;Kill logic for Date/Time field
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",11)&($PIECE($GET(^(0)),"^",4))
KILL ^PS(52.51,"AS",X,$PIECE(^PS(52.51,DA,0),"^",11),$PIECE(^(0),"^",4),DA)
+2 QUIT
SDIV ;Set logic for Division Field
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",3)&($PIECE($GET(^(0)),"^",4))
SET ^PS(52.51,"AS",$PIECE(^PS(52.51,DA,0),"^",3),X,$PIECE(^(0),"^",4),DA)=""
+2 QUIT
KDIV ;Kill logic for Division field
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",3)&($PIECE($GET(^(0)),"^",4))
KILL ^PS(52.51,"AS",$PIECE(^PS(52.51,DA,0),"^",3),X,$PIECE(^(0),"^",4),DA)
+2 QUIT
SPER ;Set logic for person field
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",3)&($PIECE($GET(^(0)),"^",11))
SET ^PS(52.51,"AS",$PIECE(^PS(52.51,DA,0),"^",3),$PIECE(^(0),"^",11),X,DA)=""
+2 QUIT
KPER ;Kill logic for person field
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",3)&($PIECE($GET(^(0)),"^",11))
KILL ^PS(52.51,"AS",$PIECE(^PS(52.51,DA,0),"^",3),$PIECE(^(0),"^",11),X,DA)
+2 QUIT
SMES ;Set Logic for Message ID
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",11)
SET ^PS(52.51,"AM",X,$PIECE(^PS(52.51,DA,0),"^",11),DA)=""
+2 QUIT
KMES ;Kill Logic for Message ID
+1 if $PIECE($GET(^PS(52.51,DA,0)),"^",11)
KILL ^PS(52.51,"AM",X,$PIECE(^PS(52.51,DA,0),"^",11),DA)
+2 QUIT
SDIVM ;Set logic for Division (Message Server ID)
+1 if $PIECE($GET(^PS(52.51,DA,1)),"^")'=""
SET ^PS(52.51,"AM",$PIECE(^PS(52.51,DA,1),"^"),X,DA)=""
+2 QUIT
KDIVM ;Kill logic for Division (Message Server ID)
+1 if $PIECE($GET(^PS(52.51,DA,1)),"^")'=""
KILL ^PS(52.51,"AM",$PIECE(^PS(52.51,DA,1),"^"),X,DA)
+2 QUIT
