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

Package: Outpatient Pharmacy

Routine: PSONEW2


Information

PSONEW2 ;BIR/DSD - displays new rx information for edit ;Jun 09, 2021@15:21:03

Source Information

Source file <PSONEW2.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
END
STOP ; Checks whether the Fill Date is past the Expiration Date
DISPLAY ;
TRN ;I $G(PSOPRC) F I=0:0 S I=$O(PRC(I)) Q:'I W !,PRC(I)
ASK ;
ASK1
ASKX
DCORD ;dc rxs and pending orders after new order is entered
PEN ;pending ^tmp("psorxdc",$j,rord,0)="p^"_rord_"^"_msg
PENX
RX52 ;rxs in file 52 ^tmp("psorxdc",$j,rord,0)=52^rord^msg^rea^act^sta^dnm
RX52X
EDIT ;
EOJ ;
EN1(PSONEW2) ; Entry point to just display and ask if okay
  • ICR #1968
    • Status: Active
    • Usage: Private
    EN1X ;
    EXPR ;Display Expired error message ;PSO*237

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+8
    Function Call: WRITE
    • Prompt: !!,"Rx # ",PSONEW("RX #")
    • Line Location: DISPLAY+2
    Function Call: WRITE
    • Prompt: ?23,"Active/Parked"
    • Line Location: DISPLAY+3
    Function Call: WRITE
    • Prompt: ?23,$E(PSONEW("FILL DATE"),4,5),"/",$E(PSONEW("FILL DATE"),6,7),"/",$E(PSONEW("FILL DATE"),2,3)
    • Line Location: DISPLAY+4
    Function Call: WRITE
    • Prompt: !,$G(PSORX("NAME")),?30,"#",PSONEW("QTY")
    • Line Location: DISPLAY+5
    Function Call: WRITE
    • Prompt: !,$G(INS1)
    • Line Location: DISPLAY+8
    Function Call: WRITE
    • Prompt: !,PRC(I)
    • Line Location: TRN+0
    Function Call: WRITE
    • Prompt: !!,$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:PSODRUG("NAME"))
    • Line Location: TRN+1
    Function Call: WRITE
    • Prompt: !,PSONEW("PROVIDER NAME"),?25,PSORX("CLERK CODE"),!,"# of Refills: ",PSONEW("# OF REFILLS"),!
    • Line Location: TRN+2
    Function Call: WRITE
    • Prompt: !!,$C(7),Y_" fill date is greater than possible expiration date of "
    • Line Location: ASK1+3
    Function Call: WRITE
    • Prompt: Y_"."
    • Line Location: ASK1+3
    Function Call: WRITE
    • Prompt: $C(7),!
    • Line Location: PEN+6
    Function Call: WRITE
    • Prompt: !,^UTILITY($J,"W",1,ZX,0)
    • Line Location: PEN+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: PENX+0
    Function Call: WRITE
    • Prompt: $C(7),!
    • Line Location: RX52+5
    Function Call: WRITE
    • Prompt: !,^UTILITY($J,"W",1,ZX,0)
    • Line Location: RX52+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: RX52X+0
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: EXPR+2
    Info |  Source |  Entry Points |  Interaction Calls