source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPEDT15.m@ 1154

Last change on this file since 1154 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1PPPEDT15 ;ALB/JFP - EDIT FF XREF ROUTINE ;5/19/92
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; This routines control the editing of entries in the foreign facility
6 ; file.
7 ;
8EDIT ; -- EDIT FFX data
9 ;
10 N DELENTRY,PATNAME,STANO,LOCKERR
11 N VALMY,SDI,SDAT,FFXIFN,ERR,TMP,EDTENTRY
12 ;
13 S EDTENTRY=1002
14 S LOCKERR=-9004
15 ;
16 D EN^VALM2($G(XQORNOD(0)),"S")
17 Q:'$D(VALMY)
18 S SDI=""
19 F S SDI=$O(VALMY(SDI)) Q:SDI="" D
20 .S SDAT=$G(@IDXARRAY@(SDI))
21 .S FFXIFN=$P(SDAT,U,2)
22 .S PATNAME=$P(SDAT,U,3)
23 .S STANO=$P(SDAT,U,4)
24 .D EDIT1
25 .D INIT^PPPEDT12
26 S VALMBCK="R"
27 Q
28 ;
29EDIT1 ; -- Edits entry in FFX file
30 S ERR=$$EDITFFX^PPPEDT1(FFXIFN)
31 I ERR=LOCKERR D
32 .W !,"File in use. Please try again later."
33 .R !,"Press <RETURN> to continue...",TMP:DTIME
34 E D
35 .S TMP=$$STATUPDT^PPPMSC1(7,1)
36 .S TMP=$$LOGEVNT^PPPMSC1(EDTENTRY,"EDIT_PPPEDT15",PATNAME_", "_STANO)
37 .;W !,"Entry Updated."
38 .;R !,"Press <RETURN> to continue...",TMP:DTIME
39 Q
40 ;
41END ; -- End of code
42 Q
43 ;
Note: See TracBrowser for help on using the repository browser.