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

Package: Outpatient Pharmacy

Routine: PSOERX1A


Information

PSOERX1A ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm

Source Information

Source file <PSOERX1A.m>

Entry Points

Name Comments DBIA/ICR reference
SI ;
SBN ;
L(DFN,DIS,SILENT) ; Locks an eRx Patient
; Input: DFN - Pointer to eRx Patient (Pointer to #52.46)
; DIS - Display name of the user currently locking the record
; (o)SILENT - 1: Silent call - Nothing displayed back | 0: Display information about the Lock on the screen
UL(DFN) ; unlock
R() ; check lock on node
PDATE() ;
WHO(DFN) ;
ADDITEM(TEXT,HDR,DATA,STRT,LEN) ;
PROV ;
PAT ;
DRUG ;
EDIT(EDTYP,SBN) ;
VPROV ;
PRVWARN(ACTION,PSOIEN,VAPIEN) ; Check whether the Provider Select is valid or not
; Input:(r)ACTION - Ation being peformed ("EP": Edit Provider | "VP": Validate Provider)
; (r)PSOIEN - Pointer to the ERX HOLDING QUEUE file (#52.49)
; (r)VAPIEN - Provider -Pointer to the NEW PERSON file (#200)
CHKPRV2(Y) ;
PLSTRNG(LOW,HIGH,EDIT,SBN) ;
VPAT ;
PATWARN(ACTION,PSOIEN,SELPAT) ; Check whether the Patient Select is valid or not
; Input:(r)ACTION - Ation being peformed ("EP": Edit Patient | "VP": Validate Patient)
; (r)PSOIEN - Pointer to the ERX HOLDING QUEUE file (#52.49)
; (r)SELPAT - Patient -Pointer to the PATIENT file (#2)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Cannot edit a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !?64,"Updating..."
  • Line Location: EDIT+15
Function Call: WRITE
  • Prompt: "done."
  • Line Location: EDIT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+19
Function Call: WRITE
  • Prompt: !,"Current Vista Provider: "_VAPNM,!
  • Line Location: VPROV+21
Function Call: WRITE
  • Prompt: !
  • Line Location: VPROV+25
Function Call: WRITE
  • Prompt: !
  • Line Location: VPROV+30
Function Call: WRITE
  • Prompt: !?64,"Updating..."
  • Line Location: VPROV+39
Function Call: WRITE
  • Prompt: "done.",$C(7)
  • Line Location: VPROV+57
Function Call: WRITE
  • Prompt: !!,"*******************************",$S($P(ERXMSG,"^",2)="W":" WARNING(S) ",1:"INVALID PROVIDER"),"*********************************"
  • Line Location: PRVWARN+11
Function Call: WRITE
  • Prompt: !,$P(ERXMSG(I),"^")
  • Line Location: PRVWARN+12
Function Call: WRITE
  • Prompt: !,"********************************************************************************"
  • Line Location: PRVWARN+13
Function Call: WRITE
  • Prompt: !,"Invalid response."
  • Line Location: PLSTRNG+39
Function Call: WRITE
  • Prompt: !,"Current Vista patient: "_$$GET1^DIQ(2,VAPIEN,.01,"E"),!
  • Line Location: VPAT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: VPAT+24
Function Call: WRITE
  • Prompt: !?64,"Updating..."
  • Line Location: VPAT+33
Function Call: WRITE
  • Prompt: !!,"This eRx has been put on Hold (HEL) because the VistA Patient ("_$$GET1^DIQ(2,SELPAT,.01)_") is not Eligible for ChampVA Rx Benefit."
  • Line Location: VPAT+50
Function Call: WRITE
  • Prompt: !!,"This eRx has been put on Hold (HAL) because the VistA Patient ("_$$GET1^DIQ(2,SELPAT,.01)_") does not have an Allergy Assessment.."
  • Line Location: VPAT+59
Function Call: WRITE
  • Prompt: "done.",$C(7)
  • Line Location: VPAT+70
Function Call: WRITE
  • Prompt: !!,"*******************************",$S(ERXMMFLG:" WARNING(S) ",1:"INVALID PATIENT"),"*******************************"
  • Line Location: PATWARN+33
Function Call: WRITE
  • Prompt: !,$G(ERXMSG(I))
  • Line Location: PATWARN+35
Function Call: WRITE
  • Prompt: !,"*****************************************************************************"
  • Line Location: PATWARN+36

FileMan Files Accessed Via FileMan Db Call

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