- ACKQAS5 ;AUG/JLTP BIR/PTD HCIOFO/BH-New Clinic Visits ; 04/01/99
- ;;3.0;QUASAR;;Feb 11, 2000
- ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
- ;
- ;
- EDIT ; Edit Template.
- S ACKVISIT="EDIT",ACKVIEN=DA
- ;
- ; Attempt to Lock file before editing
- L +^ACK(509850.6,ACKVIEN):2 E W !!,"This record is locked by another process - Please try again later.",!! D VEXIT^ACKQAS Q
- ; If visit has PCE IEN check PCE and Qsr visit data for inconsistancies
- I $$GET1^DIQ(509850.6,ACKVIEN,"125","I")'="" I '$$DATACHK^ACKQASU3(ACKVIEN) D UNLOCK^ACKQAS,VEXIT^ACKQAS,HEADING^ACKQAS Q
- S ACKVTME=$P(^ACK(509850.6,ACKVIEN,5),U,8),ACKVTME=$P(ACKVTME,".",2)
- ETPLATE S (DIE,DIC)="^ACK(509850.6,",DR="[ACKQAS VISIT ENTRY]" D ^DIE
- D UTLAUD^ACKQASU2
- S ACKQTST=$$POST^ACKQASU2(ACKVIEN) I 'ACKQTST S ACKDFN=DFN G ETPLATE
- ; ACKQTST will equal 1 (Visit okay or user chose to continue) or
- ; ACKQTST will equal 2 the visit has been deleted
- I ACKPCE,ACKQTST=1,$$EXPT^ACKQASU2(ACKVIEN) I '$$PCESEND^ACKQASU3(ACKVIEN) S ACKDFN=DFN G ETPLATE
- ; If visit is okay and visit not to be sent to PCE but visit has a
- ; value in the PCE IEN field - the EXCEPTION DATE from the visit is
- ; used check the Exception cross reference. If an exception exists
- ; display a warning message.
- I ACKQTST=1,'ACKPCE,$$GET1^DIQ(509850.6,ACKVIEN_",",125,"I")'="" D
- . Q:'$$EXPT^ACKQASU2(ACKVIEN)
- . D EXCEPT^ACKQASU1
- ; Unlock,kill off used vars. re-display heading & return to start
- D UNLOCK^ACKQAS,VEXIT^ACKQAS,HEADING^ACKQAS
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HACKQAS5 1544 printed Apr 23, 2025@18:46:17 Page 2
- ACKQAS5 ;AUG/JLTP BIR/PTD HCIOFO/BH-New Clinic Visits ; 04/01/99
- +1 ;;3.0;QUASAR;;Feb 11, 2000
- +2 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
- +3 ;
- +4 ;
- EDIT ; Edit Template.
- +1 SET ACKVISIT="EDIT"
- SET ACKVIEN=DA
- +2 ;
- +3 ; Attempt to Lock file before editing
- +4 LOCK +^ACK(509850.6,ACKVIEN):2
- IF '$TEST
- WRITE !!,"This record is locked by another process - Please try again later.",!!
- DO VEXIT^ACKQAS
- QUIT
- +5 ; If visit has PCE IEN check PCE and Qsr visit data for inconsistancies
- +6 IF $$GET1^DIQ(509850.6,ACKVIEN,"125","I")'=""
- IF '$$DATACHK^ACKQASU3(ACKVIEN)
- DO UNLOCK^ACKQAS
- DO VEXIT^ACKQAS
- DO HEADING^ACKQAS
- QUIT
- +7 SET ACKVTME=$PIECE(^ACK(509850.6,ACKVIEN,5),U,8)
- SET ACKVTME=$PIECE(ACKVTME,".",2)
- ETPLATE SET (DIE,DIC)="^ACK(509850.6,"
- SET DR="[ACKQAS VISIT ENTRY]"
- DO ^DIE
- +1 DO UTLAUD^ACKQASU2
- +2 SET ACKQTST=$$POST^ACKQASU2(ACKVIEN)
- IF 'ACKQTST
- SET ACKDFN=DFN
- GOTO ETPLATE
- +3 ; ACKQTST will equal 1 (Visit okay or user chose to continue) or
- +4 ; ACKQTST will equal 2 the visit has been deleted
- +5 IF ACKPCE
- IF ACKQTST=1
- IF $$EXPT^ACKQASU2(ACKVIEN)
- IF '$$PCESEND^ACKQASU3(ACKVIEN)
- SET ACKDFN=DFN
- GOTO ETPLATE
- +6 ; If visit is okay and visit not to be sent to PCE but visit has a
- +7 ; value in the PCE IEN field - the EXCEPTION DATE from the visit is
- +8 ; used check the Exception cross reference. If an exception exists
- +9 ; display a warning message.
- +10 IF ACKQTST=1
- IF 'ACKPCE
- IF $$GET1^DIQ(509850.6,ACKVIEN_",",125,"I")'=""
- Begin DoDot:1
- +11 if '$$EXPT^ACKQASU2(ACKVIEN)
- QUIT
- +12 DO EXCEPT^ACKQASU1
- End DoDot:1
- +13 ; Unlock,kill off used vars. re-display heading & return to start
- +14 DO UNLOCK^ACKQAS
- DO VEXIT^ACKQAS
- DO HEADING^ACKQAS
- +15 QUIT
- +16 ;
