Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
685 bytes
|
Rev | Line | |
---|
[613] | 1 | PSDCOR3 ;BIR/JPW-CS Correction Action (cont'd) ; 22 May 93
|
---|
| 2 | ;;3.0; CONTROLLED SUBSTANCES ;**66**;13 Feb 97;Build 3
|
---|
| 3 | COM ;complete correction
|
---|
| 4 | S CPBYD=+$P(NODE,"^",19)
|
---|
| 5 | F L +^PSD(58.87,0):$S($G(DILOCKTM)>0:DILOCKTM,1:3) I Q
|
---|
| 6 | FIND S PSDCOR=$P(^PSD(58.87,0),"^",3)+1 I $D(^PSD(58.87,PSDCOR)) S $P(^PSD(58.87,0),"^",3)=PSDCOR G FIND
|
---|
| 7 | K DA,DIC,DLAYGO S (DIC,DLAYGO)=58.87,DIC(0)="L",X=PSDCOR D ^DIC K DIC,DLAYGO
|
---|
| 8 | L -^PSD(58.87,0)
|
---|
| 9 | K DA,DIE,DR S DIE=58.87,DA=PSDCOR,DR="1////"_RECDT_";2////"_PSDUZ_";3////"_PSDPN_";4////"_PSDR_";5////"_NAOU_";7////"_CPBYD_";8////"_ORD_";9////"_CPBY_";11////"_TYPE_";12////"_PSDS_";13////"_OCOMP_";14////"_COMP
|
---|
| 10 | D ^DIE K DA,DIE,DR
|
---|
| 11 | END K CPBY,CPBYD,PSDCOR
|
---|
| 12 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.