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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 10 CAN^PSOCAN  COPAY^PSOCPB  HD3^PSODOSUN  SIGONE^PSOHELP  EN^PSOHLSN  (SC,SHAD)^PSOMLLD2  ($$DT,CV,HNC,MST,PGW,RAD,VEH)^PSOMLLDT  ^PSONEW3  
EN^PSOORNE1  SCP^PSORN52D  
VA FileMan 3 ^%DT  ^DIR  ^DIWP  
Pharmacy Data Management 2 $$DS^PSSDSAPI  PSOUL^PSSLOCK  
Kernel 1 ($$FMADD,$$FMDIFF)^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  

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 12 PSOCAN  PSOCAN1  PSONEW  PSOORCPY  PSOORED6  PSOORNE1  PSOORNE6  PSOORNEW  
PSORENW0  PSORENW4  PSORXED1  PSOVER1  
CMOP 1 PSXEDIT  

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

    External References

    Name Field # of Occurrence
    ^%DT STOP+2
    ^DIR ASK+2
    ^DIWP PEN+8, RX52+6
    CAN^PSOCAN RX52+3
    COPAY^PSOCPB START+8
    HD3^PSODOSUN DISPLAY+1, DISPLAY+7, DISPLAY+8, TRN+2
    SIGONE^PSOHELP DISPLAY+8
    EN^PSOHLSN PEN+5
    SC^PSOMLLD2 START+9
    SHAD^PSOMLLD2 START+18
    $$DT^PSOMLLDT START+12
    CV^PSOMLLDT START+14
    HNC^PSOMLLDT START+20
    MST^PSOMLLDT START+19
    PGW^PSOMLLDT START+17
    RAD^PSOMLLDT START+16
    VEH^PSOMLLDT START+15
    ^PSONEW3 EDIT+2
    EN^PSOORNE1 START+23
    SCP^PSORN52D START+5
    $$DS^PSSDSAPI DISPLAY+1, DISPLAY+7, DISPLAY+8, TRN+2
    PSOUL^PSSLOCK PEN+1, PENX+1, RX52X+2
    FULL^VALM1 START+23
    PAUSE^VALM1 ASKX+3
    $$FMADD^XLFDT STOP+4
    $$FMDIFF^XLFDT STOP+3

    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+7
    Function Call: WRITE
    • Prompt: !,^UTILITY($J,"W",1,ZX,0)
    • Line Location: PEN+9
    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
    Routine Call
    • DIR
    • Line Location:
      • ASK+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" ASK1+3
    ^DPT - [#2] EN1+4
    ^PS(50.606 - [#50.606] PEN+4
    ^PS(50.7 - [#50.7] PEN+4
    ^PS(52.41 - [#52.41] PEN+1, PEN+2*, PEN+3!, PEN+5
    ^PS(53 - [#53] START+8, START+9
    ^PSDRUG - [#50] PEN+4, EN1+5
    ^PSRX - [#52] RX52+1, RX52+6, EN1+2, EN1+3, EN1+8
    ^TMP("PSORXDC" ASK1+4!, DCORD+1!, DCORD+2, PEN+1!, PEN+2, PEN+5, PEN+8, PENX+1!, RX52+1, RX52+2
    , RX52+6, RX52X+1, RX52X+2!
    ^UTILITY($J PEN+7!, PEN+9, PENX!, RX52+5!, RX52+7, RX52X!
    ^VA(200 - [#200] EN1+6, EN1+7
    ^XUSEC("PSORPH" PEN+6, RX52+4

    Label References

    Name Line Occurrences
    @( DCORD+2
    ASK START+22, EN1+10
    ASKX START+10, START+12, ASK+2
    DCORD ASK1+4
    DISPLAY START+3, EN1+9
    EN1X EN1+2
    END START+10, START+12, START+22, START+23
    EOJ END
    PENX PEN+6
    RX52X RX52+4
    START START+24
    STOP START+2
    TRN DISPLAY+6

    Naked Globals

    Name Field # of Occurrence
    ^("TN" EN1+3
    ^(0 RX52+2
    ^(2 EN1+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> ACT RX52+2*
    >> BINGCRT ASK1+1*
    >> BINGRTE ASK1+1*
    D DISPLAY+6!, DISPLAY+7*
    >> DA RX52+3*
    DIR ASK+1!, ASK+2!
    DIR("A" ASK+1*
    DIR("B" ASK+2*
    DIR(0 ASK+2*
    DIRUT START+10*, START+12*, ASK+2, ASKX, ASKX+1!, ASKX+2!
    DIWF PEN+7*, PENX!, RX52+5*, RX52X!
    DIWL PEN+7*, PENX!, RX52+5*, RX52X!
    DIWR PEN+7*, PENX!, RX52+5*, RX52X!
    DNM PEN+2~, PEN+4*, PEN+8
    DT STOP+2
    DTOUT ASKX+2!
    DUOUT ASKX+2!
    >> DUP RX52+3*
    DUZ PEN+6, RX52+4
    DUZ("AG" START+8
    >> INS1 DISPLAY+8
    ISSDT STOP+1~, STOP+2*, STOP+3, STOP+4
    >> MSG RX52+2*
    >> PSCAN( RX52+1*
    PSEXDT STOP+1!, STOP+4*, ASK1+2, ASK1+3, ASKX+1, ASKX+3
    PSOANSQ START+6!, START+12!, START+22!, START+23!
    PSOANSQ("CV" START+14
    PSOANSQ("HNC" START+20
    PSOANSQ("MST" START+19
    PSOANSQ("PGW" START+17
    PSOANSQ("RAD" START+16
    PSOANSQ("SHAD" START+18
    PSOANSQ("VEH" START+15
    PSOANSQD START+6!, START+10!, START+12!
    >> PSOBILL START+9
    >> PSOCPZ("DFLG" START+6*, START+10!, START+12!, START+14, START+15, START+16, START+17, START+18, START+19, START+20
    , START+21!
    >> PSODFN START+14, START+15, START+16, START+17, START+18, START+19, START+20, PEN+3
    >> PSODRUG("NAME" TRN+1, EN1+5*
    >> PSODRUG("TRAD E NAME" , TRN+1
    PSOEDIT EOJ+1!
    >> PSOFLAG START+6*
    >> PSOFOERR DISPLAY+1, DISPLAY+7, DISPLAY+8, TRN+2
    >> PSOFROM DCORD+3*
    >> PSOIBQS( START+14, START+15, START+16, START+17, START+18, START+19, START+20
    >> PSON52("QFLG" STOP+1*
    >> PSONEW START+23
    >> PSONEW("# OF REFILLS" , TRN+2, EN1+5*
    >> PSONEW("CS" STOP+3, STOP+4
    >> PSONEW("DFLG" START+1*, START+10*, START+12*, START+22, START+23*, START+24, START+25*, ASK+2*, ASKX+1*, EDIT+3*
    , EN1+1*, EN1+2*, EN1+11, EXPR+1*
    >> PSONEW("FILL DATE" , STOP+3, DISPLAY+4, ASK1+3, EN1+3*
    >> PSONEW("ISSUE DATE" , STOP+2
    >> PSONEW("MAIL/WINDOW" DISPLAY+3, DISPLAY+4, ASK1+1
    >> PSONEW("NEWCOPAY" START+6*, START+10!, START+12!, START+14!, START+15!, START+16!, START+17!, START+18!, START+19!, START+20!
    >> PSONEW("PATIE NT STATUS" , START+8, START+9
    >> PSONEW("PROVI DER NAME" , TRN+2, EN1+7*
    >> PSONEW("QFLG" START+25*
    >> PSONEW("QTY" DISPLAY+5, EN1+5*
    >> PSONEW("RX #" , DISPLAY+2, EN1+4*
    >> PSONEW("SIG" DISPLAY+8, EN1+8*
    >> PSONEW("TRADE NAME" , EN1+3*
    PSONEW2 EOJ+1!, EN1~
    PSONEW2("DFLG" ASKX+1*, EN1+11*
    PSONEW2("IRXN" EN1+2, EN1+3, EN1+8
    PSONEW2("QFLG" START+1*, START+22, ASK1*, ASKX+1*
    PSONEWFF START+6*, START+10!, START+12!, START+21!
    PSONOOR RX52+3~*!
    PSOR PEN+2~*, PEN+4
    >> PSORX("CLERK CODE" , TRN+2, EN1+6*
    >> PSORX("DFLG" DCORD+1, EDIT+3, EOJ+1!
    >> PSORX("EDIT" START+23*, EDIT+1*, EOJ+1!
    >> PSORX("FN" START+23, DCORD+3
    >> PSORX("NAME" DISPLAY+5, EN1+4*
    PSOSCA START+9, EOJ+1!
    >> PSOSCP START+8, START+9
    >> PSOSD( RX52X+1!
    PSOTECCK DCORD+4!, PEN+6, RX52+4
    >> PSOX EN1+3*, EN1+4, EN1+5, EN1+6, EN1+7
    >> REA RX52+2*
    RORD ASK1+4!, DCORD+2*, DCORD+4!, PEN+1, PEN+2, PEN+3, PEN+5, PEN+8, PENX+1, RX52+1
    , RX52+2, RX52+3, RX52+6, RX52X+1, RX52X+2
    >> SIG( DISPLAY+7
    >> SIG(0 DISPLAY+6
    >> SIGOK DISPLAY+6
    >> VALMBCK DCORD+3*
    >> VALMSG EXPR+3*
    X STOP+1~, STOP+2*, DISPLAY+8*, ASK+1!, ASKX+2!, PEN+8*, PENX!, RX52+6*, RX52X!
    >> XQORM("B" EXPR+4*
    Y STOP+2, ASK+1!, ASK1, ASK1+1, ASK1+3*, ASKX+1*, ASKX+2!
    >> ZX PEN+9*, RX52+7*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All