HLCSQUED ;ALB/MFK - Create and edit #870 entries
;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
EDITQ ; edit or create an entry in a queue
; INPUT: NONE (made to be called from a menu)
; OUTPUT: NONE
N DIR,DIE,DIC,DA,DR,FLAG,HLDIR,LLE,X,Y,HLZ,ENTRY,DTOUT,DUOUT
LINK ;
S DIC="^HLCS(870,"
S DIC(0)="AEMQ"
D ^DIC K DIC
Q:(+Y<0)
S LLE=$P(Y,"^",1)
Q:(LLE=-1)
DIRECT ;
S DIR(0)="S^I:IN QUEUE;O:OUT QUEUE"
S DIR("?")="Select the IN queue or OUT queue (relative to DHCP)"
S DIR("A")="Select queue"
S DIR("B")="I"
D ^DIR K DIR
Q:(+Y<0)!$D(DUOUT)!$D(DTOUT)
S HLDIR=$E(Y,1,1)
S HLDIR=$S(HLDIR="I":1,HLDIR="O":2)
EDCR ;
S DIR(0)="S^C:CREATE;E:EDIT"
S DIR("?")="Select if you want to EDIT or CREATE and entry in a queue"
S DIR("A")="CREATE or EDIT entry"
S DIR("B")="C"
D ^DIR K DIR
S FLAG=$E(Y,1,1)
Q:(FLAG="^")!(FLAG=-1)!$D(DUOUT)!$D(DTOUT)
I FLAG="C" S DA=$$CREATE(LLE,HLDIR)
I FLAG="E" S DA=$$EDIT(LLE,HLDIR)
Q:(DA'>0)
S DIE="^HLCS(870,"_LLE_","_HLDIR_","
S DR="3;1;2"
W !,"Editing entry number: "_DA,!
D ^DIE K DIE
Q
CREATE(LLE,HLDIR) ;
S ENTRY=$$ENQUEUE^HLCSQUE(LLE,HLDIR)
S ENTRY=$P(ENTRY,"^",2)
Q ENTRY
EDIT(LLE,HLDIR) ;
N ENTRY
S ENTRY=$O(^HLCS(870,LLE,HLDIR,0))
I ENTRY'>0 W !,"No Entries in this Queue !" G EXED
S DIC="^HLCS(870,"_LLE_","_HLDIR_","
S DIC(0)="AEQM"
D ^DIC K DIC
S ENTRY=$P(Y,"^",1)
EXED Q ENTRY
EDIT2 ; Create/edit a queue in file #870
; The previous routine created an entry in the queue. This
; routine actually creates that queue.
; INPUT: NONE (Made to be called from a menu)
; OUTPUT: NONE
N DIC,DA,LLE,DR,DIE,X,Y
S DIC="^HLCS(870,"
S DIC(0)="AEMQL"
D ^DIC K DIC
Q:(+Y<0)
S LLE=$P(Y,"^",1)
S DR=".01;1;2;21;17;12;13;13.1;15;16"
S DA=LLE
S DIE="^HLCS(870,"
D ^DIE K DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLCSQUED 1811 printed Dec 13, 2024@01:56:52 Page 2
HLCSQUED ;ALB/MFK - Create and edit #870 entries
+1 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
EDITQ ; edit or create an entry in a queue
+1 ; INPUT: NONE (made to be called from a menu)
+2 ; OUTPUT: NONE
+3 NEW DIR,DIE,DIC,DA,DR,FLAG,HLDIR,LLE,X,Y,HLZ,ENTRY,DTOUT,DUOUT
LINK ;
+1 SET DIC="^HLCS(870,"
+2 SET DIC(0)="AEMQ"
+3 DO ^DIC
KILL DIC
+4 if (+Y<0)
QUIT
+5 SET LLE=$PIECE(Y,"^",1)
+6 if (LLE=-1)
QUIT
DIRECT ;
+1 SET DIR(0)="S^I:IN QUEUE;O:OUT QUEUE"
+2 SET DIR("?")="Select the IN queue or OUT queue (relative to DHCP)"
+3 SET DIR("A")="Select queue"
+4 SET DIR("B")="I"
+5 DO ^DIR
KILL DIR
+6 if (+Y<0)!$DATA(DUOUT)!$DATA(DTOUT)
QUIT
+7 SET HLDIR=$EXTRACT(Y,1,1)
+8 SET HLDIR=$SELECT(HLDIR="I":1,HLDIR="O":2)
EDCR ;
+1 SET DIR(0)="S^C:CREATE;E:EDIT"
+2 SET DIR("?")="Select if you want to EDIT or CREATE and entry in a queue"
+3 SET DIR("A")="CREATE or EDIT entry"
+4 SET DIR("B")="C"
+5 DO ^DIR
KILL DIR
+6 SET FLAG=$EXTRACT(Y,1,1)
+7 if (FLAG="^")!(FLAG=-1)!$DATA(DUOUT)!$DATA(DTOUT)
QUIT
+8 IF FLAG="C"
SET DA=$$CREATE(LLE,HLDIR)
+9 IF FLAG="E"
SET DA=$$EDIT(LLE,HLDIR)
+10 if (DA'>0)
QUIT
+11 SET DIE="^HLCS(870,"_LLE_","_HLDIR_","
+12 SET DR="3;1;2"
+13 WRITE !,"Editing entry number: "_DA,!
+14 DO ^DIE
KILL DIE
+15 QUIT
CREATE(LLE,HLDIR) ;
+1 SET ENTRY=$$ENQUEUE^HLCSQUE(LLE,HLDIR)
+2 SET ENTRY=$PIECE(ENTRY,"^",2)
+3 QUIT ENTRY
EDIT(LLE,HLDIR) ;
+1 NEW ENTRY
+2 SET ENTRY=$ORDER(^HLCS(870,LLE,HLDIR,0))
+3 IF ENTRY'>0
WRITE !,"No Entries in this Queue !"
GOTO EXED
+4 SET DIC="^HLCS(870,"_LLE_","_HLDIR_","
+5 SET DIC(0)="AEQM"
+6 DO ^DIC
KILL DIC
+7 SET ENTRY=$PIECE(Y,"^",1)
EXED QUIT ENTRY
EDIT2 ; Create/edit a queue in file #870
+1 ; The previous routine created an entry in the queue. This
+2 ; routine actually creates that queue.
+3 ; INPUT: NONE (Made to be called from a menu)
+4 ; OUTPUT: NONE
+5 NEW DIC,DA,LLE,DR,DIE,X,Y
+6 SET DIC="^HLCS(870,"
+7 SET DIC(0)="AEMQL"
+8 DO ^DIC
KILL DIC
+9 if (+Y<0)
QUIT
+10 SET LLE=$PIECE(Y,"^",1)
+11 SET DR=".01;1;2;21;17;12;13;13.1;15;16"
+12 SET DA=LLE
+13 SET DIE="^HLCS(870,"
+14 DO ^DIE
KILL DIE
+15 QUIT
