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

Package: Outpatient Pharmacy

Routine: PSODRG


Information

PSODRG ;IHS/DSD/JCM - ORDER ENTRY DRUG SELECTION ;10/23/18 8:47am

Source Information

Source file <PSODRG.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
END ;D EOJ
SELECT ;
SELECTX
NDC(RX,RFL,DRG,NDC) ; Editing NDC for Released Rx's or for Unresolved ECME Rejects
TRADE ;
TRADEX
SET ;
SETX
NFI ;display restriction/guidelines
POST ;order checks
POSTX ;
EOJ ;
WAIT ;
CLOZ ;
EN(DRG) ;returns lab test identified for clozapine order checking
  • ICR #3478
    • Status: Active
    • Usage: Private
    NOALRGY ;
    WRAPTEXT(TEXT,LIMIT,CSPACES) ;Wrap text util copied in from a PSO routine originally *524

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+6
    Function Call: READ
    • Variable: X
    • Timeout: $S($D(DTIME):DTIME,1:300)
    • Line Location: SELECT+4
    Function Call: WRITE
    • Prompt: !!,"Answer with DRUG NUMBER, or GENERIC NAME, or VA PRODUCT NAME, or",!,"NATIONAL DRUG CLASS, or SYNONYM"
    • Line Location: SELECT+7
    Function Call: WRITE
    • Prompt: #,$C(7),LL,!
    • Line Location: POST+7
    Function Call: WRITE
    • Prompt: $J("***** WARNING *****",47)
    • Line Location: POST+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: POST+9
    Function Call: WRITE
    • Prompt: LL,!
    • Line Location: POST+10
    Function Call: WRITE
    • Prompt: !,"Now doing allergy checks. Please wait...",!
    • Line Location: POST+31
    Function Call: WRITE
    • Prompt: !!,"***Dangerous Meds for Patient >64***",!!
    • Line Location: POST+57
    Function Call: WRITE
    • Prompt: !
    • Line Location: POST+81
    Function Call: WRITE
    • Prompt: !
    • Line Location: WAIT+1
    Function Call: WRITE
    • Prompt: $C(7),!,"There is no allergy assessment on file for this patient."
    • Line Location: NOALRGY+10
    Function Call: WRITE
    • Prompt: !,"You will be prompted to intervene if you continue with this prescription"
    • Line Location: NOALRGY+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: NOALRGY+12
    Function Call: WRITE
    • Prompt: !,$$REPEAT^XLFSTR(" ",CSPACES)
    • Line Location: WRAPTEXT+8
    Function Call: WRITE
    • Prompt: !,$$REPEAT^XLFSTR(" ",CSPACES)
    • Line Location: WRAPTEXT+13
    Function Call: WRITE
    • Prompt: NEXTWORD_" "
    • Line Location: WRAPTEXT+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    50.02 LIST^DIC
    ^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call