| [613] | 1 | PSOEXREF ;BHAM/RTR - Cross references for External Interface File ; 03/20/96 09:45
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|---|
| 3 | ;
|
|---|
| 4 | SDATE ;Set logic for Date/Time field
|
|---|
| 5 | 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)=""
|
|---|
| 6 | Q
|
|---|
| 7 | KDATE ;Kill logic for Date/Time field
|
|---|
| 8 | 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)
|
|---|
| 9 | Q
|
|---|
| 10 | SDIV ;Set logic for Division Field
|
|---|
| 11 | 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)=""
|
|---|
| 12 | Q
|
|---|
| 13 | KDIV ;Kill logic for Division field
|
|---|
| 14 | 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)
|
|---|
| 15 | Q
|
|---|
| 16 | SPER ;Set logic for person field
|
|---|
| 17 | 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)=""
|
|---|
| 18 | Q
|
|---|
| 19 | KPER ;Kill logic for person field
|
|---|
| 20 | 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)
|
|---|
| 21 | Q
|
|---|
| 22 | SMES ;Set Logic for Message ID
|
|---|
| 23 | S:$P($G(^PS(52.51,DA,0)),"^",11) ^PS(52.51,"AM",X,$P(^PS(52.51,DA,0),"^",11),DA)=""
|
|---|
| 24 | Q
|
|---|
| 25 | KMES ;Kill Logic for Message ID
|
|---|
| 26 | K:$P($G(^PS(52.51,DA,0)),"^",11) ^PS(52.51,"AM",X,$P(^PS(52.51,DA,0),"^",11),DA)
|
|---|
| 27 | Q
|
|---|
| 28 | SDIVM ;Set logic for Division (Message Server ID)
|
|---|
| 29 | S:$P($G(^PS(52.51,DA,1)),"^")'="" ^PS(52.51,"AM",$P(^PS(52.51,DA,1),"^"),X,DA)=""
|
|---|
| 30 | Q
|
|---|
| 31 | KDIVM ;Kill logic for Division (Message Server ID)
|
|---|
| 32 | K:$P($G(^PS(52.51,DA,1)),"^")'="" ^PS(52.51,"AM",$P(^PS(52.51,DA,1),"^"),X,DA)
|
|---|
| 33 | Q
|
|---|
