Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 7 $$PRVWARN^PSOERX1A  ($$PATWARN,AUTOHOLD)^PSOERX1E  UPDSTAT^PSOERXU1  (REJ,REM,UNREM)^PSOERXU4  BPROC^PSOERXU8  $$CHVAELIG^PSOERXU9  ($$VALPTADD,PRDRVAL)^PSOERXUT  
VA FileMan 3 FILE^DIE  $$GET1^DIQ  ^DIR  
Adverse Reaction Tracking 1 EN1^GMRADPT  
Kernel 1 $$NOW^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSO ERX ACCEPT VALIDATION  PSO ERX REMOVE  PSO ERX UN-REMOVE  PSOERSE3  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ACVAL(PSOIEN,TYPE,VAMMODE) ; NEW MTYPE, GET IT OFF FIELD .08, IF NOT DEFINED,
REM ;
UNREM ;
REJ ;

External References

Name Field # of Occurrence
FILE^DIE ACVAL+81
$$GET1^DIQ ACVAL+6, ACVAL+11, ACVAL+12, ACVAL+18, ACVAL+25, ACVAL+30, ACVAL+32, ACVAL+33, ACVAL+34, ACVAL+40
, ACVAL+41, ACVAL+55, ACVAL+60, ACVAL+69, ACVAL+85, ACVAL+88, ACVAL+90, ACVAL+93, ACVAL+99, ACVAL+100
^DIR ACVAL+14, ACVAL+20, ACVAL+28, ACVAL+35, ACVAL+42, ACVAL+50, ACVAL+52, ACVAL+75, ACVAL+76
EN1^GMRADPT ACVAL+66
$$PRVWARN^PSOERX1A ACVAL+75
$$PATWARN^PSOERX1E ACVAL+53
AUTOHOLD^PSOERX1E ACVAL+62, ACVAL+71
UPDSTAT^PSOERXU1 ACVAL+59, ACVAL+68, ACVAL+85, ACVAL+86, ACVAL+89, ACVAL+90, ACVAL+91, ACVAL+93, ACVAL+94
REJ^PSOERXU4 REJ+1
REM^PSOERXU4 REM+1
UNREM^PSOERXU4 UNREM+1
BPROC^PSOERXU8 ACVAL+95, ACVAL+96
$$CHVAELIG^PSOERXU9 ACVAL+57
$$VALPTADD^PSOERXUT ACVAL+25
PRDRVAL^PSOERXUT ACVAL+45
FULL^VALM1 ACVAL+8
PAUSE^VALM1 ACVAL+61, ACVAL+70
$$NOW^XLFDT ACVAL+78

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
Routine Call
  • DIE
  • Line Location:
    • ACVAL+81
