108 lines
4.5 KiB
Mathematica
108 lines
4.5 KiB
Mathematica
YTQAPI2 ;ASF/ALB- MHAX REMOTE PROCEDURES cont ;6/10/03 10:19am ; 4/3/07 11:41am
|
|
;;5.01;MENTAL HEALTH;**85**;Dec 30, 1994;Build 49
|
|
Q
|
|
LISTER(YSDATA,YS) ;list entries
|
|
;input: CODE as test name
|
|
;output: Field^Value
|
|
N YSFIELD,YSFILEN,N,C,YSNUMBER,YSFLAG,YSFROM,YSINDEX
|
|
S YSFILEN=$G(YS("FILEN"),0) S X=$$VFILE^DILFD(YSFILEN) I X=0 S YSDATA(1)="[ERROR]",YSDATA(2)="BAD FILE N" Q ;--->out
|
|
S YSFIELD=$G(YS("FIELD"),0) S X=$$VFIELD^DILFD(YSFILEN,YSFIELD) I X=0 S YSDATA(1)="[ERROR]",YSDATA(2)="BAD FIELD N" Q ;--->out
|
|
S YSFLAG=$G(YS("FLAG"))
|
|
S YSNUMBER=$G(YS("NUMBER"),500)
|
|
S YSFROM("IEN")=$G(YS("FROM"))
|
|
S YSINDEX=$G(YS("INDEX"))
|
|
D LIST^DIC(YSFILEN,,YSFIELD,YSFLAG,YSNUMBER,.YSFROM,,YSINDEX)
|
|
I $D(^TMP("DIERR",$J)) S YSDATA(1)="[ERROR]",YSDATA(2)=$G(^TMP("DIERR",$J,1,"TEXT",1)) Q ;--> out
|
|
S YSDATA(1)="[DATA]"
|
|
S YSDATA(2)=^TMP("DILIST",$J,0)
|
|
S C=2,N=0
|
|
F S N=$O(^TMP("DILIST",$J,2,N)) Q:N'>0 D
|
|
. S C=C+1
|
|
. S YSDATA(C)=^TMP("DILIST",$J,2,N)_U_$G(^TMP("DILIST",$J,"ID",N,YSFIELD))
|
|
K ^TMP("DILIST",$J)
|
|
Q
|
|
ALLANS(YSDATA,YS) ;get all answers
|
|
;input:AD = ADMINISTRATION #
|
|
;output: [DATA]
|
|
; ADMIN ID^DFN^INSTRUMENT^DATE GIVEN^IS COMPLETE
|
|
;QUESTION #^seq^ANSWER
|
|
N G,G1,N,YSAD,YSQN
|
|
S YSAD=$G(YS("AD"))
|
|
I YSAD'?1N.N S YSDATA(1)="[ERROR]",YSDATA(2)="bad ad num" Q ;-->out
|
|
I '$D(^YTT(601.85,"AC",YSAD)) S YSDATA(1)="[ERROR]",YSDATA(2)="no such reference" Q ;-->out
|
|
S YSDATA(1)="[DATA]"
|
|
S YSDATA(2)=YSAD_U_$$GET1^DIQ(601.84,YSAD_",",1,"I")_U_$$GET1^DIQ(601.84,YSAD_",",2,"E")_U_$$GET1^DIQ(601.84,YSAD_",",3,"I")_U_$$GET1^DIQ(601.84,YSAD_",",8,"I")
|
|
S YSQN=0,N=2
|
|
F S YSQN=$O(^YTT(601.85,"AC",YSAD,YSQN)) Q:YSQN'>0 S G=0 D
|
|
. S G=$O(^YTT(601.85,"AC",YSAD,YSQN,G)) Q:G'>0 S G1=0 D
|
|
.. S:$P(^YTT(601.85,G,0),U,4)?1N.N N=N+1,YSDATA(N)=YSQN_"^1^"_$P(^YTT(601.85,G,0),U,4)
|
|
.. F S G1=$O(^YTT(601.85,G,1,G1)) Q:G1'>0 S N=N+1,YSDATA(N)=YSQN_U_G1_U_$G(^YTT(601.85,G,1,G1,0))
|
|
Q
|
|
SETANS(YSDATA,YS) ;save an answer
|
|
;input: AD = ADMINISTRATION #
|
|
;input: QN= QUESTION #
|
|
;input: CHOICE= Choice ID [optional]
|
|
;input: YS(1) thru YS(N) WP entries
|
|
;output: [DATA] vs [ERROR]
|
|
N G,G1,N,N1,YSIENS,YSAD,YSQN,YSCI,YSCODE,YSOP
|
|
S YSDATA(1)="[ERROR]"
|
|
S YSAD=$G(YS("AD"))
|
|
S YSQN=$G(YS("QN"))
|
|
S YSCI=$G(YS("CHOICE"))
|
|
I YSAD'?1N.N S YSDATA(2)="bad ad num" Q ;-->out
|
|
I YSQN'?1N.N S YSDATA(2)="bad quest num" Q ;-->out
|
|
I $D(^YTT(601.85,"AC",YSAD,YSQN)) S YSIENS=$O(^YTT(601.85,"AC",YSAD,YSQN,0))
|
|
I '$D(^YTT(601.85,"AC",YSAD,YSQN)) D ; set new entry
|
|
. S YSIENS=""
|
|
. S YSIENS=$$NEW^YTQLIB(601.85)
|
|
. Q:YSIENS'?1N.N
|
|
. L +^YTT(601.85,YSIENS)
|
|
. S ^YTT(601.85,YSIENS,0)=YSIENS_U_YSAD_U_YSQN
|
|
. L -^YTT(601.85,YSIENS)
|
|
. S ^YTT(601.85,0)="MH ANSWERS^601.85^"_YSIENS_U_($P(^YTT(601.85,0),U,4)+1)
|
|
. S ^YTT(601.85,"B",YSIENS,YSIENS)=""
|
|
. S ^YTT(601.85,"AC",YSAD,YSQN,YSIENS)=""
|
|
. S ^YTT(601.85,"AD",YSAD,YSIENS)=""
|
|
;enter or delete Answers
|
|
S $P(^YTT(601.85,YSIENS,0),U,4)=YSCI
|
|
K ^YTT(601.85,YSIENS,1)
|
|
S N=0,N1=0
|
|
F S N=$O(YS(N)) Q:N'>0 S N1=N1+1,^YTT(601.85,YSIENS,1,N1,0)=YS(N)
|
|
S:N1 ^YTT(601.85,YSIENS,1,0)=U_U_N1_U_N1_U_DT_U
|
|
S YSDATA(1)="[DATA]",YSDATA(2)="OK"
|
|
;set has been operational
|
|
S YSCODE=$P(^YTT(601.84,YSAD,0),U,3)
|
|
S YSOP=$P($G(^YTT(601.71,YSCODE,2)),U,2)
|
|
S:YSOP="Y" $P(^YTT(601.71,YSCODE,2),U,5)="Y"
|
|
Q
|
|
ADMINS(YSDATA,YS) ;administration retrevial
|
|
;input : DFN
|
|
;output:AdministrationID=InstrumentName^DateGiven^DateSaved^OrderedBy^AdministeredBy^Signed^IsComplete^NumberOfQuestionsAnswered
|
|
N N,G,DFN,YSIENS
|
|
S DFN=$G(YS("DFN"))
|
|
I DFN'?1N.N S YSDATA(1)="[ERROR]",YSDATA(2)="bad DFN" Q ;-->out
|
|
I '$D(^DPT(DFN,0)) S YSDATA(1)="[ERROR]",YSDATA(2)="nO pt" Q ;-->out
|
|
S YSIENS=0,N=2
|
|
S YSDATA(1)="[DATA]"
|
|
F S YSIENS=$O(^YTT(601.84,"C",DFN,YSIENS)) Q:YSIENS'>0 D
|
|
. S N=N+1
|
|
. S G=$G(^YTT(601.84,YSIENS,0))
|
|
. I G="" S YSDATA(1)="[ERROR]",YSDATA(2)=YSIENS_" bad ien in 84" Q ;-->out
|
|
. S YSDATA(N)=YSIENS_"="_$$GET1^DIQ(601.84,YSIENS_",",2)_U_$P(G,U,4)_U_$P(G,U,5)
|
|
. S YSDATA(N)=YSDATA(N)_U_$$GET1^DIQ(601.84,YSIENS_",",5,"I")_U_$$GET1^DIQ(601.84,YSIENS_",",6,"I")
|
|
. S YSDATA(N)=YSDATA(N)_U_$$GET1^DIQ(601.84,YSIENS_",",7)_U_$$GET1^DIQ(601.84,YSIENS_",",8)_U_$$GET1^DIQ(601.84,YSIENS_",",9)
|
|
S:YSDATA(1)="[DATA]" YSDATA(2)=(N-2)_" administrations"
|
|
Q
|
|
CCALL(YSDATA) ;
|
|
;all choices returned
|
|
;output: 601.75(1) CHOICETYPE ID^SEQUENCE^CHOICE IFN^CHOICE TEXT
|
|
N YSTESTN,YSTEST,YSF,YSV,N,G,YSCTYP,YSCTYPID,G,G1,X,YSCDA,YSN,YSN1
|
|
S YSN=0,N=1
|
|
S YSDATA(1)="[DATA]"
|
|
F S YSN=$O(^YTT(601.751,YSN)) Q:YSN'>0 D
|
|
. S YSN1=0 F S YSN1=$O(^YTT(601.751,"AC",YSN,YSN1)) Q:YSN1'>0 D
|
|
.. S YSCDA=0 F S YSCDA=$O(^YTT(601.751,"AC",YSN,YSN1,YSCDA)) Q:YSCDA'>0 D
|
|
... S N=N+1
|
|
... S YSDATA(N)=YSN_U_YSN1_U_YSCDA_U_$G(^YTT(601.75,YSCDA,1))
|
|
Q
|