Routine: PSOERUT4

Information

PSOERUT4 ;ALB/MFR - eRx Drug Suggestion Utilities; 06/25/2023 5:14pm

Name	Comments	DBIA/ICR reference
MATCHSUG(ERXIEN,VIEW)	; Match Suggestion Prompt ; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; (o)VIEW - View Only Mode (1:YES,0/null: NO)
CMPMEDS(ERXIEN,VISTARX,COUNTER)	; Display the Comparison Between eRx and VistA Providers
CSPRV(PROV,DRG,ORN)	; Sets CS Information (DEA#, Detox #, Site Address,...)
VASIG(ORD)	; Returns The Pending Order SIG ; Input: ORD - Pointer to the PENDING ORDER file (#52.41)
ERXDOSE(ERXIEN,DOSEARR,INTVAL)	; Retrieves the Dosage for an eRx and loads an Array ; Input: ERXIEN - Pointer to the ERX HOLDING QUEUE file (#52.49) ; (o)INTVAL - 1: Use Internal Value Flag \| 0/null: External Value
VARXDOSE(RXIEN,DOSEARR)	; Retrieves the Dosage for a PRESCRIPTION and loads an Array ; Input: RXIEN - Pointer to the PRESCRIPTION file (#52)
PODOSAGE(NMSPC,ORDIEN,PENDATA,RENEWORD)	; Set ListMan Side-By-Side Section for VistA Pending Order Dosage
PENFLAG(NMSPC,ORD)	; Backdoor ListManager Display of Flag/Unflag Information
ACCDTBY(ERXIEN)	; Returns the eRx latest Accepted Date/Time ; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
PROVCOMM(COMM)	; Expand Provider Comments ; Input: Provider Comments
FREQ(DUR)	; Returns the Duration Frequency word (WEEKS, DAYS, etc..) ; Input: DUR - Schedule Duration (e.g., "4D", "3W", "6H", etc...)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MATCHSUG+46
Function Call: WRITE	Prompt: ! Line Location: MATCHSUG+54
Function Call: WRITE	Prompt: ! Line Location: MATCHSUG+54
Function Call: WRITE	Prompt: !?64,"Forgetting..." Line Location: MATCHSUG+55
Function Call: WRITE	Prompt: "Ok." Line Location: MATCHSUG+55
Function Call: WRITE	Prompt: "Ok." Line Location: MATCHSUG+55
Function Call: WRITE	Prompt: !?55,"\|Sugg. " Line Location: CMPMEDS+6
Function Call: WRITE	Prompt: $G(IOINHI)_+$G(COUNTER)_$G(IOINORM)_" of "_$G(IOINHI)_$P($G(COUNTER),"^",2)_$G(IOINORM) Line Location: CMPMEDS+6
Function Call: WRITE	Prompt: " - ",$G(IOINHI)_$$FMTE^XLFDT($$GET1^DIQ(52,VISTARX,21,"I")\1,"2Z")_$G(IOINORM),?79,"\|" Line Location: CMPMEDS+7
Function Call: WRITE	Prompt: !,$G(IORVON)_"ERX MED"_$G(IORVOFF),?41,$G(IORVON)_"VISTA MED"_$G(IORVOFF) Line Location: CMPMEDS+8
Function Call: WRITE	Prompt: ?55,"\|From Rx#: "_$G(IOINHI)_$$GET1^DIQ(52,VISTARX,.01)_$G(IOINORM),?79,"\|" Line Location: CMPMEDS+9
Function Call: WRITE	Prompt: !,XX Line Location: CMPMEDS+10