Routine Call
  • DIR
  • Line Location:
    • ACVAL+14
    • ACVAL+20
    • ACVAL+28
    • ACVAL+35
    • ACVAL+42
    • ACVAL+50
    • ACVAL+52
    • ACVAL+75
    • ACVAL+76

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.49 - [#52.49] ACVAL+39, ACVAL+100*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CURVAL ACVAL+4~, ACVAL+30*, ACVAL+31
DFN ACVAL+5~, ACVAL+55*, ACVAL+57, ACVAL+60, ACVAL+62, ACVAL+69, ACVAL+71
DIR ACVAL+4~, ACVAL+42!, ACVAL+50!, ACVAL+52!, ACVAL+61!, ACVAL+70!, ACVAL+75!, ACVAL+77!
DIR("B" ACVAL+76*
DIR(0 ACVAL+14*, ACVAL+20*, ACVAL+28*, ACVAL+35*, ACVAL+42*, ACVAL+50*, ACVAL+52*, ACVAL+75*, ACVAL+76*
DUZ ACVAL+79
ERXMMFLG ACVAL+4~, ACVAL+52, ACVAL+53*, ACVAL+73, ACVAL+75*, ACVAL+76
ERXMSG ACVAL+44~, ACVAL+45, ACVAL+47
ERXMSG( ACVAL+48
ERXMSG(0 ACVAL+46
ERXPTIEN ACVAL+5~
F ACVAL+4~, ACVAL+7*, ACVAL+18, ACVAL+30, ACVAL+33, ACVAL+34, ACVAL+78, ACVAL+79, ACVAL+80
FDA ACVAL+77!, ACVAL+81!
FDA( ACVAL+78*, ACVAL+79*, ACVAL+80*
GMRA ACVAL+5~, ACVAL+66*
GMRAL ACVAL+5~, ACVAL+65, ACVAL+66
I ACVAL+44~, ACVAL+48*
MBMSITE ACVAL+4~, ACVAL+6*, ACVAL+57, ACVAL+65, ACVAL+95, ACVAL+96, ACVAL+101, ACVAL+102
MTYPE ACVAL+4~, ACVAL+11*, ACVAL+84, ACVAL+87, ACVAL+92
MVFLD ACVAL+4~, ACVAL+21*, ACVAL+30, ACVAL+78, ACVAL+95, ACVAL+96
>> PSOCLNC ACVAL+100
PSOIEN ACVAL~, ACVAL+7, ACVAL+11, ACVAL+12, ACVAL+18, ACVAL+25, ACVAL+30, ACVAL+32, ACVAL+33, ACVAL+34
, ACVAL+39, ACVAL+40, ACVAL+41, ACVAL+45, ACVAL+53, ACVAL+55, ACVAL+59, ACVAL+62, ACVAL+68, ACVAL+71
, ACVAL+75, ACVAL+85, ACVAL+86, ACVAL+88, ACVAL+89, ACVAL+90, ACVAL+91, ACVAL+93, ACVAL+94, ACVAL+95
, ACVAL+96, ACVAL+99, ACVAL+100
PSOIENS ACVAL+4~, ACVAL+7*, ACVAL+78, ACVAL+79, ACVAL+80
>> PSOSITE ACVAL+100
QFLG ACVAL+4~, ACVAL+36*, ACVAL+39*, ACVAL+40*, ACVAL+41*, ACVAL+42, ACVAL+45*, ACVAL+50
RESTYPE ACVAL+5~, ACVAL+88*, ACVAL+89
RXSTAT ACVAL+4~, ACVAL+12*, ACVAL+58, ACVAL+67, ACVAL+84, ACVAL+87, ACVAL+92
TAG ACVAL+4~, ACVAL+16*, ACVAL+19, ACVAL+32, ACVAL+76
TYPE ACVAL~, ACVAL+15, ACVAL+16, ACVAL+17, ACVAL+21, ACVAL+22, ACVAL+23, ACVAL+25, ACVAL+32, ACVAL+37
, ACVAL+43, ACVAL+52, ACVAL+57, ACVAL+65, ACVAL+73, ACVAL+75, ACVAL+82, ACVAL+95, ACVAL+96, ACVAL+97
VAL ACVAL+4~, ACVAL+18*, ACVAL+25
>> VALMAR ACVAL+95, ACVAL+96, ACVAL+101
>> VALMBCK ACVAL+9*, ACVAL+102*
VALPAR ACVAL+4~, ACVAL+17*, ACVAL+18
VAMMODE ACVAL~, ACVAL+76, ACVAL+95, ACVAL+96, ACVAL+101
VBDTTMF ACVAL+4~, ACVAL+23*, ACVAL+34, ACVAL+80, ACVAL+95, ACVAL+96
VBFLD ACVAL+4~, ACVAL+22*, ACVAL+33, ACVAL+79, ACVAL+95, ACVAL+96
VDTTM ACVAL+4~, ACVAL+78*, ACVAL+80, ACVAL+95, ACVAL+96
Y ACVAL+4~, ACVAL+76
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All