Routine: PSSNOUNR

Information

PSSNOUNR ;BIR/RTR-Dosage Form and Noun report ;03/24/00

Name	Comments	DBIA/ICR reference
EN	;
START	;
END	;
NOHD	;
PARN	;
GETMDF(PSSDFI)	; Get RxNorm Dose Form name from MASTER DOSAGE FORM (#50.60699) file ; Input: PSSDFI - Dosage Form IEN from DOSAGE FORM (#50.606) file.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report shows the Dosage Forms and Nouns, along with the package use for",!,"each Noun and the resulting Local Possible Dosage.",! Line Location: EN+1
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: EN+2
Function Call: WRITE	Prompt: !,"Report queued to print.",! Line Location: EN+3
Function Call: WRITE	Prompt: $S($L(PSSMDF):" ["_PSSMDF_"]",1:"") Line Location: START+10
Function Call: WRITE	Prompt: " " Line Location: START+10
Function Call: WRITE	Prompt: PSSX Line Location: START+12
Function Call: WRITE	Prompt: "," Condition for execution: $O(PSSDAR(PSSX)) Line Location: START+12
Function Call: WRITE	Prompt: ")" Line Location: START+13
Function Call: WRITE	Prompt: !?2,$G(PSSNAME) Line Location: START+18
Function Call: WRITE	Prompt: ?42,"(No package)" Line Location: START+19
Function Call: WRITE	Prompt: !?2,$G(PSSNAME),?61,"(No package)" Line Location: START+21
Function Call: WRITE	Prompt: !?2,"(No Nouns)" Line Location: START+27
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: @IOF Line Location: NOHD+2
Function Call: WRITE	Prompt: !,"Dosage Form"," [RxNorm Name]",?40,"Dispense Units per Dose",?69,"PAGE: "_$G(PSSCT) Line Location: NOHD+2
Function Call: WRITE	Prompt: !?2,"Noun(s)",?36,"Package-->Local Possible Dosage",!,PSSLINE Line Location: NOHD+4