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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSOEPUT2

Package: Outpatient Pharmacy

Routine: PSOEPUT2


Information

PSOEPUT2 ;BIR/TJL - ePCS Broker Utilities ;11/1/23 12:05

Source Information

Source file <PSOEPUT2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 7 ^%DT  NOW^%DTC  (,$$FIND1)^DIC  UPDATE^DIE  ^DIK  ($$GET1,D)^DIQ  ^DIR  
Kernel 3 $$HTE^XLFDT  $$LKUP^XPDKEY  $$GET^XUA4A72  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSO EPCS FIELD HELP  PSO EPCS GET LIST  PSO EPCS PSDRPH FILER  PSO EPCS SYSTEM DATE TIME  PSO EPCS TOPIC HELP  PSODEAUT  PSOEPUT  

Entry Points

Name Comments DBIA/ICR reference
EPCSHELP(RESULTS,EPCSARY) ;
EPCSDATE(RESULTS,EPCSARY) ;
SRCLST(RESULTS,EPCSARY) ;
EXIT
SORT ;Order the data to be returned by the broker
PROV(EPCSNUM) ;Return a set of providers from the NEW PERSON file
SETENV ;
DELMULT(RETURN,NPIEN,DEATXT) ; Remove DEA multiple (#53.21) from the NEW PERSON file (#200)
; INPUT: NPIEN - NEW PERSON FILE #200 INTERNAL ENTRY NUMBER
; DEATXT - PROPERLY FORMATTED DEA NUMBER
; OUTPUT: RETURN - 1 for SUCCESS, 0 for UNSUCCESSFUL
ASK(TYPE,NAME,DELEG) ;Ask user if Allocate/De-allocate or Delegate/Un-delegate - returns y/n
PSDKEY(RESULTS,PSOSUBJ,PSOACTOR,PSOACTION) ;Allocate/De-allocate the PSDRPH key
; RESULTS - Success or Failure of the allocation/deallocation of the PSDRPH key.
; PSOSUBJ - The user to whom the PSDRPH key is being allocated/deallocated
; PSOACTOR - The user performing the allocation/deallocation of the PSDRPH key.
; PSOACTION - Action to perform - 1=Allocate, 0=Deallocate
  • ICR #7492
    • Status: Active
    • Usage: Private
    RECORD(LINE,NOW) ;Record the edited data into audit file #8991.7

    External References

    Name Field # of Occurrence
    ^%DT EPCSDATE+12
    NOW^%DTC SETENV+3
    ^DIC EPCSHELP+13
    $$FIND1^DIC PSDKEY+8, PSDKEY+15, PSDKEY+16, PSDKEY+27
    UPDATE^DIE DELMULT+10, PSDKEY+26, RECORD+4
    ^DIK PSDKEY+21
    $$GET1^DIQ DELMULT+7, DELMULT+8
    D^DIQ EPCSDATE+14
    ^DIR ASK+8
    $$HTE^XLFDT PSDKEY+31
    $$LKUP^XPDKEY PSDKEY+11
    $$GET^XUA4A72 PROV+19

    Used in RPC

    RPC Name Call Tags
    PSO EPCS SYSTEM DATE TIME EPCSDATE
    PSO EPCS FIELD HELP EPCSHELP
    PSO EPCS GET LIST SRCLST
    PSO EPCS TOPIC HELP EPCSHELP
    PSO EPCS PSDRPH FILER PSDKEY

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] Classic Fileman Calls,  FIND1^DIC
    200.051 FIND1^DIC
    200.5321 GET1^DIQ
    ^XTV(8991.9 - [#8991.9] GET1^DIQ
    ^DIC(9.2 - [#9.2] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(9.2 - [#9.2] EPCSHELP+13, EPCSHELP+15
    ^TMP("EPCSHELP" EPCSHELP+11!, EPCSHELP+13*, EPCSHELP+14, EPCSHELP+15*, EPCSHELP+16
    ^TMP("EPCSSRCH" SRCLST+17!, EXIT!, SORT+3, SORT+4
    ^TMP($J SRCLST+17!, EXIT+1, SORT+4*, PROV+18*, PROV+20*
    ^VA(200 - [#200] PROV+15, PROV+16, DELMULT+6

    Label References

    Name Line Occurrences
    PROV SRCLST+20
    RECORD PSDKEY+32
    SETENV EPCSHELP+11, EPCSDATE+10, SRCLST+14
    SORT SRCLST+21

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT EPCSDATE+12*
    >> %DT(0 EPCSDATE+12*
    COUNT SORT+1~, SORT+2*, SORT+3*, SORT+4, PROV+13~*, PROV+15
    DA DELMULT+4~, PSDKEY+21*
    DA(1 PSDKEY+21*
    DATE PROV+13~, PROV+14*, PROV+19
    DATESTR EPCSDATE+9~, EPCSDATE+11*, EPCSDATE+12
    DEATXT DELMULT~, DELMULT+5, DELMULT+6
    DEATYPE DELMULT+4~, DELMULT+8*
    DELEG ASK~, ASK+4*, ASK+5, ASK+6
    DIC EPCSHELP+9~, EPCSHELP+12*, EPCSDATE+9~
    DIC(0 EPCSHELP+12*
    DIE DELMULT+4~
    DIK PSDKEY+21!*
    DIR ASK+3~, ASK+8!
    DIR("A" ASK+5*, ASK+6*
    DIR("B" ASK+7*
    DIR(0 ASK+8*
    DNDEAIEN DELMULT+4~, DELMULT+7*, DELMULT+8
    DR DELMULT+4~
    DT SETENV+3*
    DTIME SETENV+2*
    DUZ SETENV+1, SETENV+2*
    DUZ(0 SETENV+2*
    EPCSARY EPCSHELP~, EPCSHELP+10, EPCSDATE~, EPCSDATE+11, SRCLST~, SRCLST+15, SRCLST+19
    EPCSDATE EPCSDATE+9~
    EPCSDIR SRCLST+13~, SRCLST+15*, SRCLST+16, PROV+15, PROV+16
    EPCSFILE SRCLST+13~, SRCLST+15*, SRCLST+18, SRCLST+20
    EPCSNUM SRCLST+13~, SRCLST+19*, SRCLST+20, PROV~, PROV+13
    EPCSORD SRCLST+13~, SRCLST+16*
    EPCSSTR SRCLST+13~, SRCLST+15*, PROV+14
    EPCSUTN PROV+13~, PROV+19*, PROV+20
    FDA DELMULT+4~, RECORD+1~
    FDA( PSDKEY+26*, RECORD+2*, RECORD+3*
    FDA(1 DELMULT+9*
    FROM PROV+13~, PROV+14*, PROV+15*, PROV+16, PROV+18, PROV+20
    HELPDA EPCSHELP+9~, EPCSHELP+10*, EPCSHELP+12
    I PROV+13~*, PROV+15, PROV+18*, PROV+20*, RECORD+1~, RECORD+2*
    IEN PROV+13~, PROV+16*, PROV+17, PROV+18, PROV+19, PROV+20, RECORD+1~
    IENS DELMULT+4~
    LINE RECORD~, RECORD+2
    MSG RECORD+1~
    MSGROOT DELMULT+4~, DELMULT+10
    NAME ASK~, ASK+5, ASK+6
    NOW PSDKEY+31*, PSDKEY+32, RECORD~, RECORD+3
    NPDEAIEN DELMULT+4~, DELMULT+6*, DELMULT+7, DELMULT+9
    NPIEN DELMULT~, DELMULT+5, DELMULT+6, DELMULT+7, DELMULT+9
    PSOACTION PSDKEY~, PSDKEY+9*, PSDKEY+10, PSDKEY+19, PSDKEY+24, PSDKEY+32
    PSOACTOR PSDKEY~, PSDKEY+9*, PSDKEY+14, PSDKEY+16, PSDKEY+32
    PSOIGNORE PSDKEY+6~, PSDKEY+7*, PSDKEY+20*, PSDKEY+25*, PSDKEY+30
    PSOINPUT PSDKEY+6~, PSDKEY+32*
    PSOKEY PSDKEY+6~, PSDKEY+11*, PSDKEY+12, PSDKEY+21
    PSOKSTAT PSDKEY+6~, PSDKEY+8*, PSDKEY+20, PSDKEY+25
    PSOMSG PSDKEY+6~
    PSOMSG("DIERR" PSDKEY+27
    PSOSUBJ PSDKEY~, PSDKEY+8, PSDKEY+9*, PSDKEY+13, PSDKEY+15, PSDKEY+21, PSDKEY+26, PSDKEY+27, PSDKEY+32
    REPORT PROV+13~, PROV+14*, PROV+18
    RESULTS EPCSHELP~, EPCSHELP+16*, EPCSDATE~, EPCSDATE+13*, EPCSDATE+14*, EPCSDATE+15*, SRCLST~, EXIT+1*, PSDKEY~, PSDKEY+7!
    , PSDKEY+10*, PSDKEY+12*, PSDKEY+13*, PSDKEY+14*, PSDKEY+15*, PSDKEY+16*, PSDKEY+26, PSDKEY+27*, PSDKEY+35*
    RETURN DELMULT~, DELMULT+5*, DELMULT+11*
    TYPE ASK~, ASK+5, ASK+6
    U EPCSHELP+15, EPCSDATE+11, EPCSDATE+15, SRCLST+15, SRCLST+19, SORT+4, SETENV+2*, RECORD+2
    VALUE RECORD+1~, RECORD+2*
    X EPCSHELP+9~, EPCSHELP+12*, EPCSDATE+9~, EPCSDATE+12*, SETENV+3
    Y EPCSHELP+9~, EPCSHELP+13, EPCSHELP+15, EPCSDATE+9~, EPCSDATE+13, EPCSDATE+14, EPCSDATE+15, ASK+3~, ASK+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All