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: PSOERPC0

Package: Outpatient Pharmacy

Routine: PSOERPC0


Information

PSOERPC0 ;BIRM/MFR - All Patients (Patient Centric) eRx Queue - ListManager ;09/28/22

Source Information

Source file <PSOERPC0.m>

Entry Points

Name Comments DBIA/ICR reference
STS ; Status Selection Prompt
EN ; - Entry point for the PC Action in the RX View
; Loading User's preferences
LMHDR ; ListMan Header Code
HDR
INIT ; - Populates the Body section for ListMan
HELP ; -- help code
LBD ; - Change Look Back Days Parameter Action
SQ ; - Search Queue Entry Point
REP ; - Repeat Prompt for additional filters
VPATFLTR ; - VistA Patient Filter
REP1 ; - Repeat VistA Patient Prompt
EPATFLTR ; - eRx Patient Filter
REP2 ; - Repeat eRx Patient Prompt
PATLHDR(PATTYP) ; - Prints the Patient List Header
DOBFLTR ; - DOB Filter
MATFLTR ; - Match Status Filter
ERXFLTR() ; - eRx ID Filter
RXFLTR() ; - Rx # Filter
RF ; - Remove All Filters
CS ; - Group/Un-group Controlled Substances
CV ; - Change View
SORT(FIELD) ; - Sort entries by FIELD
SEL ; - Process selection of one entry
NEXTPAT
RX ; - Switch to Rx View
REF ; - Screen Refresh
EXIT ; - exit code

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: PSOERPC0+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOERPC0+18
Function Call: WRITE
  • Prompt: !,"You do not have the appropriate key to access this option."
  • Line Location: PSOERPC0+26
Function Call: WRITE
  • Prompt: !,"NPI Institution must be defined to continue."
  • Line Location: PSOERPC0+31
Function Call: WRITE
  • Prompt: !,"Please wait..."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LBD+2
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"NOTE: Only patients with actionable records are captured with this search.",IOINORM
  • Line Location: REP+11
Function Call: WRITE
  • Prompt: !,IOINHI," Non-Actionable records can be searched through the SQ action under Rx",IOINORM
  • Line Location: REP+12
Function Call: WRITE
  • Prompt: !,IOINHI," List View.",IOINORM
  • Line Location: REP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REP1+1
Function Call: WRITE
  • Prompt: !,IOINHI,"There are no eRx Patient(s) matched to this VistA Patient",IOINORM,$C(7)
  • Line Location: REP1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: REP2+3
Function Call: WRITE
  • Prompt: !,IOINHI,"No eRx Patient found",IOINORM,$C(7)
  • Line Location: REP2+6
Function Call: WRITE
  • Prompt: !!,IOINHI,"There are too many records to display, please narrow your search.",IOINORM,$C(7)
  • Line Location: REP2+8
Function Call: WRITE
  • Prompt: !,PAT,".",?4,$E(^TMP($J,"PSOPTLST","DILIST","ID",PAT,.01),1,30)
  • Line Location: REP2+13
Function Call: WRITE
  • Prompt: ?35,$$FMTE^XLFDT(Y,"5Z")
  • Line Location: REP2+15
Function Call: WRITE
  • Prompt: ?47,$E(^TMP($J,"PSOPTLST","DILIST","ID",PAT,3.3),1,20)_"-"_$$STATEABB^PSOERUT(52.46,^TMP($J,"PSOPTLST","DILIST",2,PAT))
  • Line Location: REP2+17
Function Call: WRITE
  • Prompt: ?71,$$FMTE^XLFDT(RECDAT\1,"2Z")
  • Line Location: REP2+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REP2+23
Function Call: WRITE
  • Prompt: !
  • Line Location: REP2+28
Function Call: WRITE
  • Prompt: !?73,"LAST",!,"#",?4,$S(PATTYP="E":"ERX",1:"VISTA")_" PATIENT NAME",?35,"DOB",?47,"CITY",?71,"REC.DATE"
  • Line Location: PATLHDR+2
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: PATLHDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DOBFLTR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MATFLTR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ERXFLTR+3
Function Call: WRITE
  • Prompt: !,"This prescription is not an eRx prescription."
  • Line Location: ERXFLTR+8
Function Call: WRITE
  • Prompt: !!,"eRx belongs to a different Division: "_$$GET1^DIQ(52.49,ERXID,24.1),!,$C(7)
  • Line Location: ERXFLTR+10
Function Call: WRITE
  • Prompt: !!,"The patient for this eRx is currently locked by "_$$GET1^DIQ(200,+$G(^XTMP("PSOERXLOCK",ERXPTIEN)),.01)_".",!,$C(7)
  • Line Location: ERXFLTR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: RXFLTR+3
Function Call: WRITE
  • Prompt: !,"This prescription is not an eRx prescription."
  • Line Location: RXFLTR+8
Function Call: WRITE
  • Prompt: !!,"eRx belongs to a different Division: "_$$GET1^DIQ(52.49,ERXID,24.1),!,$C(7)
  • Line Location: RXFLTR+10
Function Call: WRITE
  • Prompt: !!,"The patient for this eRx is currently locked by "_$$GET1^DIQ(200,+$G(^XTMP("PSOERXLOCK",ERXPTIEN)),.01)_".",!,$C(7)
  • Line Location: RXFLTR+14
Function Call: WRITE
  • Prompt: ?65,"Please wait..."
  • Line Location: REF+1

FileMan Files Accessed Via FileMan Db Call

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