Routine: PSONVARP

Information

PSONVARP ;BHM/MFR - Non-VA Med Usage Report - Input ; 5/3/10 5:57pm

Name	Comments	DBIA/ICR reference
HID	; - Entrhy point from the Hidden Action in the Medication Profile
EN
ENDT	; - Ask for TO DATE DOCUMENTED
SORT	; - Ask for SORT BY
SORT1
DEV
END
SRT1	; - Selection of PATIENTS to print on the Report
SRT2	; - Selection of ORDERABLE ITEMS to print on the Report
SRT4	; - Selection of STATUS to print on the Report
SRT5	; - Selection of ORDER CHECKS to print on the Report
TRNS(X)	; - Translates Alpha into the corresponding Sorting Code
DEAD(DFN,DSPL)	; Check if Patient has a Date Of Death on File
HL1(S)	; - Help for the SORT BY prompt

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: ENDT+2
Function Call: WRITE	Prompt: ! Line Location: SORT1+2
Function Call: WRITE	Prompt: ! Line Location: SORT1+4
Function Call: WRITE	Prompt: !?(C-10),$S(I=1:"SORT BY ",1:"THEN BY ") Line Location: SORT1+7
Function Call: WRITE	Prompt: X,"???",$C(7) Line Location: SORT1+8
Function Call: WRITE	Prompt: $P("PATIENT NAME^ORDERABLE ITEM^DATE DOCUMENTED^STATUS^ORDER CHECKS","^",X) Line Location: SORT1+9
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !!,?5,"You may select a single or multiple PATIENTS," Line Location: SRT1+2
Function Call: WRITE	Prompt: !,?5,"or enter ^ALL to select all PATIENTS.",! Line Location: SRT1+3
Function Call: WRITE	Prompt: !!,?5,"You may select a single or multiple ORDERABLE ITEMS," Line Location: SRT2+2
Function Call: WRITE	Prompt: !,?5,"or enter ^ALL to select all ORDERABLE ITEMS.",! Line Location: SRT2+3
Function Call: WRITE	Prompt: !!,?5,"You may select (A)CTIVE, (D)ISCONTINUED or (B)OTH status.",! Line Location: SRT4+2
Function Call: WRITE	Prompt: !!,?5,"You may select 'Y' to print ",OP1,"," Line Location: SRT5+4
Function Call: WRITE	Prompt: !?5,"'N' to print ",OP2," or 'B' for BOTH.",! Line Location: SRT5+5
Function Call: WRITE	Prompt: !?10,$P($G(VADM(1)),"^")," (",$P($G(VADM(2)),"^",2),") DIED ",$P($G(VADM(6)),"^",2),$C(7) Line Location: DEAD+4