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

Package: Outpatient Pharmacy

Routine: PSOERX1B


Information

PSOERX1B ;ALB/BWF - Accept eRx function ; 8/3/2016 5:14pm

Source Information

Source file <PSOERX1B.m>

Entry Points

Name Comments DBIA/ICR reference
ACVAL(PSOIEN,TYPE) ; NEW MTYPE, GET IT OFF FIELD .08, IF NOT DEFINED,
SETUP ;
ADD(QUIET) ;Add CHCS message to Outpatient Pending Orders file
REM ;
UNREM ;
REJ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Cannot accept validation for a prescription with a status of 'Rejected',",!,"'Removed',or 'Processed",!
  • Line Location: ACVAL+12
Function Call: WRITE
  • Prompt: !,"Vista "_TAG_" has not been matched. Cannot manually validate."
  • Line Location: ACVAL+18
Function Call: WRITE
  • Prompt: !!,"Unable to validate - VistA Patient does not have a current mailing"
  • Line Location: ACVAL+25
Function Call: WRITE
  • Prompt: !,"or residential address on file.",$C(7),!
  • Line Location: ACVAL+26
Function Call: WRITE
  • Prompt: !!,"This "_TAG_" has already been "_$S(TYPE="PR"&$$GET1^DIQ(52.49,PSOIEN,2.7,"I"):"automatically",1:"manually")_" validated."
  • Line Location: ACVAL+31
Function Call: WRITE
  • Prompt: !,"Validated By: "_$$GET1^DIQ(F,PSOIEN,VBFLD,"E")
  • Line Location: ACVAL+32
Function Call: WRITE
  • Prompt: !,"Validated Date/Time: "_$$GET1^DIQ(F,PSOIEN,VBDTTMF,"E"),!
  • Line Location: ACVAL+33
Function Call: WRITE
  • Prompt: !
  • Line Location: ACVAL+37
Function Call: WRITE
  • Prompt: !,"Dosing information missing.",$C(7)
  • Line Location: ACVAL+38
Function Call: WRITE
  • Prompt: !,"Quantity missing.",$C(7)
  • Line Location: ACVAL+39
Function Call: WRITE
  • Prompt: !,"Days supply missing.",$C(7)
  • Line Location: ACVAL+40
Function Call: WRITE
  • Prompt: !
  • Line Location: ACVAL+41
Function Call: WRITE
  • Prompt: !!,"*********************************",$S($P(ERXMSG,"^",2)="W":" WARNING(S) ",1:"INVALID DRUG"),"***********************************"
  • Line Location: ACVAL+46
Function Call: WRITE
  • Prompt: !,$P(ERXMSG(I),"^")
  • Line Location: ACVAL+47
Function Call: WRITE
  • Prompt: !,"********************************************************************************",$C(7)
  • Line Location: ACVAL+48
Function Call: WRITE
  • Prompt: !
  • Line Location: ACVAL+49
Function Call: WRITE
  • Prompt: !!,"This eRx has been put on Hold (HEL) because the VistA Patient ("_$$GET1^DIQ(2,DFN,.01)_") is not Eligible for ChampVA Rx Benefit."
  • Line Location: ACVAL+59
Function Call: WRITE
  • Prompt: !!,"This eRx has been put on Hold (HAL) because the VistA Patient ("_$$GET1^DIQ(2,DFN,.01)_") does not have an Allergy Assessment.."
  • Line Location: ACVAL+68
Function Call: WRITE
  • Prompt: !,"Would you like to mark this "_TAG_" as VALIDATED?"
  • Line Location: ACVAL+75
Function Call: WRITE
  • Prompt: !,"Validation Updated!!"
  • Line Location: ACVAL+82
Function Call: WRITE
  • Prompt: !,PSOEXMS
  • Line Location: SETUP+84
Function Call: WRITE
  • Prompt: !!,"External order, unable to successfully transmit to CPRS."
  • Line Location: ADD+47
Function Call: WRITE
  • Prompt: !!,"eRx #"_PSOHY("CHNUM")_" sent to PENDING OUTPATIENT ORDERS!"
  • Line Location: ADD+70
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: ADD+76
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: ADD+77

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(52.41 - [#52.41] Classic Fileman Calls,  WP^DIE
^PS(52.49 - [#52.49] Classic Fileman Calls,  GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call