ANSQ ;IHS/OIRM/DSD/CSC - TASK QUEUEING MAINLINE; [ 02/25/98 10:32 AM ]
;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
ZIS D ^ANSCZIS:'$D(DUOUT),^ANSEXIT
Q
EN D EN1
EXIT K ANSTSK,ANSF,ANST,ANSPLK,ANSCOUNT
Q
EN1 S DIR(0)="SO^1:Print for ALL Patients in a Unit;2:Print for Individual Patients"
S DIR("?",1)="You May Print The Report For Individual Patients",DIR("?")="Or For All Patients On A Specific Unit."
W !
D DIR^ANSDIC
I $D(DTOUT)!$D(DUOUT)!($G(Y)<1) S DUOUT="" Q
I Y=1 D B1 S Y=1
I Y=2 D A1 S Y=2
Q
A1 S ANSJOB=$J_($P($H,",")_$P($H,",",2))
F D A11 Q:'$D(ANSDFN)
Q
A11 K ANSDFN
D ^ANSUPT
Q:$D(DTOUT)!$D(DUOUT)
I '$G(ANSDFN) S:'$D(^TMP("ANS",+$G(ANSJOB),"P")) DUOUT="" Q
S ANSADM=$O(^ANSR("PT",ANSDFN,0))
I 'ANSADM W *7,!!,"NOT Currently An Inpatient." Q
S ^TMP("ANS",ANSJOB,"P",$E($P(^DPT(ANSDFN,0),U),1,30),ANSDFN)=ANSADM
Q
B1 ;EP;SELECT NURSING UNIT FOR REPORT
K ANSUNIT
S ANSJOB=$J_($P($H,",")_$P($H,",",2))
S Y=$P(ANSPAR,U,3),DIC="^ANSD(59.1,",DIC(0)="AQZEM",DIC("A")="Which Unit: " S:Y DIC("B")=$P(^ANSD(59.1,Y,0),U)
W !
D DIC^ANSDIC
I $G(Y)<1 S DUOUT="" Q
S ANSUNIT=+Y
Q
ACUITY ;EP;PATIENT ACUITY REPORT
S ANSRTN="^ANSQPS"
S ANSZ="Patient Acuity Report"
D HEAD
I '$D(ANSHEAD) D EN,ZIS
Q
HISTORY ;EP;QUEUE PATIENT ASSESSMENT HISTORY REPORT
S ANSRTN="^ANSQPAS"
S ANSZ="Patient Assessment History"
D HEAD
I '$D(ANSHEAD) D EN,ZIS
Q
ROSTER ;EP;QUEUE NURSING UNIT ROSTER
S ANSRTN="^ANSQRS"
S ANSZ="Ward Roster"
I '$D(ANSHEAD) D B1,ZIS
Q
STAFSTAT ;EP;QUEUE NURSE STAFFING STATS
S ANSZ="Staffing Statistics"
I $D(ANSHEAD) D HEAD Q
S DIR(0)="DO^:"_DT,DIR("A")="Starting Date"
W !
D DIR^ANSDIC
Q:$D(DTOUT)!$D(DUOUT)!($G(Y)="")
S ANSBDT=Y W " "_Y(0) ;CSC 10-97
S DIR(0)="DO^:"_DT,DIR("A")="Ending Date.."
W !
D DIR^ANSDIC
Q:$D(DTOUT)!$D(DUOUT)!($G(Y)="")
S ANSEDT=Y W " "_Y(0) ;CSC 10-97
S DIR(0)="YO",DIR("A")="Print For Each Shift",DIR("B")="YES"
S DIR("?",1)="You May Print This Report For Individual Shifts or",DIR("?")="For The Whole Day. Enter 'YES' or 'NO'"
W !
D DIR^ANSDIC
Q:$D(DTOUT)!$D(DUOUT)
S ANSPO=$S(Y=1:"S",1:"D"),ANSRTN="^ANSQSS"
D B1,ZIS
Q
HEAD ;EP;
;D ^ANSMENU
D HEAD^ANSMENU ;CSC 10-97
W:$G(ANSZ)]"" !!,?80-$L(ANSZ)/2,ANSZ
Q
ANSQ ;IHS/OIRM/DSD/CSC - TASK QUEUEING MAINLINE; [ 02/25/98 10:32 AM ]
+1 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
ZIS IF '$DATA(DUOUT)
DO ^ANSCZIS
DO ^ANSEXIT
+1 QUIT
EN DO EN1
EXIT KILL ANSTSK,ANSF,ANST,ANSPLK,ANSCOUNT
+1 QUIT
EN1 SET DIR(0)="SO^1:Print for ALL Patients in a Unit;2:Print for Individual Patients"
+1 SET DIR("?",1)="You May Print The Report For Individual Patients"
SET DIR("?")="Or For All Patients On A Specific Unit."
+2 WRITE !
+3 DO DIR^ANSDIC
+4 IF $DATA(DTOUT)!$DATA(DUOUT)!($GET(Y)<1)
SET DUOUT=""
QUIT
+5 IF Y=1
DO B1
SET Y=1
+6 IF Y=2
DO A1
SET Y=2
+7 QUIT
A1 SET ANSJOB=$JOB_($PIECE($HOROLOG,",")_$PIECE($HOROLOG,",",2))
+1 FOR
DO A11
IF '$DATA(ANSDFN)
QUIT
+2 QUIT
A11 KILL ANSDFN
+1 DO ^ANSUPT
+2 IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+3 IF '$GET(ANSDFN)
IF '$DATA(^TMP("ANS",+$GET(ANSJOB),"P"))
SET DUOUT=""
QUIT
+4 SET ANSADM=$ORDER(^ANSR("PT",ANSDFN,0))
+5 IF 'ANSADM
WRITE *7,!!,"NOT Currently An Inpatient."
QUIT
+6 SET ^TMP("ANS",ANSJOB,"P",$EXTRACT($PIECE(^DPT(ANSDFN,0),U),1,30),ANSDFN)=ANSADM
+7 QUIT
B1 ;EP;SELECT NURSING UNIT FOR REPORT
+1 KILL ANSUNIT
+2 SET ANSJOB=$JOB_($PIECE($HOROLOG,",")_$PIECE($HOROLOG,",",2))
+3 SET Y=$PIECE(ANSPAR,U,3)
SET DIC="^ANSD(59.1,"
SET DIC(0)="AQZEM"
SET DIC("A")="Which Unit: "
IF Y
SET DIC("B")=$PIECE(^ANSD(59.1,Y,0),U)
+4 WRITE !
+5 DO DIC^ANSDIC
+6 IF $GET(Y)<1
SET DUOUT=""
QUIT
+7 SET ANSUNIT=+Y
+8 QUIT
ACUITY ;EP;PATIENT ACUITY REPORT
+1 SET ANSRTN="^ANSQPS"
+2 SET ANSZ="Patient Acuity Report"
+3 DO HEAD
+4 IF '$DATA(ANSHEAD)
DO EN
DO ZIS
+5 QUIT
HISTORY ;EP;QUEUE PATIENT ASSESSMENT HISTORY REPORT
+1 SET ANSRTN="^ANSQPAS"
+2 SET ANSZ="Patient Assessment History"
+3 DO HEAD
+4 IF '$DATA(ANSHEAD)
DO EN
DO ZIS
+5 QUIT
ROSTER ;EP;QUEUE NURSING UNIT ROSTER
+1 SET ANSRTN="^ANSQRS"
+2 SET ANSZ="Ward Roster"
+3 IF '$DATA(ANSHEAD)
DO B1
DO ZIS
+4 QUIT
STAFSTAT ;EP;QUEUE NURSE STAFFING STATS
+1 SET ANSZ="Staffing Statistics"
+2 IF $DATA(ANSHEAD)
DO HEAD
QUIT
+3 SET DIR(0)="DO^:"_DT
SET DIR("A")="Starting Date"
+4 WRITE !
+5 DO DIR^ANSDIC
+6 IF $DATA(DTOUT)!$DATA(DUOUT)!($GET(Y)="")
QUIT
+7 ;CSC 10-97
SET ANSBDT=Y
WRITE " "_Y(0)
+8 SET DIR(0)="DO^:"_DT
SET DIR("A")="Ending Date.."
+9 WRITE !
+10 DO DIR^ANSDIC
+11 IF $DATA(DTOUT)!$DATA(DUOUT)!($GET(Y)="")
QUIT
+12 ;CSC 10-97
SET ANSEDT=Y
WRITE " "_Y(0)
+13 SET DIR(0)="YO"
SET DIR("A")="Print For Each Shift"
SET DIR("B")="YES"
+14 SET DIR("?",1)="You May Print This Report For Individual Shifts or"
SET DIR("?")="For The Whole Day. Enter 'YES' or 'NO'"
+15 WRITE !
+16 DO DIR^ANSDIC
+17 IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+18 SET ANSPO=$SELECT(Y=1:"S",1:"D")
SET ANSRTN="^ANSQSS"
+19 DO B1
DO ZIS
+20 QUIT
HEAD ;EP;
+1 ;D ^ANSMENU
+2 ;CSC 10-97
DO HEAD^ANSMENU
+3 IF $GET(ANSZ)]""
WRITE !!,?80-$LENGTH(ANSZ)/2,ANSZ
+4 QUIT
