- 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 Jan 18, 2025@03:30:29 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