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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSORX1

Package: Outpatient Pharmacy

Routine: PSORX1


Information

PSORX1 ;BIR/SAB-medication processing driver ;8/17/16 5:10pm

Source Information

Source file <PSORX1.m>

Call Graph

Call Graph Total: 33

Package Total Call Graph
Outpatient Pharmacy 18 CHKADDR^PSOBAI  ^PSOBING1  ^PSOBUILD  HD^PSODDPR2  GMRA^PSODEM  EN^PSOHLUP  EN^PSOLMAO  EN^PSOLMUTL  
^PSOLSET  DC^PSOORFI2  BLD^PSOORUT1  (,ALLERGY)^PSOORUT2  EN^PSOPATLK  DEAD^PSOPTPST  RDICHK^PSORMRX  REMOTERX^PSORRX1  
^PSORXL  (BBADD,WIND)^PSOSUPOE  
VA FileMan 8 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  (,EN)^DIK  $$GET1^DIQ  EN^DIQ1  ^DIR  
Registration 3 DISPPRF^DGPFAPI  (ELIG,KVA)^VADPT  TFL^VAFCTFU1  
Kernel 1 ENDR^%ZISS  
List Manager 1 (CLEAR,FULL)^VALM1  
Order Entry Results Reporting 1 ($$HAVEHDR,HAVEHDR)^ORRDI1  
Pharmacy Benefits Management 1 LOGDFN^PSUHL  

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

