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 |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSODIR

Package: Outpatient Pharmacy

Routine: PSODIR


Information

PSODIR ;BHAM ISC/SAB - asks data for rx order entry ;Aug 23, 2021@14:07:15

Source Information

Source file <PSODIR.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 11 $$CLKEYWRN^PSOCLUTL  INDICAT^PSODIR  EN^PSOFSIG  (SIG,SSIG)^PSOHELP  DELINS^PSOHELP3  JUMP^PSONEW1  JUMP^PSONEW3  DOSE1^PSOORED5  
JUMP^PSOREF1  JUMP^PSORENW3  $$UPPER^PSOSIG  
VA FileMan 5 EN^DDIOL  ^DIC  $$GET1^DIQ  ^DIR  EN^DIWE  
Pharmacy Data Management 2 INDCATN^PSS50P7  $$DETOX^PSSOPKI  
Kernel 1 ($$DETOX,$$SDEA)^XUSER  

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

Package Total Caller Graph
Outpatient Pharmacy 13 PSOBKDED  PSODIR  PSONEW1  PSONEW3  PSOORED1  PSOOREDT  PSOORNE1  PSOORNE4  
PSOORNE6  PSOORNW2  PSORENW3  PSORENW4  PSOUTIL  

Entry Points

Name Comments DBIA/ICR reference
PROV(PSODIR) ;
PROVEN ; Entry point for failed lookup
NODRUG
PROVX
DRGSCH() ; determine the drug schedule
GENERIC ;
GENERICX
COSIGN ;
COSIGN1
COSIGNX
DOSE(PSODIR) ;add dosing info
EX
INS(PSODIR) ;patient instructions
INSD
SINS(PSODIR) ;other lang. patient instructions
DIR ;
DIRX
JUMP ;
JUMPX
INDICAT(PSODIR) ;*441
INDICAT1 ;
SIND(PSODIR) ;
OIND ;
OINDI1 ;
DELIND

External References

Name Field # of Occurrence
EN^DDIOL INSD+6, SINS+6
^DIC PROVEN+10, COSIGN1+3, JUMP+2
$$GET1^DIQ DRGSCH+2, INDICAT1+19
^DIR DIR+3, INDICAT+16, INDICAT1+4, INDICAT1+20, OIND+15, OINDI1+4, DELIND+5
EN^DIWE INS+7
$$CLKEYWRN^PSOCLUTL PROVEN+27
INDICAT^PSODIR INS+9, INSD+9, SIND+3
EN^PSOFSIG INS+10, INSD+3, INSD+11, SINS+4, SINS+7, SIND+20
SIG^PSOHELP INSD+5
SSIG^PSOHELP SINS+5
DELINS^PSOHELP3 INSD+7, SINS+7
JUMP^PSONEW1 JUMP+4
JUMP^PSONEW3 JUMP+6
DOSE1^PSOORED5 DOSE+2
JUMP^PSOREF1 JUMP+5
JUMP^PSORENW3 JUMP+7
$$UPPER^PSOSIG INDICAT1+15, OINDI1+15
INDCATN^PSS50P7 INDICAT+3
$$DETOX^PSSOPKI PROVEN+25
$$DETOX^XUSER PROVEN+25
$$SDEA^XUSER PROVEN+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider is being edited by "_$P($G(^VA(200,PSOED,0)),"^")
  • Line Location: PROVEN+17
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider is being edited by an unknown user or has been deleted"
  • Line Location: PROVEN+18
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider not authorized to write Federal Schedule "_SDEA_" prescriptions.",!
  • Line Location: PROVEN+22
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must have a DETOX# to order this drug.",!
  • Line Location: PROVEN+25
Function Call: WRITE
  • Prompt: !!,"INDICATION:"
  • Line Location: INDICAT+9
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",!
  • Line Location: INDICAT1+10
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",!
  • Line Location: INDICAT1+12
Function Call: WRITE
  • Prompt: !,PSODIR("IND"),!
  • Line Location: INDICAT1+18
