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

NURACE8.m

Go to the documentation of this file.
  1. NURACE8 ;HIRMFO/RM,FT-PATIENT CLASSIFICATION FACTOR CHECKS ;1/9/97 13:53
  1. ;;4.0;NURSING SERVICE;;Apr 25, 1997
  1. EN1 ;VALIDATE EXTENDED CARE FACTORS
  1. I FACT["A" I ((FACT["B")!(FACT["C")) S NURS1SW=1
  1. I FACT["B" I FACT["C" S NURS1SW=1
  1. I FACT["D" I ((FACT["E")!(FACT["F")) S NURS4SW=1
  1. I FACT["E" I FACT["F" S NURS4SW=1
  1. I FACT["G" I ((FACT["H")!(FACT["I")) S NURS7SW=1
  1. I FACT["H" I FACT["I" S NURS7SW=1
  1. I FACT["J" I ((FACT["K")!(FACT["L")) S NURS10SW=1
  1. I FACT["K" I FACT["L" S NURS10SW=1
  1. I FACT["M" I ((FACT["N")!(FACT["O")) S NURS13SW=1
  1. I FACT["N" I FACT["O" S NURS13SW=1
  1. Q
  1. EN2 ;VALIDATE PSYCHIATRIC FACTORS
  1. I FACT["A" I ((FACT["B")!(FACT["C")!(FACT["D")) S NURS1SW=1
  1. I FACT["B" I ((FACT["C")!(FACT["D")) S NURS1SW=1
  1. I FACT["C" I FACT["D" S NURS1SW=1
  1. I FACT["E" I ((FACT["F")!(FACT["G")!(FACT["H")) S NURS5SW=1
  1. I FACT["F" I ((FACT["G")!(FACT["H")) S NURS5SW=1
  1. I FACT["G" I FACT["H" S NURS5SW=1
  1. I ((PREV="A")!(PREV="F")) I ((FACT["I")!(FACT["K")) S NWFCTSW=1,FCK="I or K"
  1. I PREV="B" I ((FACT["H")!(FACT["K")) S NWFCTSW=1,FCK="H, or K"
  1. I PREV="D" I FACT["E" S NWFCTSW=1,FCK="E"
  1. I PREV="E" I ((FACT["I")!(FACT["K")!(FACT["D")) S NWFCTSW=1,FCK="D,I or K"
  1. I PREV="H" I FACT["A" S NWFCTSW=1,FCK="A"
  1. I PREV="I" I ((FACT["E")!(FACT["F")) S NWFCTSW=1,FCK="E or F"
  1. I PREV="K" I ((FACT["A")!(FACT["B")!(FACT["C")!(FACT["E")!(FACT["F")) S NWFCTSW=1,FCK="A,B,C,E or F"
  1. Q
  1. EN3 ; ERROR MESSAGE THAT ACUITY ROUTINE NOT RUN
  1. W !,*7
  1. F J=1:1:3 D ASTER
  1. F J=1:1:2 D ASTER1
  1. W !,"*****",?$X+31,"WARNING",?$X+32,"*****"
  1. ;D ASTER1
  1. ;W !,"*****",?$X+21,"CLASSIFICATION CANNOT BE RUN",?$X+21,"*****"
  1. F J=1:1:5 D ASTER1
  1. W !,"*****",?$X+20,"NOTIFY NURSING ADP COORDINATOR",?$X+20,"*****"
  1. D ASTER1
  1. W !,"*****",?$X+8,"TaskMan DID NOT RUN ACUITY ROUTINE (AMIS 1106 UPDATE)",?$X+9,"*****"
  1. D ASTER1
  1. W !,"*****",?$X+18,"THIS CALL MUST BE MADE IMMEDIATELY",?$X+18,"*****"
  1. F J=1:1:2 D ASTER1
  1. F J=1:1:3 D ASTER
  1. H 5
  1. Q
  1. ASTER ;
  1. W $$REPEAT^XLFSTR("*",80)
  1. Q
  1. ASTER1 ;
  1. W !,*7,"*****",?$X+70,"*****"
  1. Q
  1. EN4 ; PROMPT PRINTED IF UP-ARROWED OUT OF CLASSIFICATION
  1. W *7,*7,!,"THIS PATIENT'S CLASSIFICATION HAS NOT BEEN UPDATED."
  1. Q
  1. EN5 ; PRINT INFO FOR ATEC PATIENTS
  1. W !!,?8,"Current Classification: ",CLASSX W:CLASSX'="" " (USER)"
  1. W !,?8,"Last user to classify: ",USERX
  1. W !,?8,"Last date/time classified: "
  1. I DATEX'="" S Y=DATEX D:+Y D^DIQ W Y
  1. Q
  1. EN6 ; CLASSIFICATION OF ATEC PATIENTS
  1. W !,"Enter Classification: " W:(CLASSX'="") CLASSX,"//"
  1. R X:DTIME S:CLASSX'=""&(X="") X=CLASSX
  1. I (X="^")!('$T) D EN4 S OUTSW=1 Q
  1. I (X?1N)&(X>0)&(X<5) S CLASSX=X G Q
  1. W !,*7,"ANSWER WITH A NUMBER BETWEEN 1 AND 4" G EN6
  1. Q D FINAL2^NURACE7 S OUTSW=1 Q
  1. EN7 ;VALIDATE EXTENDED CARE FACTORS
  1. I FACT["A" I ((FACT["B")!(FACT["C")!(FACT["D")) S NURS1SW=1
  1. I FACT["B" I ((FACT["C")!(FACT["D")) S NURS1SW=1
  1. I FACT["C" I FACT["D" S NURS1SW=1
  1. I FACT["E" I ((FACT["F")!(FACT["G")!(FACT["H")) S NURS4SW=1
  1. I FACT["F" I ((FACT["G")!(FACT["H")) S NURS4SW=1
  1. I FACT["G" I FACT["H" S NURS4SW=1
  1. I FACT["I" I ((FACT["J")!(FACT["K")!(FACT["L")) S NURS7SW=1
  1. I FACT["J" I ((FACT["K")!(FACT["L")) S NURS7SW=1
  1. I FACT["K" I FACT["L" S NURS7SW=1
  1. I FACT["M" I ((FACT["N")!(FACT["O")!(FACT["P")) S NURS10SW=1
  1. I FACT["N" I ((FACT["O")!(FACT["P")) S NURS10SW=1
  1. I FACT["O" I FACT["P" S NURS10SW=1
  1. I FACT["Q" I ((FACT["R")!(FACT["S")!(FACT["T")) S NURS13SW=1
  1. I FACT["R" I ((FACT["S")!(FACT["T")) S NURS13SW=1
  1. I FACT["S" I FACT["T" S NURS13SW=1
  1. Q