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
Print Page as PDF
Routine: PSSDIUTL

Package: Pharmacy Data Management

Routine: PSSDIUTL


Information

PSSDIUTL ;HP/MJE - Drug Interaction Utility ;09/22/11 5:00pm

Source Information

Source file <PSSDIUTL.m>

Entry Points

Name Comments DBIA/ICR reference
CHKFDB ;ping FDB
  • ICR #5737
    • Status: Active
    • Usage: Controlled Subscription
    SELECT ;
    SELECTX
    GCN(PSSIENID) ;Return 0 for not matched, 1 for matched with no GCNSEQNO, 1^1 for matched with a GCNSEQNO
    PKGFLG(PKF2) ;
    TRADE ;
    TRADEX
    FDBCALL
    RMON
    EXIT ;
    PROC ;
  • ICR #5737
    • Status: Active
    • Usage: Controlled Subscription
    DGCKTHER
    DGCKMON
    THER ;
    DUP ;
    MON ;
    OUT ;print monograph
    BLD ;
    ONEMONO
    NEWPG ;new page form feed
    FORMAT ; WATCH OUT WITH CHANGES HERE!!!
    PROF ;
    CON

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CHKFDB+12
    Function Call: READ
    • Variable: X
    • Timeout: $S($D(DTIME):DTIME,1:300)
    • Line Location: SELECT+4
    Function Call: WRITE
    • Prompt: !!,"Now Processing Enhanced Order Checks! Please wait...",!
    • Line Location: SELECT+6
    Function Call: WRITE
    • Prompt: !!,"A minimum of 2 Drugs are required!",!
    • Line Location: SELECT+7
    Function Call: WRITE
    • Prompt: !!,"Answer with DRUG NUMBER, or GENERIC NAME, or VA PRODUCT NAME, or",!,"NATIONAL DRUG CLASS, or SYNONYM"
    • Line Location: SELECT+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: SELECT+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: SELECT+10
    Function Call: WRITE
    • Prompt: !!,"You have selected a duplicate drug please enter a different drug.."
    • Line Location: SELECT+23
    Function Call: WRITE
    • Prompt: !
    • Line Location: SELECT+23
    Function Call: WRITE
    • Prompt: !,"No drug interactions or therapeutic duplication occurred."
    • Line Location: FDBCALL+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: FDBCALL+12
    Function Call: WRITE
    • Prompt: !,"Error: "_$P(^TMP($J,"PSOPEPS","OUT",0),"^",2),!
    • Line Location: FDBCALL+13
    Function Call: WRITE
    • Prompt: !,PSONULN2
    • Line Location: FDBCALL+15
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: FDBCALL+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: RMON+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PROC+2
    Function Call: WRITE
    • Prompt: !,"No Order Check Warnings Found",!
    • Line Location: PROC+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PROC+3
    Function Call: WRITE
    • Prompt: !,"*** DRUG INTERACTION(S) ***",!,PSONULN2,!
    • Line Location: PROC+5
    Function Call: WRITE
    • Prompt: !,PSONULN2
    • Line Location: PROC+9
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DGCKTHER+0
    Function Call: WRITE
    • Prompt: PSONULN2,!,"*** THERAPEUTIC DUPLICATION(S) ***",!
    • Line Location: DGCKTHER+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: DGCKTHER+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DGCKTHER+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: DGCKMON+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: THER+9
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: THER+47
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DUP+3
    Function Call: WRITE
    • Prompt: "***"_SEV_"*** Drug Interaction with ",!,DRGN_" and"
    • Line Location: DUP+13
    Function Call: WRITE
    • Prompt: !,PDRGN,!!
    • Condition for execution: SEV="Critical"
    • Line Location: DUP+13
    Function Call: WRITE
    • Prompt: !,PDRGN,!!
    • Condition for execution: SEV="Significant"
    • Line Location: DUP+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: MON+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: MON+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: MON+5
    Function Call: WRITE
    • Prompt: !,"NOTHING PRINTED"
    • Line Location: MON+6
    Function Call: WRITE
    • Prompt: !,"Monograph Queued to Print!",!
    • Line Location: MON+10
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: BLD+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: BLD+13
    Function Call: WRITE
    • Prompt: @IOF,$S($G(MONT)=2:"Consumer",1:"Professional")_" Monograph",!!,"Drug Interaction with ",!,DRG_" and "_PDRG,!!
    • Line Location: NEWPG+4
    Function Call: WRITE
    • Prompt: ?5,TEXTSTR,!
    • Line Location: FORMAT+3
    Function Call: WRITE
    • Prompt: ?5,BSIG(XX),!
    • Line Location: FORMAT+12
    Function Call: WRITE
    • Prompt: @IOF,!,PSONULN,!,"Professional Monograph",!!,"Drug Interaction with ",!,DRG_" and "_PDRG,!!
    • Line Location: PROF+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: PROF+6
    Function Call: WRITE
    • Prompt: @IOF,!,PSONULN,!,"Consumer Monograph",!!,"Drug Interaction with ",!,DRG_" and "_PDRG,!
    • Line Location: PROF+10
    Function Call: WRITE
    • Prompt: !,PSONULN,!
    • Line Location: PROF+14
    Function Call: WRITE
    • Prompt: @IOF,!,"Consumer Monograph",!,PSONULN,!!,"Drug Interaction with ",!,DRG_" and "_PDRG,!!
    • Line Location: CON+1
    Function Call: WRITE
    • Prompt: !,PSONULN,!
    • Line Location: CON+5
    Info |  Source |  Entry Points |  Interaction Calls