source: WorldVistAEHR/trunk/r/QUASAR-ACKQ/ACKQAS5.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1ACKQAS5 ;AUG/JLTP BIR/PTD HCIOFO/BH-New Clinic Visits ; 04/01/99
2 ;;3.0;QUASAR;;Feb 11, 2000
3 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
4 ;
5 ;
6EDIT ; Edit Template.
7 S ACKVISIT="EDIT",ACKVIEN=DA
8 ;
9 ; Attempt to Lock file before editing
10 L +^ACK(509850.6,ACKVIEN):2 E W !!,"This record is locked by another process - Please try again later.",!! D VEXIT^ACKQAS Q
11 ; If visit has PCE IEN check PCE and Qsr visit data for inconsistancies
12 I $$GET1^DIQ(509850.6,ACKVIEN,"125","I")'="" I '$$DATACHK^ACKQASU3(ACKVIEN) D UNLOCK^ACKQAS,VEXIT^ACKQAS,HEADING^ACKQAS Q
13 S ACKVTME=$P(^ACK(509850.6,ACKVIEN,5),U,8),ACKVTME=$P(ACKVTME,".",2)
14ETPLATE S (DIE,DIC)="^ACK(509850.6,",DR="[ACKQAS VISIT ENTRY]" D ^DIE
15 D UTLAUD^ACKQASU2
16 S ACKQTST=$$POST^ACKQASU2(ACKVIEN) I 'ACKQTST S ACKDFN=DFN G ETPLATE
17 ; ACKQTST will equal 1 (Visit okay or user chose to continue) or
18 ; ACKQTST will equal 2 the visit has been deleted
19 I ACKPCE,ACKQTST=1,$$EXPT^ACKQASU2(ACKVIEN) I '$$PCESEND^ACKQASU3(ACKVIEN) S ACKDFN=DFN G ETPLATE
20 ; If visit is okay and visit not to be sent to PCE but visit has a
21 ; value in the PCE IEN field - the EXCEPTION DATE from the visit is
22 ; used check the Exception cross reference. If an exception exists
23 ; display a warning message.
24 I ACKQTST=1,'ACKPCE,$$GET1^DIQ(509850.6,ACKVIEN_",",125,"I")'="" D
25 . Q:'$$EXPT^ACKQASU2(ACKVIEN)
26 . D EXCEPT^ACKQASU1
27 ; Unlock,kill off used vars. re-display heading & return to start
28 D UNLOCK^ACKQAS,VEXIT^ACKQAS,HEADING^ACKQAS
29 Q
30 ;
Note: See TracBrowser for help on using the repository browser.