Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOERRX1

Package: Outpatient Pharmacy

Routine: PSOERRX1


Information

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

Source Information

Source file <PSOERRX1.m>

Entry Points

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND^DIC
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.46 - [#52.46] GET1^DIQ
^PS(52.48 - [#52.48] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call