Routine: PSOERRX1

Information

PSOERRX1 ;BIRM/MFR - All Rxs eRx Queue - Supporting APIs ;08/28/22

Name	Comments	DBIA/ICR reference
HDR	; - Builds the Header section
SETHDR()	; - Displays the Header Line
SETSORT(FIELD)	; Sets the data sorted by the FIELD specified
RELMSG(ERXIEN,ERXCNT)	; Includes any related Message
SETITEM(FIELD,ERXIEN,COUNTER)	; Adds an eRx Record to the Sorted List ; Input: FIELD - Sort By field ; ERXIEN - eRx IEN - Pointer to #52.49 ; COUNTER - eRx Counter - Number of Items on the List (Passed in by Reference)
VPRVFLTR	; - VistA Provider Filter
REP1	; - Repeat VistA Provider Prompt
PRVLHDR	; - Prints the Provider List Header
VDRGFLTR	;VistA Drug Filter
REPDRG	;Repeat VistA Drug Prompt
CHKSTSLST(ERXIEN,STSFLTR)	;Check erx order status

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: REP1+2
Function Call: WRITE	Prompt: !,"No VistA Provider found",$C(7) Line Location: REP1+5
Function Call: WRITE	Prompt: !,PRV,".",?4,$E(PRVLST("DILIST","ID",PRV,.01),1,30),?35,PRVLST("DILIST","ID",PRV,53.2) Line Location: REP1+10
Function Call: WRITE	Prompt: ?47,$E(PRVLST("DILIST","ID",PRV,.114),1,20),"-",$$STATEABB^PSOERUT(200,PRVLST("DILIST",2,PRV)) Line Location: REP1+12
Function Call: WRITE	Prompt: ?71,$$FMTE^XLFDT($$LASTREDT^PSOERUT("AVPRV",PRVLST("DILIST",2,PRV)),"2Z") Line Location: REP1+13
Function Call: WRITE	Prompt: @IOF Line Location: REP1+17
Function Call: WRITE	Prompt: ! Line Location: REP1+20
Function Call: WRITE	Prompt: !!,"There are no eRx Providers associated with the VistA Provider(s) selected.",$C(7) Line Location: REP1+32
Function Call: WRITE	Prompt: !?73,"LAST",!,"#",?4,"VISTA PROVIDER NAME",?35,"DEA",?47,"CITY",?71,"REC.DATE" Line Location: PRVLHDR+1
Function Call: WRITE	Prompt: !,XX Line Location: PRVLHDR+2
Function Call: WRITE	Prompt: ! Line Location: REPDRG+2
Function Call: WRITE	Prompt: !!,IOINHI,"There are no eRx Drug(s) matched to this VistA Drug.",IOINORM,$C(7) Line Location: REPDRG+12