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

Package: Outpatient Pharmacy

Routine: PSOCAN


Information

PSOCAN ;BIR/JMB - Rx discontinue and reinstate ;12/03/18 10:47

Source Information

Source file <PSOCAN.m>

Entry Points

Name Comments DBIA/ICR reference
START
NUM
NO
LMNO
YN
REA ;
CAN
DIV
CHK
RX
ASK
ACT
EXP ;S PSINV($P(^PSRX(DA,0),"^"))=""
EP1
PSD ;Called from Controlled Subs, PSDRX is internal Rx number
  • ICR #2616
    • Status: Active
    • Usage: Controlled Subscription
    PSDREF ;
    TESTRP ;
    ULP ;
    ULRX ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: START+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: NUM+1
    Function Call: WRITE
    • Prompt: " Rx Not Found!",!
    • Line Location: NO+0
    Function Call: WRITE
    • Prompt: !!,"Cannot be Reinstated - Digitally Signed"
    • Line Location: NO+5
    Function Call: WRITE
    • Prompt: !!,"Cannot be Reinstated - dosage contains an invalid Except conjunction",!
    • Line Location: LMNO+7
    Function Call: WRITE
    • Prompt: !?5,$C(7)
    • Line Location: REA+6
    Function Call: WRITE
    • Prompt: !?10,"Rx Cannot Be Discontinued/Reinstated!"
    • Line Location: REA+9
    Function Call: WRITE
    • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(DA,0),"^")," is not a valid choice. (Different Division)"
    • Line Location: DIV+0
    Function Call: WRITE
    • Prompt: !!,?10,VADM(1)_" DIED "_$P($G(VADM(6)),"^",2)
    • Line Location: CHK+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+0
    Function Call: WRITE
    • Prompt: !,$P($G(PSOMSG),"^",2),!,"Order "_$P($G(^PSRX(+PSCAN(RX),0)),"^")_"."
    • Line Location: ASK+7
    Info |  Source |  Entry Points |  Interaction Calls