ROUTINE XQOR2** - Revision history

DavidWhitten: /* ACT1 */

2020-12-13T22:32:06Z

ACT1

← Older revision		Revision as of 22:32, 13 December 2020
Line 54:		Line 54:
	=== ACT1 ===		=== ACT1 ===
	; note: caller depends on $TEST being set by Xecuting ORNSV		; note: caller depends on $TEST being set by Xecuting ORNSV
			;; Note context is lvars DA, DA(1)
			;; NOT lvars D0, D1
	ACT1 N DA S DA(1)=+^TMP("XQORS",$J,XQORS,"VPT"),DA=J N J,X,Y X ORNSV		ACT1 N DA S DA(1)=+^TMP("XQORS",$J,XQORS,"VPT"),DA=J N J,X,Y X ORNSV
	Q		Q

DavidWhitten: ;

2020-12-13T22:30:00Z

;

← Older revision		Revision as of 22:30, 13 December 2020
Line 59:		Line 59:
	=== NUL ===		=== NUL ===
	NUL ;From: STAK^XQOR1		NUL ;From: STAK^XQOR1
			;; if we are in the PROTOCOL file,
			;; then ^ORD(101,D0,26)= (#26) HEADER [E1,245K] ^
			;; Xecute it
			;; and zero out the ITM count
	I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X		I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X
	S ^TMP("XQORS",$J,XQORS,"ITM")=0		S ^TMP("XQORS",$J,XQORS,"ITM")=0
	Q		Q

	=== UP ===		=== UP ===
	UP(X) Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")		UP(X) Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
	== Other ==		== Other ==

DavidWhitten at 22:20, 13 December 2020

2020-12-13T22:20:11Z

← Older revision		Revision as of 22:20, 13 December 2020
Line 12:		Line 12:

	;; ^ORD(101,D0,24)= (#24) SCREEN [E1,245K] ^		;; ^ORD(101,D0,24)= (#24) SCREEN [E1,245K] ^
	;; saved into lvar ORNSV (used later)		;; saved into lvar ORNSV (used later in ACT1 called from ORD+1)
	S ORNSV="" I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"24)"))'[0 S ORNSV=^(24)		S ORNSV="" I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"24)"))'[0 S ORNSV=^(24)
	;		;
Line 18:		Line 18:

	=== ORD ===		=== ORD ===
			;; $O loop thru ITEM Multiple most commonly in PROTOCOL FILE -- could be OPTION FILE
			;; ^ORD(101,D0,10,0)=^101.01PA^^ (#10) ITEM
			;; ^ORD(101,D0,10,D1,0)= (#.01) ITEM [1P:101] ^ (#2) MNEMONIC [2F] ^
			;; ==>(#3) SEQUENCE [3N] ^ (#4) MODIFYING ACTION [4P:101] ^
			;; ==>(#5) FORMAT CODE [5S] ^ (#6) DISPLAY NAME [6F] ^
			;; ^ORD(101,D0,10,D1,1)= (#11) PROMPT [1F] ^ (#12) DEFAULT [2F] ^
			;; ==>(#13) HELP [3F] ^ (#14) MODE [4F] ^
			;;
	ORD S J=$O(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_")")) G:J'>0 SET		ORD S J=$O(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_")")) G:J'>0 SET
			;;
			;; Note ORNSV code screens entries in subroutine ACT1
	I $D(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_",0)")) S X=^(0) I +X D:$L(ORNSV) ACT1 I $T S Y=$S(+$P(X,"^",3):+$P(X,"^",3),1:1000+J),Y(Y,J)=X		I $D(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_",0)")) S X=^(0) I +X D:$L(ORNSV) ACT1 I $T S Y=$S(+$P(X,"^",3):+$P(X,"^",3),1:1000+J),Y(Y,J)=X
			;; and get next one
	G ORD		G ORD

	=== SET ===		=== SET ===
	SET S (I,Y)=0		SET S (I,Y)=0
Line 41:		Line 53:

	=== ACT1 ===		=== ACT1 ===
	; note: caller depends on $TEST ~~not changing~~		; note: caller depends on $TEST being set by Xecuting ORNSV
	ACT1 N DA S DA(1)=+^TMP("XQORS",$J,XQORS,"VPT"),DA=J N J,X,Y X ORNSV		ACT1 N DA S DA(1)=+^TMP("XQORS",$J,XQORS,"VPT"),DA=J N J,X,Y X ORNSV
	Q		Q

DavidWhitten: /* SET */

2020-12-13T22:12:17Z

SET

← Older revision		Revision as of 22:12, 13 December 2020
Line 22:		Line 22:
	G ORD		G ORD
	=== SET ===		=== SET ===
	SET S (I,Y)=0		SET S (I,Y)=0
			;; NOTE: @FallThru

	=== SET1 ===		=== SET1 ===
	SET1 S Y=$O(Y(Y)) G:Y="" EX S J=0		SET1 S Y=$O(Y(Y)) G:Y="" EX S J=0

DavidWhitten: /* SET1 */

2020-12-13T22:11:49Z

SET1

← Older revision		Revision as of 22:11, 13 December 2020
Line 25:		Line 25:
	=== SET1 ===		=== SET1 ===
	SET1 S Y=$O(Y(Y)) G:Y="" EX S J=0		SET1 S Y=$O(Y(Y)) G:Y="" EX S J=0
			;; NOTE: @FallThru

	=== SET2 ===		=== SET2 ===
	SET2 S J=$O(Y(Y,J)) G:J="" SET1		SET2 S J=$O(Y(Y,J)) G:J="" SET1

DavidWhitten: /* ACT */

2020-12-13T22:09:17Z

ACT

← Older revision		Revision as of 22:09, 13 December 2020
Line 5:		Line 5:
	;;8.0;KERNEL;;Jul 10, 1995		;;8.0;KERNEL;;Jul 10, 1995
	=== ACT ===		=== ACT ===
	~~;; ^ORD(101,D0,24)= (#24) SCREEN [E1,245K] ^~~
	~~;; saved into lvar ORNSV~~
	ACT ;From: STAK^XQOR1		ACT ;From: STAK^XQOR1
			;; D0 == ^TMP("XQORS",$J,XQORS,"REF")
			;; ^ORD(101,D0,26)= (#26) HEADER [E1,245K] ^
			;;
	I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X		I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X

			;; ^ORD(101,D0,24)= (#24) SCREEN [E1,245K] ^
			;; saved into lvar ORNSV (used later)
	S ORNSV="" I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"24)"))'[0 S ORNSV=^(24)		S ORNSV="" I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"24)"))'[0 S ORNSV=^(24)
			;
	K Y S (J,^TMP("XQORS",$J,XQORS,"ITM"))=0		K Y S (J,^TMP("XQORS",$J,XQORS,"ITM"))=0

DavidWhitten: /* EX */

2020-12-13T22:06:29Z

← Older revision		Revision as of 22:06, 13 December 2020
Line 28:		Line 28:
	G SET2		G SET2
	=== EX ===		=== EX ===
			;; kill off ORNSV ( ^ORD(101,D0,24)= (#24) SCREEN [E1,245K] ^ )
	EX K ORNSV Q		EX K ORNSV Q

	=== ACT1 ===		=== ACT1 ===
	; note: caller depends on $TEST not changing		; note: caller depends on $TEST not changing

DavidWhitten: /* ACT */

2020-12-13T22:05:59Z

ACT

← Older revision		Revision as of 22:05, 13 December 2020
Line 5:		Line 5:
	;;8.0;KERNEL;;Jul 10, 1995		;;8.0;KERNEL;;Jul 10, 1995
	=== ACT ===		=== ACT ===
			;; ^ORD(101,D0,24)= (#24) SCREEN [E1,245K] ^
			;; saved into lvar ORNSV
	ACT ;From: STAK^XQOR1		ACT ;From: STAK^XQOR1
	I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X		I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X
	S ORNSV="" I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"24)"))'[0 S ORNSV=^(24)		S ORNSV="" I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"24)"))'[0 S ORNSV=^(24)
	K Y S (J,^TMP("XQORS",$J,XQORS,"ITM"))=0		K Y S (J,^TMP("XQORS",$J,XQORS,"ITM"))=0

	=== ORD ===		=== ORD ===
	ORD S J=$O(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_")")) G:J'>0 SET		ORD S J=$O(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_")")) G:J'>0 SET

DavidWhitten: /* ACT1 */

2020-12-13T22:02:36Z

ACT1

← Older revision		Revision as of 22:02, 13 December 2020
Line 27:		Line 27:
	EX K ORNSV Q		EX K ORNSV Q
	=== ACT1 ===		=== ACT1 ===
			; note: caller depends on $TEST not changing
	ACT1 N DA S DA(1)=+^TMP("XQORS",$J,XQORS,"VPT"),DA=J N J,X,Y X ORNSV		ACT1 N DA S DA(1)=+^TMP("XQORS",$J,XQORS,"VPT"),DA=J N J,X,Y X ORNSV
	Q		Q

	=== NUL ===		=== NUL ===
	NUL ;From: STAK^XQOR1		NUL ;From: STAK^XQOR1

DavidWhitten: Created page with "ROUTINE XQOR2 == Listing == === XQOR2 === XQOR2 ; SLC/KCM - Process Extended Actions, Protocols ;8/23/91 10:33 ; ;;8.0;KERNEL;;Jul 10, 1995 === ACT === ACT ;From:..."

2020-12-13T22:01:45Z

Created page with "ROUTINE XQOR2 == Listing == === XQOR2 === XQOR2 ; SLC/KCM - Process Extended Actions, Protocols ;8/23/91 10:33 ; ;;8.0;KERNEL;;Jul 10, 1995 === ACT === ACT ;From:..."

New page

[[ROUTINE XQOR2]]
== Listing ==
=== XQOR2 ===
XQOR2 ; SLC/KCM - Process Extended Actions, Protocols ;8/23/91 10:33 ;
;;8.0;KERNEL;;Jul 10, 1995
=== ACT ===
ACT ;From: STAK^XQOR1
I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X
S ORNSV="" I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"24)"))'[0 S ORNSV=^(24)
K Y S (J,^TMP("XQORS",$J,XQORS,"ITM"))=0
=== ORD ===
ORD S J=$O(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_")")) G:J'>0 SET
I $D(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_",0)")) S X=^(0) I +X D:$L(ORNSV) ACT1 I $T S Y=$S(+$P(X,"^",3):+$P(X,"^",3),1:1000+J),Y(Y,J)=X
G ORD
=== SET ===
SET S (I,Y)=0
=== SET1 ===
SET1 S Y=$O(Y(Y)) G:Y="" EX S J=0
=== SET2 ===
SET2 S J=$O(Y(Y,J)) G:J="" SET1
S ^TMP("XQORS",$J,XQORS,"ITM")=^TMP("XQORS",$J,XQORS,"ITM")+1, ^TMP("XQORS",$J,XQORS,"ITM",^TMP("XQORS",$J,XQORS,"ITM"))=+Y(Y,J)_";"_$P(^TMP("XQORS",$J,XQORS,"VPT"),";",2)
S ^TMP("XQORS",$J,XQORS,"ITM",^TMP("XQORS",$J,XQORS,"ITM"),"IEN")=J
I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",+$P(Y(Y,J),"^",4) S ^TMP("XQORS",$J,XQORS,"ITM",^TMP("XQORS",$J,XQORS,"ITM"),"MA")=$P(Y(Y,J),"^",4)_^TMP("XQORS",$J,0,"FILE")
I $L($P($G(@(^TMP("XQORS",$J,XQORS,"REF")_"10,"_J_",1)")),"^")) S ^TMP("XQORS",$J,XQORS,"PMT",$$UP($P(^(1),"^")),^TMP("XQORS",$J,XQORS,"ITM"))=""
G SET2
=== EX ===
EX K ORNSV Q
=== ACT1 ===
ACT1 N DA S DA(1)=+^TMP("XQORS",$J,XQORS,"VPT"),DA=J N J,X,Y X ORNSV
Q
=== NUL ===
NUL ;From: STAK^XQOR1
I ^TMP("XQORS",$J,0,"FILE")=";ORD(101,",$D(@(^TMP("XQORS",$J,XQORS,"REF")_"26)"))'[0 S X=^(26) X:$L(X) X
S ^TMP("XQORS",$J,XQORS,"ITM")=0
Q
=== UP ===
UP(X) Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
== Other ==