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

Package: Outpatient Pharmacy

Routine: PSOERPT1


Information

PSOERPT1 ;BIRM/MFR - eRx Single Patient Medication Queue Supporting API's ; 12/10/22 10:57am

Source Information

Source file <PSOERPT1.m>

Entry Points

Name Comments DBIA/ICR reference
SETHDR() ; - Displays the Header Line
SETSORT(FIELD) ;Sets the data sorted by the FIELD specified
; Input: FIELD - Sort By Field
SETITEM(ERXIEN,FIELD) ; Adds an eRx Record to the Sorted List
; Input: ERXIEN - eRx IEN - Pointer to #52.49
; FIELD - Sort By field
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)
CMPPAT(ERXIEN,VISTAPAT,LSTERXID,COUNTER) ; Display the Comparison Between eRx and VistA Patients
CSERXS() ; Returns whether there are CS eRx on the list or not
VAPATIEN() ; Returns the VistA Patient IEN or 0 (No VistA Patient Selected) or -1 (Different VistA Patients Selected)
OPACCESS(OPTION,USER,LIST) ; Returns whether the current user has priviledge to Perform a given action on a list of entries
; Input: OPTION - Option to be checked
; USER - Pointer to NEW PERSON file (#200)
; LIST - List of eRX Records to be checked
ALRDYVAL() ; Returns whether at least one record from the list has already been validated
VIDEO() ; Changes the Video Attributes for the list
ERXLST(RANGE,ERXLST) ; Given a Range of List Item returns the list of eRx's in an Array
; Input: RANGE - User Selected Range (ex: '1-5'; '2,5,8,10'; '1-5,11-15', etc)
LSTERXS(ERXLST,ISSONLY,DISPSEQ) ; Given a list of eRx IENs (array passed in by Reference) it displays a list
PATIDS ; Patient Lookup Identifiers Display (set on DIC("W"))

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+30
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+35
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+35
Function Call: WRITE
  • Prompt: !?50,"Forgetting..."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: !?55,"|Sugg. "
  • Line Location: CMPPAT+8
Function Call: WRITE
  • Prompt: $G(IOINHI)_+$G(COUNTER)_$G(IOINORM)_" of "_$G(IOINHI)_$P($G(COUNTER),"^",2)_$G(IOINORM)
  • Line Location: CMPPAT+8
Function Call: WRITE
  • Prompt: " - ",$G(IOINHI)_$$FMTE^XLFDT($$GET1^DIQ(52.49,LSTERXID,1.14,"I")\1,"2Z")_$G(IOINORM),"|"
  • Line Location: CMPPAT+9
Function Call: WRITE
  • Prompt: !,$G(IORVON)_"ERX PATIENT"_$G(IORVOFF),?41,$G(IORVON)_"VISTA PATIENT"_$G(IORVOFF)
  • Line Location: CMPPAT+10
Function Call: WRITE
  • Prompt: ?55,"|From eRx#: "_$G(IOINHI)_$$GET1^DIQ(52.49,LSTERXID,.01)_$G(IOINORM),?79,"|"
  • Line Location: CMPPAT+11
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: CMPPAT+12
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: LSTERXS+6
Function Call: WRITE
  • Prompt: !,$S(DISPSEQ:SEQ_$S($$GET1^DIQ(52.49,ERXIEN,95.1,"I"):"]",1:"."),1:""),?$S(DISPSEQ:4,1:0),$$GET1^DIQ(52.49,ERXIEN,.01)
  • Line Location: LSTERXS+10
Function Call: WRITE
  • Prompt: ?51,$E($$GET1^DIQ(52.49,ERXIEN,2.1),1,22)
  • Line Location: LSTERXS+12
Function Call: WRITE
  • Prompt: ?74,$$GET1^DIQ(52.49,ERXIEN,1)
  • Line Location: LSTERXS+13
Function Call: WRITE
  • Prompt: !,"REASON: ",$P($G(ERXLST(SEQ)),"^",2)
  • Line Location: LSTERXS+15
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: LSTERXS+16
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT($P(^(0),U,3),"5Z")," ",$P(^(0),U,9)
  • Line Location: PATIDS+2
Function Call: WRITE
  • Prompt: " ",$P(Z,U,4)
  • Line Location: PATIDS+3
Function Call: WRITE
  • Prompt: ",",$P(^DIC(5,+$P(Z,U,5),0),U,2)
  • Line Location: PATIDS+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.48 - [#52.48] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call