Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: QAC3PRE

QAC3PRE.m

Go to the documentation of this file.
  1. QAC3PRE ;WCIOFO/ERC-Patch 3 Preinstall ;8/18/97
  1. ;;2.0;Patient Representative;**3**;07/25/95
  1. ; Routine will check the 8 Issue Codes whose names are changed
  1. ; with this patch and change the name now, so that the KIDS install
  1. ; will not create a second entry.
  1. START ;
  1. N CNT,DIE,EE,QACBAD,QACCDE,QACCODE,QACDAT,QACISS,QACNUM,QACROC,QACTEXT
  1. S QACCODE="CA03^CA05^CC02^CC05^CC06^EL07^TI03^TI04"
  1. S QACTEXT(1)="Patient not Included/Disagree with Decisions about Care"
  1. S QACTEXT(2)="Dissatisfied with Referral Outcome"
  1. S QACTEXT(3)="Not treated with dignity and respect/Perceived rudeness"
  1. S QACTEXT(4)="Staff not listen to patient concerns/Patient feels rushed"
  1. S QACTEXT(5)="Phone calls not returned/answered"
  1. S QACTEXT(6)="VA billing for service/Pharmacy co-payment"
  1. S QACTEXT(7)="Excessive wait at facility for admission"
  1. S QACTEXT(8)="Excessive delay scheduling or rescheduling appt w/i facility"
  1. F CNT=1:1:8 S QACCDE=$P(QACCODE,U,CNT) D
  1. . S EE=0
  1. . S QACNUM=$O(^QA(745.2,"B",QACCDE,EE))
  1. . I $G(QACNUM)>0 S DIE="^QA(745.2,",DR="2///^S X=QACTEXT(CNT)",DA=QACNUM D ^DIE K DIE
  1. Q