Routine: PSOORED3

Information

PSOORED3 ;BIR/SAB-edit finished orders through backdoor ;Apr 08, 2020@09:09:53

Name	Comments	DBIA/ICR reference
DOSE	;adds dosing info
ASK
VER
DUPD	;
NOU1
NOU
RTE
SCH
DUR
CON
MW
UDSIG
EX	;
EX1
KV
EXQ
M1
DOLST1(PSORXED)	;
DOLST
UPDSIG	;updates sig
JUMP	;jump to fields
CNON	;
DUROK(DOSE,ENT)	; Duration OK? (Complex Doses only)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Dispense Units Per Dose is Required!!",! Line Location: DUPD+6
Function Call: WRITE	Prompt: " ("_SCHEX_")" Line Location: SCH+3
Function Call: WRITE	Prompt: !,?10,"Invalid Entry - nothing to delete!!" Line Location: CON+2
Function Call: WRITE	Prompt: !!,"Duration is required for the dosage entered prior to the THEN conjunction.",$C(7),! Line Location: CON+8
Function Call: WRITE	Prompt: !,"Field Name Must Be At Least 3 Characters in Length",! Line Location: JUMP+1
Function Call: WRITE	Prompt: !,"INVALID FIELD NAME. PLEASE TRY AGAIN!",! Line Location: JUMP+3
Function Call: WRITE	Prompt: !,AR_". "_$P(FLDNM,"^",2)_": "_$S(NM="ROU"&($G(PSORXED($P(FLDNM,"^"),AR))):$P(^PS(51.2,PSORXED($P(FLDNM,"^"),AR),0),"^"),1:$G(PSORXED($P(FLDNM,"^"),AR))) Line Location: JUMP+4

FileNo	Call Tags
^PS(51.1 - [#51.1]	GET1^DIQ