Function Call: WRITE
  • Prompt: $C(7),!!?5,"OTHER INDICATION REQUIRED",!
  • Line Location: SIND+18
Function Call: WRITE
  • Prompt: $C(7),!!?5,"INDICATION REQUIRED",!
  • Line Location: SIND+19
Function Call: WRITE
  • Prompt: !!,"OTHER LANGUAGE INDICATION:"
  • Line Location: OIND+8
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",!
  • Line Location: OINDI1+10
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",!
  • Line Location: OINDI1+12
Function Call: WRITE
  • Prompt: $C(7),!!?5,"ANY DATA ENTERED FOR "_$S($G(PSODELINS)=2:"OTHER INDICATION",1:"INDICATION")
  • Line Location: DELIND+3
Function Call: WRITE
  • Prompt: $C(7),!?5,"WILL ALSO BE DELETED.",!
  • Line Location: DELIND+4
Routine Call
  • DIC
  • Line Location:
    • PROVEN+10
    • COSIGN1+3
    • JUMP+2
Routine Call
  • DIR
  • Line Location:
    • DIR+3
    • INDICAT+16
    • INDICAT1+4
    • INDICAT1+20
    • OIND+15
    • OINDI1+4
    • DELIND+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PSNDF(50.68 - [#50.68] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] INS+13, SINS+3
^PS(52.41 - [#52.41] INS+12
^PS(55 - [#55] INS+9, INSD+9, DELIND+1
^PSDRUG - [#50] DRGSCH+2
^TMP($J INS+6!*, INS+8, INS+10!, INDICAT+4, INDICAT+5, INDICAT+6, OIND+1, OIND+4, OIND+5
^VA(200 - [#200] PROVEN+1, PROVEN+15, PROVEN+16, PROVEN+17, PROVEN+19, NODRUG+4, NODRUG+5, COSIGN+3, COSIGN+4, COSIGN+5
COSIGN1
^XUSEC("YSCL AUTHORIZED" PROVEN+26

Label References

Name Line Occurrences
$$DRGSCH PROVEN+21
COSIGN NODRUG+4, COSIGN1+5
COSIGN1 COSIGN+2
COSIGNX COSIGN1+4
DELIND INDICAT+20, INDICAT1+8, OIND+20, OINDI1+8
DIR GENERIC+3, INSD+2, SINS+4
DIRX DIR+2, DIR+4
EX INS+5, INSD+4, INSD+10, INSD+12, SINS+4, SINS+8
GENERIC NODRUG+3
GENERICX GENERIC+3
INDICAT1 INDICAT+4, INDICAT+18, INDICAT+22, INDICAT1+1
INSD INS+3, INS+11, INS+12, INS+13, INSD+5
JUMP PROVEN+11, DIR+5
JUMPX JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7
NODRUG PROVEN+28
OIND SIND+10
OINDI1 OIND+1, OIND+18, OIND+22, OINDI1+1
PROVEN PROVEN+13, PROVEN+15, PROVEN+21, PROVEN+25, PROVEN+26
PROVX PROVEN+11, PROVEN+12

Naked Globals

Name Field # of Occurrence
^("PS" NODRUG+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHK INDICAT+1~, INDICAT+2*, INDICAT+7*, INDICAT+13, INDICAT+22, OIND+2~, OIND+3*, OIND+6*, OIND+12, OIND+22
>> CLOZPAT PROVEN+21, PROVEN+26
CNT INDICAT+1~, INDICAT+2*, INDICAT+8*, OIND+2~, OIND+3*, OIND+7*
D INS+2*, INS+6*, INS+8*, INS+10!
DA INS+1~, DIR+3!, INDICAT1+1~, OINDI1+1~
DD EX!, INS+2!*, INS+3, INS+5
DEA PROVEN+3~*
DIC PROVEN+1!, PROVEN+5*, PROVEN+10!, GENERIC+1!, COSIGN+1!, COSIGN1*, COSIGN1+3!, INS+7*, DIR+3!, JUMP+2*!
DIC("A" PROVEN+7*, COSIGN1+3*
DIC("B" PROVEN+1*, PROVEN+9*, COSIGN1*
DIC("S" PROVEN+7*, PROVEN+8*, COSIGN1+1*, COSIGN1+2*
DIC("W" PROVEN+6*, COSIGN1+2*
DIC(0 PROVEN+5*, COSIGN1*, JUMP+2*
DIE DIR+3!
DIR GENERIC+1!, EX!, INS+2!, SINS+1!, DIR+3!, INDICAT+1~, INDICAT1+2!, INDICAT1+19~, OINDI1+2!, DELIND+2~
DIR("?" INDICAT+14*, INDICAT+15*, OIND+13*, OIND+14*
DIR("A" INDICAT+11*, INDICAT1+4*, INDICAT1+20*, OIND+10*, OINDI1+4*, DELIND+5*
DIR("B" INS+13*, INS+14*, INSD*, SINS+2*, SINS+3*, INDICAT+13*, INDICAT1+3*, INDICAT1+19*, OIND+12*, OINDI1+3*
DELIND+5*
DIR("L" INDICAT+8*, INDICAT+12*, OIND+7*, OIND+11*
DIR(0 GENERIC+2*, INSD*, SINS+2*, DIR+2, INDICAT+11*, INDICAT1+4*, INDICAT1+20*, OIND+10*, OINDI1+4*, DELIND+5*
DIROUT INSD+9!, DIR+4, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT1+2!, OIND+9!, OINDI1+2!
DIRUT EX!, INS+2!, INSD+9!, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT1+2!, INDICAT1+21, OIND+9!, OINDI1+2!
DELIND+2~, DELIND+6
DOOR EX!
DOSE EX!
DOSEOR EX!
DRUA EX!
DTOUT PROVEN+12, COSIGN1+4, INSD+9!, DIR+4, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT+17, INDICAT1+2!, INDICAT1+5
OIND+9!, OIND+16, OINDI1+2!, OINDI1+5
DUOUT PROVEN+12, COSIGN1+4, INSD+9!, DIR+4, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT+17, INDICAT1+2!, INDICAT1+5
OIND+9!, OIND+16, OINDI1+2!, OINDI1+5
DWLW INS+7*, INS+10!
DWPK INS+7*, INS+10!
ENT EX!
ERTE EX!
I INDICAT+1~, INDICAT+5*, INDICAT+6, INDICAT1+1~, INDICAT1+11*, OIND+2~, OIND+4*, OIND+5, OINDI1+1~, OINDI1+11*
IND INDICAT1+1~, INDICAT1+11*, INDICAT1+13*, INDICAT1+15*, INDICAT1+16, OINDI1+1~, OINDI1+11*, OINDI1+13*, OINDI1+15*, OINDI1+16
INDCAT INDICAT+1~, INDICAT+6*, INDICAT+7, INDICAT+8, OIND+2~, OIND+5*, OIND+6, OIND+7
INDLST INDICAT+1~
INDLST( INDICAT+8*, OIND+7*
INS1 EX!, INS+2!, INSD+6
J INDICAT1+1~, INDICAT1+11*, INDICAT1+12, INDICAT1+13, OINDI1+1~, OINDI1+11*, OINDI1+12, OINDI1+13
KF INDICAT+19~*, INDICAT+20*, INDICAT1+7~*, INDICAT1+8*
ND3 DRGSCH+1~, DRGSCH+2*
NDEA PROVEN+21~*, PROVEN+22
NOUN EX!
>> OR0 PROVEN+1, JUMP+1
>> ORD INS+12
>> PSOCOPY INDICAT+18, INDICAT+19, INDICAT1+7, OIND+19, OINDI1+7
>> PSODELINS INSD+7*, SINS+7*, INDICAT+20*, INDICAT+21, INDICAT1+8*, INDICAT1+9, SIND+1*, SIND+9, OIND+20*, OIND+21
OINDI1+8*, OINDI1+9, DELIND+3, DELIND+7*
>> PSODFN INS+9, INSD+9, DELIND+1
PSODIR PROV~, DOSE~, DOSE+2, INS~, INS+9, INS+10, INSD+3, INSD+9, INSD+11, SINS~
, SINS+4, SINS+7, INDICAT~, SIND~, SIND+3, SIND+20
PSODIR("COSIG NING PROVIDER" , NODRUG+2!, NODRUG+5!, COSIGN+2*, COSIGN+5*, COSIGN1COSIGN1+5*
PSODIR("CS" PROVEN+2, PROVEN+3*, PROVEN+21
PSODIR("DFLG" PROVEN+12*, GENERIC+3, COSIGN1+4*, INSD+1!, INSD+3, INSD+4, INSD+10, SINS+4, DIR+4*, JUMP+1*
, INDICAT+2*, INDICAT+17*, INDICAT1+1, INDICAT1+5*, INDICAT1+21*, SIND+4, SIND+11, OIND+3*, OIND+16*, OINDI1+1
OINDI1+5*
PSODIR("FIELD" PROVEN+5*, GENERIC+3, INSD+4, DIR+1*, JUMP+3*, INDICAT+2*
PSODIR("FLD" INS+13, INSD+7*, SINS+3, SINS+7*, JUMP+3, INDICAT+21*, INDICAT+23*, INDICAT1+6*, INDICAT1+9*, INDICAT1+16*
INDICAT1+22*, INDICAT1+23*, OIND+21*, OIND+23*, OINDI1+6*, OINDI1+9*, OINDI1+16*
PSODIR("GENER IC PROVIDER" , NODRUG+2!, GENERIC+1!, GENERIC+4*
PSODIR("IND" INDICAT+7, INDICAT+13, INDICAT+18, INDICAT+19!, INDICAT+21!, INDICAT+22*, INDICAT+23*, INDICAT1+3, INDICAT1+6!, INDICAT1+7!
INDICAT1+9!, INDICAT1+15*, INDICAT1+17, INDICAT1+18, SIND+5, SIND+6, SIND+7*, SIND+8, SIND+12, SIND+13
, SIND+14*, SIND+15, SIND+16, SIND+17, SIND+18, SIND+19, OIND+21!, OINDI1+7!, OINDI1+9!
PSODIR("INDF" INDICAT+19!, INDICAT+21!, INDICAT1+7!, INDICAT1+9!, INDICAT1+22*, INDICAT1+23*, OIND+21!, OINDI1+7!, OINDI1+9!
PSODIR("INDO" INDICAT+19!, INDICAT+21!, INDICAT1+7!, INDICAT1+9!, SIND+5, SIND+6, SIND+7, SIND+8*, SIND+12, SIND+13
, SIND+14, SIND+15*, SIND+16, SIND+17, SIND+18, SIND+19, OIND+6, OIND+12, OIND+18, OIND+21!
OIND+22*, OIND+23*, OINDI1+3, OINDI1+6!, OINDI1+7!, OINDI1+9!, OINDI1+15*
PSODIR("INS" INS+3*, INS+13, INSDINSD+3*, INSD+5*, INSD+7!, SINS+4*, SINS+7!
PSODIR("OLD V AL" , PROVEN+4*, NODRUG+2, NODRUG+3
PSODIR("PROVI DER NAME" , NODRUG+1*
PSODIR("PROVIDER" PROVEN+4, NODRUG*, NODRUG+3, NODRUG+4, NODRUG+5, COSIGN+3, COSIGN+5, COSIGN1
PSODIR("SIG" INS+2, INS+3, INS+6, INS+7!, INS+8*, INS+14, INSD+3*, INSD+6*, INSD+7!, SINS+4*
, SINS+7!
PSODIR("SINS" INSD+3*, INSD+7!, SINS+2, SINS+3, SINS+4*, SINS+5*, SINS+6*, SINS+7!
>> PSODONE SIND+1*, SIND+2, SIND+4*, SIND+11*, SIND+16*, SIND+17*, DELIND+7*
PSODOSE EX!
PSODOSNW DOSE+1~*
>> PSODRUG("DEA" PROVEN+2, PROVEN+3, DRGSCH+3, DRGSCH+4, DRGSCH+5
>> PSODRUG("IEN" PROVEN+25, PROVEN+28, DRGSCH+2
>> PSODRUG("OI" INS+13, SINS+3, INDICAT+3
PSOED PROVEN+16~*, PROVEN+17
>> PSOEDIT PROVEN+11, INSD+10, DIR+5, JUMP+1, INDICAT+18, INDICAT+19, INDICAT+23, INDICAT1+7, INDICAT1+16, INDICAT1+22
INDICAT1+23, OIND+17, OIND+18, OIND+19, OIND+23, OINDI1+7, OINDI1+16
>> PSOFDR PROVEN+1, INS+12, INDICAT+18, INDICAT+19, INDICAT1+7, OIND+19
>> PSOFROM PROVEN+8
>> PSOINSFL INS+11
>> PSONEW1 JUMP+4
>> PSONEW3 JUMP+6
>> PSOOEINS INS+13*, INS+14*, INSD+3, SINS+3, SINS+4
>> PSOOSINS INSD+3, SINS+3*, SINS+4
>> PSOREF1 JUMP+5
>> PSORENW("DRUG IEN" , PROVEN+28
>> PSORENW3 JUMP+7
PSORTE EX!
>> PSORX("PROVID ER NAME" , PROVEN+9, NODRUG+1*
PSOSCH EX!
>> PSOTPBFG PROVEN+8
PSOX DIRX!
PSOZ INDICAT1+19~*
RTE EX!
>> RX3 COSIGN+2, COSIGN+3, COSIGN+4, COSIGN+5
SCH DRGSCH+1~, DRGSCH+2*, DRGSCH+3, EX!
SDEA PROVEN+21~*, PROVEN+22
SEL INDICAT+1~, INDICAT+5*, INDICAT+8*, INDICAT+11, OIND+2~, OIND+4*, OIND+7*, OIND+10
>> SIG(0 INSD+11
>> SIGOK INSD+11*
SINS1 EX!, SINS+1!, SINS+6
>> SPEED PROVEN+13, PROVEN+14
U PROVEN+11, DIR+5
VERB EX!
X PROVEN+1!, PROVEN+11, PROVX!, GENERICX!, COSIGNX!, EX!, INSD+5, INSD+7, SINS+5, SINS+7
DIR+4, DIR+5, JUMP+2*, JUMPX*, INDICAT+18, INDICAT+19, INDICAT1+1, INDICAT1+2!, INDICAT1+6, INDICAT1+7
INDICAT1+10, INDICAT1+11, INDICAT1+12!, OIND+17, OIND+18, OIND+19, OINDI1+1, OINDI1+2!, OINDI1+6, OINDI1+7
OINDI1+10, OINDI1+11, OINDI1+12!, DELIND+2~
Y PROVEN+1!, PROVEN+13, PROVEN+14, PROVEN+15, PROVEN+16, PROVEN+19, PROVEN+21, PROVEN+25, PROVEN+26, NODRUG
NODRUG+1, NODRUG+2, NODRUG+3, PROVX!, GENERIC+4, GENERICX!, COSIGN1+5, COSIGNX!, EX!, INSD+5
, SINS+5, JUMP+3, INDICAT+4*, INDICAT+18*, INDICAT+22, INDICAT+23, INDICAT1+1, INDICAT1+2!, INDICAT1+10*, INDICAT1+11*
INDICAT1+14, INDICAT1+22, INDICAT1+23, OIND+1*, OIND+18*, OIND+22, OIND+23, OINDI1+1, OINDI1+2!, OINDI1+10*
OINDI1+11*, OINDI1+14, DELIND+2~, DELIND+6*, DELIND+7
Y(0 INDICAT+23, OIND+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All