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

QAOSCNV8.m

Go to the documentation of this file. 
  1. QAOSCNV8 ;HISC/DAD-CONVERT REASONS FOR REFERRAL ;9/9/93  13:52
  1.  ;;3.0;Occurrence Screen;;09/14/1993
  1.  W !!,"Converting text of reasons for referral"
  1.  W !,"---------------------------------------"
  1.  I $O(^QA(741.1,0))'>0,$O(^QA(741.4,0)) D  Q
  1.  . S DIU="^QA(741.4,",DIU(0)="DT" D EN^DIU2
  1.  . Q
  1.  K ^TMP($J,"QAOSCNV8") S QAOCOUNT=0
  1.  F QAOSLINE=3:3 S QAOSDATA=$P($T(REFER+QAOSLINE),";;",2) Q:QAOSDATA=""  D
  1.  . S QAOCOUNT=QAOCOUNT+1
  1.  . S ^TMP($J,"QAOSCNV8",QAOCOUNT)=QAOSDATA
  1.  . S ^TMP($J,"QAOSCNV8",QAOCOUNT,"S")=$P($T(REFER+QAOSLINE+1),";;",2)
  1.  . S ^TMP($J,"QAOSCNV8",QAOCOUNT,"L")=$P($T(REFER+QAOSLINE+2),";;",2)
  1.  . Q
  1.  D ^QAOSCNV9
  1.  F QAOSLINE=1:1:QAOCOUNT D LOOP
  1.  K DA,DIC,DIE,DINUM,DLAYGO,DO,DR,QAOCOUNT,QAOFOUND,QAOLDNEW,QAOSD0
  1.  K QAOSDATA,QAOSHORT,QAOSLINE,QAOSLONG,QAOSREAS,QAOSSCRN,QAOSTEXT,X,Y
  1.  K ^TMP($J,"QAOSCNV8")
  1.  Q
  1. LOOP ;
  1.  S QAOSDATA=^TMP($J,"QAOSCNV8",QAOSLINE),QAOSSCRN=$P(QAOSDATA,"^")
  1.  S QAOSREAS("OLD")=$P(QAOSDATA,"^",2),QAOSREAS("NEW")=$P(QAOSDATA,"^",3)
  1.  S QAOSTEXT("SHORT")=^TMP($J,"QAOSCNV8",QAOSLINE,"S")
  1.  S QAOSTEXT("LONG")=^TMP($J,"QAOSCNV8",QAOSLINE,"L")
  1.  W !!,"Screen: ",QAOSSCRN
  1.  I $G(^QA(741.1,QAOSSCRN,0))="" W "   *** NOT FOUND ***" Q
  1.  W !?5,"Reason for referral code  ==>  "
  1.  W "Old: ",$S(QAOSREAS("OLD")]"":QAOSREAS("OLD"),1:"??")
  1.  W ?45,"New: ",QAOSREAS("NEW")
  1.  S QAOFOUND=0
  1.  F QAOLDNEW="NEW","OLD" D  Q:QAOFOUND
  1.  . S X=QAOSREAS(QAOLDNEW),QAOSREAS=+X+($A(X,$L(X))/100)
  1.  . F QAOSD0=0:0 S QAOSD0=$O(^QA(741.4,"AC",QAOSSCRN,QAOSREAS,QAOSD0)) Q:QAOSD0'>0  D  Q:QAOFOUND
  1.  .. S QAOSREAS(0)=$P($G(^QA(741.4,QAOSD0,0)),"^") Q:QAOSREAS(0)=""
  1.  .. S QAOSLONG=$P($G(^QA(741.4,QAOSD0,1)),"^")
  1.  .. S QAOSHORT=$P($G(^QA(741.4,QAOSD0,2)),"^")
  1.  .. I QAOSREAS(0)=QAOSREAS("NEW"),QAOSLONG=QAOSTEXT("LONG"),QAOSHORT=QAOSTEXT("SHORT") S QAOFOUND=2 Q
  1.  .. I QAOSREAS(0)=QAOSREAS("OLD") S QAOFOUND=1
  1.  .. Q
  1.  . Q
  1.  I 'QAOFOUND D
  1.  . K DD,DIC,DINUM,DO
  1.  . S DIC="^QA(741.4,",DIC(0)="L",DIC("DR")=""
  1.  . S DLAYGO=741.4,X=QAOSREAS("NEW")
  1.  . D FILE^DICN S QAOSD0=+Y
  1.  . Q
  1.  W !?10,"Old text: ",$P($G(^QA(741.4,QAOSD0,2)),"^")
  1.  W !?10,"New text: ",QAOSTEXT("SHORT")
  1.  Q:QAOFOUND=2
  1.  K DA,DIC,DIE,DR
  1.  S DIE="^QA(741.4,",DA=QAOSD0
  1.  S DR=".01////"_QAOSREAS("NEW")_";2////"_QAOSSCRN
  1.  S DR(1,741.4,1)="1////"_QAOSTEXT("LONG")
  1.  S DR(1,741.4,2)="3////"_QAOSTEXT("SHORT")
  1.  D ^DIE
  1.  Q
  1. REFER ;;SCREEN ^ OLD NUMBER ^ NEW NUMBER
  1.  ;;NEW TEXT (SHORT)
  1.  ;;NEW TEXT (LONG)
  1. 1011 ;;101.1^10^99
  1.  ;;OTHER
  1.  ;;OTHER
  1.  ;;101.1^^10
  1.  ;;PATIENT NON-COMPLIANCE
  1.  ;;READMISSION APPEARS TO BE RELATED TO ISSUES OF PATIENT NON-COMPLIANCE
  1.  ;;101.1^9^9
  1.  ;;DECUBITI DEHYDRATION OR DRUG TOXICITY
  1.  ;;PATIENT REHOSPITALIZED FOR DECUBITI DEHYDRATION OR DRUG TOXICITY
  1.  ;;101.1^8^8
  1.  ;;FAILURE OF CONTINUING TREATMENT DURING OUTPATIENT PERIOD
  1.  ;;READMISSION APPEARS TO BE RELATED TO FAILURE OF CONTINUING TREATMENT DURING OUTPATIENT PERIOD
  1.  ;;101.1^7^7
  1.  ;;UNEXPECTED EXACERBATION OF ILLNESS
  1.  ;;READMISSION APPEARS TO BE RELATED TO UNEXPECTED EXACERBATION OF ILLNESS
  1.  ;;101.1^6^6
  1.  ;;PATIENT EDUCATION
  1.  ;;READMISSION APPEARS TO BE RELATED TO PATIENT EDUCATION CONCERNING PROBLEMS TREATED DURING FIRST HOSPITALIZATION
  1.  ;;101.1^5^5
  1.  ;;DISCHARGE ORDERS
  1.  ;;READMISSION APPEARS TO BE RELATED TO SOME ASPECT OF DISCHARGE ORDERS
  1.  ;;101.1^4^4
  1.  ;;PRE-EXISTENT UNDIAGNOSED CONDITION
  1.  ;;READMISSION APPEARS TO BE RELATED TO CONDITION WHICH MAY HAVE EXISTED AT TIME OF FIRST HOSPITALIZATION BUT WAS NOT DIAGNOSED
  1.  ;;101.1^3^3
  1.  ;;TIMELINESS OF DISCHARGE
  1.  ;;READMISSION APPEARS TO BE RELATED TO TIMELINESS OF DISCHARGE
  1.  ;;101.1^2^2
  1.  ;;DISCHARGE PLANS MADE DURING PREVIOUS HOSPITALIZATION
  1.  ;;READMISSION APPEARS TO BE RELATED TO DISCHARGE PLANS MADE DURING PREVIOUS HOSPITALIZATION
  1.  ;;101.1^1^1
  1.  ;;COMPLICATION OF TREATMENT DURING PRIOR HOSPITALIZATION
  1.  ;;READMISSION APPEARS TO BE RELATED TO COMPLICATION OF TREATMENT DURING PRIOR HOSPITALIZATION
  1. 102 ;;102^5^99
  1.  ;;OTHER
  1.  ;;OTHER
  1.  ;;102^2^2
  1.  ;;OUTPATIENT DRUG THERAPY
  1.  ;;ADMISSION APPEARS TO HAVE BEEN A CONSEQUENCE OF OUTPATIENT DRUG THERAPY
  1.  ;;102^3^3
  1.  ;;FOLLOWED TWO OR MORE OUTPATIENT VISITS FOR SAME ACUTE CONDITION
  1.  ;;ADMISSION FOLLOWED TWO OR MORE OUTPATIENT VISITS FOR SAME ACUTE CONDITION
  1.  ;;102^4^4
  1.  ;;ESCALATION OF CARE INAPPROPRIATELY DELAYED
  1.  ;;ESCALATION OF CARE TO INPATIENT LEVEL APPEARS TO HAVE BEEN INAPPROPRIATELY DELAYED
  1.  ;;102^^1K
  1.  ;;OUTPATIENT MANAGEMENT ISSUE: NON-COMPLIANCE AND FAILURE TO OBTAIN PRESCRIBED MEDICATIONS
  1.  ;;ADMISSION APPEARS TO BE RELATED TO NON-COMPLIANCE AND FAILURE TO OBTAIN PRESCRIBED MEDICATIONS
  1.  ;;102^1I^1J
  1.  ;;OUTPATIENT MANAGEMENT ISSUE: FOLLOW-UP OF FINANCIAL OR SOCIAL SUPPORT PROBLEMS
  1.  ;;ADMISSION APPEARS TO BE RELATED TO OUTPATIENT MANAGEMENT ISSUE: FOLLOW-UP OF FINANCIAL OR SOCIAL SUPPORT PROBLEMS PARTICULARLY FOR PSYCHIATRIC PATIENTS