Routine: PSOHLPIS

Information

PSOHLPIS ;BIR/RTR-Parse out and create CPRS Sig ;7/21/96

Source file <PSOHLPIS.m>

Name	Comments	DBIA/ICR reference
EN	;
STUFF	;
QUITIN	;I $P($G(^PS(50.7,+$G(PSORDITE),"INS")),"^")'="",DCOUNT S DCOUNT=DCOUNT+1,^PS(52.41,PENDING,"SIG",0)="^52.4124A^"_DCOUNT_"^"_DCOUNT,^PS(52.41,PENDING,"SIG",DCOUNT,0)=$P($G(^PS(50.7,+$G(PSORDITE),"INS")),"^")
QUIT
SIG1	;
DAYS
NON	;
VERB	;Check if verb and noun need to be added to SIG
VERBEX
UPPER(PSOUCS)	;
LOWER(PSOLCS)	;
SSS	;
FRAC	;
FRACQ
NUM	;