PSOEXREF.m

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 ---PSOEXREF   1606     printed  Jun 11, 2024@22:13:09                                                                                                                                                                                                    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