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

Package: Outpatient Pharmacy

Routine: PSOERXD2


Information

PSOERXD2 ;ALB/BWF - eRx Drug edit actions ; Jan 06, 2023@08:14:59

Source Information

Source file <PSOERXD2.m>

Entry Points

Name Comments DBIA/ICR reference
SBN ;
VDRG1(PSOIEN,PSOIENS) ;
VDRG2(PSOIEN,PSOIENS) ;
COMPLEX ; This line tag is used for Complex Doses (Loop back here from below)
VER ;
DUPD ;
NOU1 ;
NOU ;
RTE ;
SCH ;
DUR
CON
EX ;
KV
EXQ ;
MP1 ;
JUMP ;jump to fields
VDRG3(PSOIEN,PSOIENS) ;
VDRG4(PSOIEN,PSOIENS) ;
VDRG5(PSOIEN,PSOIENS) ;
VDRG6(PSOIEN,PSOIENS) ;
VDRG7(PSOIEN,PSOIENS) ;
VDRG8(PSOIEN,PSOIENS) ;
VDRG9(PSOIEN,PSOIENS) ;
VDRG10(PSOIEN,PSOIENS) ;
VDRG11(PSOIEN,PSOIENS) ;
DERX1(PSOIEN,PSOIENS,DFLG) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SBN+5
Function Call: WRITE
  • Prompt: !,"Current Vista Drug: "_$$GET1^DIQ(50,VAODRG,.01,"E")_" "_$P($$VADRSCH^PSOERXUT(VAODRG),"^",3)_$S($P(^PSDRUG(VAODRG,0),"^",9):"***(N/F)***",1:"")
  • Line Location: VDRG1+9
Function Call: WRITE
  • Prompt: !,"*********************************",$S($P(ERXMSG,"^",2)="W":" WARNING(S) ",1:"INVALID DRUG"),"***********************************"
  • Line Location: VDRG1+18
Function Call: WRITE
  • Prompt: !,$P(ERXMSG(I),"^")
  • Line Location: VDRG1+19
Function Call: WRITE
  • Prompt: !,"********************************************************************************",$C(7)
  • Line Location: VDRG1+20
Function Call: WRITE
  • Prompt: !!,"You have selected: "_$P(Y,U,2)_$S($P(^PSDRUG(+Y,0),"^",9):" ***(N/F)***",1:""),!,"Would you like to use this drug/supply?"
  • Line Location: VDRG1+23
Function Call: WRITE
  • Prompt: !,"Dispense Units Per Dose is Required!!",!
  • Line Location: DUPD+8
Function Call: WRITE
  • Prompt: !,"Dosage Ordered: "_$S($E(PSORXED("DOSE",ENT),1)=".":"0",1:"")_PSORXED("DOSE",ENT)_UNITN,!
  • Line Location: DUPD+10
Function Call: WRITE
  • Prompt: " ("_SCHEX_")"
  • Line Location: SCH+10
Function Call: WRITE
  • Prompt: !,?10,"Invalid Entry - nothing to delete!!"
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !!,"Duration is required for the dosage entered prior to the THEN conjunction.",$C(7),!
  • Line Location: CON+6
Function Call: WRITE
  • Prompt: !,"Dosage is required. Please re-enter the dosing instructions."
  • Line Location: CON+11
Function Call: WRITE
  • Prompt: !,"Field Name Must Be At Least 3 Characters in Length",!
  • Line Location: JUMP+1
Function Call: WRITE
  • Prompt: !,"INVALID FIELD NAME. PLEASE TRY AGAIN!",!
  • Line Location: JUMP+3
Function Call: WRITE
  • Prompt: !,AR_". "_$P(FLDNM,"^",2)_": "_$S(NM="ROU"&($G(PSORXED($P(FLDNM,"^"),AR))):$P(^PS(51.2,PSORXED($P(FLDNM,"^"),AR),0),"^"),1:$G(PSORXED($P(FLDNM,"^"),AR)))
  • Line Location: JUMP+4
Function Call: WRITE
  • Prompt: !,INS1
  • Line Location: VDRG3+16
Function Call: WRITE
  • Prompt: !,USERCOMM
  • Line Location: VDRG4+11
Function Call: WRITE
  • Prompt: !!,"Patient has not been validated, cannot edit patient status",!
  • Line Location: VDRG5+3
Function Call: WRITE
  • Prompt: !,"eRx Days Supply: "_ERXDS
  • Line Location: VDRG7+4
Function Call: WRITE
  • Prompt: !,"eRx Refills: "_ERXRFLS
  • Line Location: VDRG8+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DERX1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls,  GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(50.7 - [#50.7] GET1^DIQ
^PS(52.49 - [#52.49] Classic Fileman Calls,  GET1^DIQ
52.4921 GET1^DIQ
^PS(55 - [#55] 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