- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGOEC.m
r628 r636 1 1 PSGOEC ;BIR/CML3-CANCEL ORDERS ;02 Mar 99 / 9:29 AM 2 ;;5.0; INPATIENT MEDICATIONS ;**23,58,110,175 ,201**;16 DEC 97;Build 22 ;;5.0; INPATIENT MEDICATIONS ;**23,58,110,175**;16 DEC 97;Build 18 3 3 ; 4 4 ; Reference to ^PS(55 is supported by DBIA# 2191. … … 96 96 N PROVIDER,PROVNAME,RESULT,RSB S RESULT=0 97 97 S PROVIDER=+$P($G(^PS(55,DFN,5.1)),"^",2),PROVNAME="" 98 I $G(PSJRQPND) S PROVIDER=0 98 99 I PROVIDER>0 D 99 100 .S DIC=200,DR="53.1;53.4",DIQ="RSB",DIQ(0)="I",DA=PROVIDER D EN^DIQ1
Note:
See TracChangeset
for help on using the changeset viewer.