| [613] | 1 | ACKQAS5 ;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 | ;
|
|---|
| 6 | EDIT ; 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)
|
|---|
| 14 | ETPLATE 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 | ;
|
|---|
