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

Package: Outpatient Pharmacy

Routine: PSOERUT4


Information

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

Source Information

Source file <PSOERUT4.m>

Entry Points

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...)

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(50.607 - [#50.607] GET1^DIQ
^PS(51.2 - [#51.2] GET1^DIQ
^PSRX - [#52] GET1^DIQ,  GETS^DIQ
^PS(52.41 - [#52.41] GET1^DIQ,  GETS^DIQ
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.49 - [#52.49] GETS^DIQ
52.4919 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call