Package Total Caller Graph
Outpatient Pharmacy 12 PSO LM BACKDOOR ORDERS  PSOBBC  PSODDPR4  PSODGDGI  PSOMPHRC  PSOORFI2  PSOORFI3  PSOORFI5  
PSOORFIN  PSOORRDI  PSOPRI  PSOVER1  
Kernel 1 ^DIC(19  
Vendor - Audiofax Inc 1 VEXRX  

Entry Points

Name Comments DBIA/ICR reference
START
NX
END
INIT ;
INITX
PT ;
OERR
PTX ;
EOJ ;
ELIG ; shows eligibility and disabilities
PROFILE ;
  • ICR #2260
    • Status: Active
    • Usage: Controlled Subscription
    PROFILEX
    MAIL ; MAKE SURE MAIL STATUS IS COMPATIBLE WITH SCRIPTALK PATIENT
    MAILP
    REMOTE ;
    PAUSE ;
    RXSTA ; DISPLAY ELIGIBILITY & PROMPT FOR RX PATIENT STATUS

    External References

    Name Field # of Occurrence
    NOW^%DTC OERR+41, OERR+73
    ENDR^%ZISS OERR+7
    DISPPRF^DGPFAPI OERR+37
    ^DIC OERR+57, RXSTA+7
    FILE^DICN OERR+46
    ^DIE OERR+53, RXSTA+8
    ^DIK OERR+60
    EN^DIK OERR+47
    $$GET1^DIQ OERR+25
    EN^DIQ1 OERR+1
    ^DIR OERR+28, PAUSE+1
    $$HAVEHDR^ORRDI1 REMOTE+2
    HAVEHDR^ORRDI1 REMOTE+1
    CHKADDR^PSOBAI OERR+36
    ^PSOBING1 START+11
    ^PSOBUILD OERR+64, PROFILE+1
    HD^PSODDPR2 REMOTE+3, REMOTE+4
    GMRA^PSODEM PROFILE+2
    EN^PSOHLUP OERR+49
    EN^PSOLMAO OERR+69
    EN^PSOLMUTL OERR+68
    ^PSOLSET INIT+2
    DC^PSOORFI2 OERR+66
    BLD^PSOORUT1 OERR+68
    ^PSOORUT2 OERR+68
    ALLERGY^PSOORUT2 OERR+9
    EN^PSOPATLK PT+2
    DEAD^PSOPTPST OERR+2
    RDICHK^PSORMRX OERR+43
    REMOTERX^PSORRX1 OERR+32
    ^PSORXL START+8
    BBADD^PSOSUPOE START+7
    WIND^PSOSUPOE START+7
    LOGDFN^PSUHL OERR+74
    ELIG^VADPT ELIG+1, RXSTA+5
    KVA^VADPT EOJ+4
    TFL^VAFCTFU1 OERR+15
    CLEAR^VALM1 OERR+69
    FULL^VALM1 START+3, EOJ+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!?10,$C(7),PSORX("NAME")
    • Line Location: OERR+4
    Function Call: WRITE
    • Prompt: " ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")"
    • Line Location: OERR+5
    Function Call: WRITE
    • Prompt: !,$C(7)," No Allergy Assessment!"
    • Line Location: OERR+10
    Function Call: WRITE
    • Prompt: !?10,"Patient has another language preference!",!
    • Line Location: OERR+39
    Function Call: WRITE
    • Prompt: !,"Patient is enrolled to receive ScripTalk 'talking' prescription labels.",!
    • Line Location: OERR+40
    Function Call: WRITE
    • Prompt: $C(7),!!,"Patient Data is Being Edited by Another User!",!
    • Line Location: OERR+51
    Function Call: WRITE
    • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")",!
    • Line Location: OERR+52
    Function Call: WRITE
    • Prompt: !!,?5,">>PHARMACY PATIENT DATA<<",!
    • Line Location: OERR+53
    Function Call: WRITE
    • Prompt: !,?10,$P(VAEL(1,N),"^",2)
    • Line Location: ELIG+1
    Function Call: WRITE
    • Prompt: !!,"REMINDER: CMOP does not fill ScripTalk prescriptions. Please select mail"
    • Line Location: MAILP+0
    Function Call: WRITE
    • Prompt: !,"status: 2 (DO NOT MAIL), 3 (LOCAL REGULAR MAIL) or 4 (LOCAL CERTFIED MAIL)."
    • Line Location: MAILP+1
    Function Call: WRITE
    • Prompt: !,"INVALID MAIL SETTING - ENTER 2,3, OR 4"
    • Line Location: MAILP+4
    Function Call: WRITE
    • Prompt: " ",$S(MAIL=2:"DO NOT MAIL",MAIL=3:"LOCAL REGULAR MAIL",1:"LOCAL CERTIFIED MAIL")
    • Line Location: MAILP+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"")
    • Line Location: RXSTA+5
    Function Call: WRITE
    • Prompt: !,?10,$P(VAEL(1,N),"^",2)
    • Line Location: RXSTA+6
    Routine Call
    • DIC
    • Line Location:
      • OERR+57
      • RXSTA+7
    Routine Call
    • DIE
    • Line Location:
      • OERR+53
      • RXSTA+8
    Routine Call
    • DIR
    • Line Location:
      • OERR+28
      • PAUSE+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(55 - [#55] Classic Fileman Calls
    ^PS(59.7 - [#59.7] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DILOCKTM" OERR+51
    ^DIC(31 - [#31] ELIG+3
    ^DPT - [#2] OERR+4, OERR+52, ELIG+2
    ^PS(52.41 - [#52.41] OERR+66
    ^PS(53 - [#53] OERR+54, OERR+61
    ^PS(55 - [#55] OERR+39, OERR+40, OERR+45, OERR+47*, OERR+49, OERR+50, OERR+51, OERR+53, OERR+54, OERR+55
    , OERR+60, OERR+61*, OERR+71, OERR+74*, MAIL+3, MAILP+6*, RXSTA+3
    ^PS(59 - [#59] MAIL+1
    ^PSRX - [#52] START+6
    ^TMP("PS" PTX+1!
    ^TMP("PSOAL" EOJ+6!
    ^TMP("PSOAO" EOJ+6!
    ^TMP("PSOBB" START+10!, OERR+41*
    ^TMP("PSOHDR" EOJ+6!
    ^TMP("PSOPF" EOJ+6!
    ^TMP("PSOPI" EOJ+6!
    ^TMP("PSOPO" EOJ+6!
    ^TMP("PSORXBO" START!, EOJ+8!
    ^TMP("PSORXDC" PT+1!, EOJ+6!
    ^TMP("PSORXDD" EOJ+6!
    ^TMP("PSORXPO" START!, EOJ+6!
    ^TMP("PSOSF" EOJ+6!
    ^TMP($J START!, PT+1!, OERR+6, PTX+1!, EOJ+1!, EOJ+8!
    ^XTMP("ORRDI" REMOTE+4
    ^XTMP("PSORRX1" EOJ+10!
    ^XUSEC("PSORPH" INIT+3

    Label References

    Name Line Occurrences
    @( OERR+65
    ELIG OERR+56
    END START+2, START+3
    EOJ START+2, NX, NX+1, OERR+50, OERR+55, OERR+67
    INIT START+2
    MAIL OERR+40
    MAILP MAILP+4
    NX START+3, START+9
    PAUSE OERR+9
    PROFILEX PROFILE+2
    PT START+3
    PTX PT+3, OERR+69
    REMOTE OERR+11
    RXSTA OERR+48
    START NX, NX+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 OERR+66, OERR+74*, ELIG+2, ELIG+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % OERR+41, OERR+72~, OERR+74, EOJ+4!
    %DT EOJ+4!
    %I EOJ+4!
    BBFLG START+11!, EOJ+8!
    BBRX START+11!, EOJ+8!
    BINGCRT START+7*, START+11!
    BINGRTE START+7*, START+11!
    C PTX+1!, EOJ+5!
    CLOZPAT PT+1!
    COMM EOJ+2!
    D EOJ+8!
    D0 EOJ+4!
    DA OERR+1*, OERR+2!, OERR+46!, OERR+47*, OERR+53*, OERR+60*, OERR+62!, OERR+70!, RXSTA+1~, RXSTA+3*
    DAT EOJ+4!
    DD OERR+46!
    DEA PTX+1!
    DEAD EOJ+5!
    DFN OERR*, OERR+70*, EOJ+2!, EOJ+4!, ELIG+2, PROFILE+2*
    DGI EOJ+2!
    DGS EOJ+2!
    DIC PT+1!, OERR+1!*, OERR+2!, OERR+44*, OERR+46!, OERR+57!*, OERR+70!, RXSTA+7*!
    DIC("A" OERR+57*, RXSTA+7*
    DIC("B" RXSTA+7*
    DIC(0 PT+2*, OERR+46*, OERR+57*, RXSTA+7*
    DIE OERR+53*, OERR+57!, OERR+70!, RXSTA+8*
    DIK OERR+47!*, OERR+60*
    DIK(1 OERR+47*
    >> DINUM OERR+46*
    DIQ OERR+1!*, OERR+2!
    DIR OERR+28!, OERR+29!, PAUSE+1!
    DIR("?" PAUSE+1*
    DIR("A" OERR+28*, PAUSE+1*
    DIR("B" OERR+28*
    DIR(0 OERR+28*, PAUSE+1*
    DIRUT OERR+58, OERR+62!
    >> DISGROUP START+11
    DLAYGO OERR+44*, OERR+70!
    DO OERR+46!
    DR OERR+1!*, OERR+2!, OERR+46!, OERR+53*, OERR+57!, OERR+70!, RXSTA+8*
    DRG EOJ+4!
    DTOUT OERR+62!
    DUOUT OERR+62!
    DUZ INIT+3
    GMRA EOJ+8!
    GMRAL EOJ+8!
    GMRAREC EOJ+8!
    >> I ELIG+2*
    >> I1 ELIG+2*, ELIG+3, ELIG+4, ELIG+5
    II OERR+66*, OERR+67!
    INCOM EOJ+5!
    >> IOINHI OERR+7, OERR+8
    >> IOINORM OERR+7, OERR+8
    >> IORVOFF OERR+8
    >> IORVON OERR+8
    IOSL REMOTE+3, REMOTE+4
    LOG EOJ+4!
    MAIL MAIL+2~, MAIL+3*, MAILP+2*, MAILP+3, MAILP+4, MAILP+5, MAILP+6
    >> MEDP OERR, OERR+6, EOJ+3, EOJ+7
    N ELIG+1*, ELIG+6!, RXSTA+6*
    NOBG START+9, EOJ+8!
    NOPROC START+3!, OERR+2*
    NPPROC OERR+1!
    ORX EOJ+4!
    P1 EOJ+4!
    PAT OERR~, OERR+68*, EOJ+7!
    >> PBINGRTE START+7
    POERR OERR~, OERR+68*, EOJ+5!
    POERR("DEAD" NX, OERR+65, OERR+66
    POERR("QFLG" OERR+50, OERR+51*, OERR+55, OERR+57!, OERR+59*, OERR+66*, OERR+67*
    PPL EOJ+9!
    PPL1 EOJ+9!
    PRC PTX+1!
    PS EOJ+5!
    PSCNT PTX+1!, EOJ+4!, ELIG+3*, ELIG+4, ELIG+5
    PSDIS EOJ+4!, ELIG+3*, ELIG+4, ELIG+5
    PSOACT PTX+1!
    PSOAL EOJ+4!
    PSOBCK START+2*, EOJ+4!, EOJ+8!
    PSOBILL EOJ+2!
    PSOBXPUL EOJ+4!
    PSOCLC PTX+1!, EOJ+5!
    PSOCNT EOJ+5!
    PSOCPAY EOJ+2!
    PSOCS PTX+1!
    PSOCT PTX+1!, EOJ+5!
    PSODA EOJ+5!
    PSODFN PT+1!, OERR*, OERR+1, OERR+4, OERR+6, OERR+15, OERR+32, OERR+36, OERR+37, OERR+39
    , OERR+40, OERR+43, OERR+45, OERR+46, OERR+47, OERR+49, OERR+50, OERR+51, OERR+52, OERR+53
    , OERR+54, OERR+55, OERR+60, OERR+61, OERR+66, OERR+68, OERR+70*, OERR+71, OERR+74, EOJ+1
    , EOJ+2!, PROFILE+2, MAIL+3, MAILP+6, RXSTA+2, RXSTA+3
    >> PSODRG PROFILE+3*
    PSODRUG START!, EOJ+2!
    PSODT EOJ+8!
    PSOERR START+2*, EOJ+2!
    PSOERR("DEAD" OERR+67!
    PSOFIN START!, OERR+43, OERR+51, OERR+59, OERR+63
    PSOFINFL PTX+1!
    PSOFLAG EOJ+8!
    PSOFROM START+7*, START+11, EOJ+5!
    PSOHD PTX+1!, EOJ+5!
    PSOIBQS EOJ+2!
    PSOID START!, EOJ+4!
    PSOLOUD OERR+49*!
    PSOLST PTX+1!, EOJ+4!
    PSOMED EOJ+2!
    PSON EOJ+4!
    >> PSONOAL OERR+9*, OERR+10
    PSOONEVA START+1~*, OERR+13
    PSOOPT PTX+1!, EOJ+2!
    >> PSOPAR INIT+2, INIT+3
    PSOPF PTX+1!, EOJ+2!
    PSOPI EOJ+2!
    PSOPTLK PT+1!, PT+2, PTX+1!
    PSOPTPST EOJ+4!
    PSOQFLAG EOJ+9!
    PSOQFLG START!, NX, OERR+1!, OERR+2, OERR+44*, OERR+65, OERR+67, EOJ+3!
    PSOQUIT START!, OERR+51*, OERR+59*, OERR+69, EOJ+7
    PSORCNT EOJ+10!
    PSORX START+8!, EOJ+2!, EOJ+4!, EOJ+8!
    PSORX("NAME" OERR*, OERR+4, OERR+52
    PSORX("PATIEN T STATUS" , OERR+54*, OERR+61*
    PSORX("PSOL" START+8
    PSORX("QFLG" START+2, START+3, INIT+1*, INIT+2*, PT+2*, PT+3*
    PSORX("REFILL" PROFILE+1*, PROFILE+3*
    PSORX("RENEW" PROFILE+1*, PROFILE+3*
    PSORX("VERIFY" INIT+3*
    PSORXED OERR+70!
    PSOSD EOJ+2!, PROFILE+2
    PSOSD( PROFILE+3
    >> PSOSITE OERR+32, MAIL+1
    PSOSTA EOJ+8!, RXSTA+1~, RXSTA+3*, RXSTA+4, RXSTA+7, RXSTA+8
    PSOUPDT OERR+33~, OERR+34*, OERR+35*, OERR+36
    PSOX OERR+54*, OERR+70!, PTX+1!, PROFILE+1*, PROFILE+3*, PROFILE+4!
    PSOX1 PTX+1!
    PSOXFLG OERR!, OERR+52*, EOJ+4!
    PSOXXDFN OERR+68*, OERR+70, PTX+1!, EOJ+8!
    PT OERR+65*, EOJ+2!
    PTDY EOJ+2!
    PTRF EOJ+2!
    PTST EOJ+4!
    R3 EOJ+5!
    REA EOJ+5!
    RF EOJ+5!
    RFD EOJ+5!
    RFM EOJ+5!
    RFN EOJ+8!
    RLD EOJ+5!
    RN EOJ+2!
    RTN OERR+65*, EOJ+2!
    RTS EOJ+5!
    RX0 EOJ+5!
    RX2 EOJ+5!
    RX3 EOJ+5!
    RXFL EOJ+8!
    RXFL("" OERR+71
    RXN EOJ+5!
    RXNUM EOJ+5!
    RXP EOJ+5!
    RXPR EOJ+5!
    RXREC START+7*, EOJ+2!
    RXRP EOJ+5!
    RXRS START+8, EOJ+5!
    RXRS( START+5, START+6!
    SERS EOJ+2!
    SG EOJ+5!
    SIG EOJ+5!
    SIGOK PTX+1!
    SLPPL START+5*, START+6, START+7, EOJ+2!
    >> SNGLPAT OERR+37
    SPOERR EOJ+8!
    SSN OERR+4*, OERR+5!, OERR+52*!
    ST0 EOJ+2!
    STAT EOJ+2!
    STOP EOJ+2!
    STP PTX+1!, EOJ+5!
    STR PTX+1!, EOJ+5!
    TFILIST OERR+14~, OERR+17*, OERR+22
    TFL OERR+14~, OERR+15
    TFL( OERR+18, OERR+19, OERR+22
    TFLCNT OERR+14~, OERR+16*, OERR+18, OERR+23*, OERR+24
    TFLDUP OERR+14~
    TFLDUP( OERR+20, OERR+21*
    TFLIEN OERR+14~
    TFLP OERR+14~, OERR+18*, OERR+19, OERR+22
    TFLSITE OERR+14~, OERR+19*, OERR+20, OERR+21
    TM START+8!, START+10*, OERR+41*
    TM1 START+8!, START+10*, OERR+41*
    U OERR+19, OERR+22
    >> VAEL(1 ELIG+1, RXSTA+5, RXSTA+6
    >> VAEL(3 ELIG+1, RXSTA+5
    VALM EOJ+8!
    VALMBCK EOJ+8!
    VALMKEY EOJ+8!
    VALMSG EOJ+5!
    X OERR+7*, OERR+46*, OERR+62!, PTX+1!
    >> XQY0 OERR+6, OERR+35, OERR+37, RXSTA+4
    Y PT+2*, PT+3, OERR, OERR+30, OERR+46, OERR+58, OERR+61, OERR+62!, PTX+1!, RXSTA+8

    Marked Items

    Name Field # of Occurrence
    $T(HAVEHDR^ORRDI1 REMOTE+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All