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,VAMMODE) ; NEW MTYPE, GET IT OFF FIELD .08, IF NOT DEFINED,
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+13
Function Call: WRITE
  • Prompt: !,"Vista "_TAG_" has not been matched. Cannot manually validate."
  • Line Location: ACVAL+19
Function Call: WRITE
  • Prompt: !!,"Unable to validate - VistA Patient does not have a current mailing"
  • Line Location: ACVAL+26
Function Call: WRITE
  • Prompt: !,"or residential address on file.",$C(7),!
  • Line Location: ACVAL+27
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+32
Function Call: WRITE
  • Prompt: !,"Validated By: "_$$GET1^DIQ(F,PSOIEN,VBFLD,"E")
  • Line Location: ACVAL+33
Function Call: WRITE
  • Prompt: !,"Validated Date/Time: "_$$GET1^DIQ(F,PSOIEN,VBDTTMF,"E"),!
  • Line Location: ACVAL+34
Function Call: WRITE
  • Prompt: !
  • Line Location: ACVAL+38
Function Call: WRITE
  • Prompt: !,"Dosing information missing.",$C(7)
  • Line Location: ACVAL+39
Function Call: WRITE
  • Prompt: !,"Quantity missing.",$C(7)
  • Line Location: ACVAL+40
Function Call: WRITE
  • Prompt: !,"Days supply missing.",$C(7)
  • Line Location: ACVAL+41
Function Call: WRITE
  • Prompt: !
  • Line Location: ACVAL+42
Function Call: WRITE
  • Prompt: !!,"*********************************",$S($P(ERXMSG,"^",2)="W":" WARNING(S) ",1:"INVALID DRUG"),"***********************************"
  • Line Location: ACVAL+47
Function Call: WRITE
  • Prompt: !,$P(ERXMSG(I),"^")
  • Line Location: ACVAL+48
Function Call: WRITE
  • Prompt: !,"********************************************************************************",$C(7)
  • Line Location: ACVAL+49
Function Call: WRITE
  • Prompt: !
  • Line Location: ACVAL+50
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+60
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+69
Function Call: WRITE
  • Prompt: !,$S(TYPE="P":"Patient",TYPE="PR":"Provider",1:"Drug/SIG")_" Match Validated!!"
  • Line Location: ACVAL+82

FileMan Files Accessed Via FileMan Db Call

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