Routine: YTQAPI14

Name	Comments	DBIA/ICR reference
RESEND	;resend all no transmits and errors
NULLNOW	;set transmission status to "" and NOW
NN1	;re-entry if lock fails
CKHL7	;check hl7 status
SEND1	;send single HL7 by pt & test
SELADM(YSADIEN)	;select admin by pt and test
NOPNOTE	;entry point for YTQ PNOTE FLAG option
EXEMPT	;exempt by adim and report
SIGNOK(YSDATA,YS)	;entry point for YTQ ASI SIGNOK rpc
TYPE	;check field type
SCOREIT(YSDATA,YS)	; from YTQAPI8
SCOR1
PRIV	;check privileges

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"MHA3 HL7 Resends",!!,"CAUTION:: use only if instructed by National Support Staff",! Line Location: RESEND+2
Function Call: WRITE	Prompt: !,N1," messages resent" Line Location: RESEND+25
Function Call: WRITE	Prompt: @IOF,!?15,"* HL7 Check *",! Line Location: CKHL7+2
Function Call: WRITE	Prompt: !,"YS MHAT ERROR" Line Location: CKHL7+4
Function Call: WRITE	Prompt: !,"HL7 message created..." Line Location: SEND1+7
Function Call: WRITE	Prompt: !,N Line Location: SELADM+9
Function Call: WRITE	Prompt: ?15,Y Line Location: SELADM+10
Function Call: WRITE	Prompt: @IOF,!,"* Exempt Test *",!! Line Location: EXEMPT+2
Function Call: WRITE	Prompt: "Caution-- changing the exempt level of a published test may break copyright",!,"agreements. Changes to national tests are at the risk of the changing facility.",!! Line Location: EXEMPT+3

FileNo	Call Tags
^YTT(601.71 - [#601.71]	Classic Fileman Calls, GET1^DIQ
^YTT(601.84 - [#601.84]	Classic Fileman Calls
^YSTX(604 - [#604]	FIELD^DID, GET1^DIQ

Information