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 |  Local Variables  | All
Print Page as PDF
Routine: RMPRPCED

Package: Prosthetics

Routine: RMPRPCED


Information

RMPRPCED ;Hines OIFO/RVD - Prosthetics/660/668/PCE DELETE ;7/30/02 09:39

Source Information

Source file <RMPRPCED.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DIE  ^DIK  
PCE Patient Care Encounter 2 01^PXAIUPRV  $$DELVFILE^PXAPI  
Kernel 1 $$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: 5

Package Total Caller Graph
Prosthetics 4 RMPR4M  RMPRED4  RMPROP  RMPRPIFD  
Prosthetics Vision 4 Sight II 1 RMPV0RMPROP  

Entry Points

Name Comments DBIA/ICR reference
DEL(RMIE60) ;delete PCE visit.
  • ICR #7539
    • Status: Active
    • Usage: Controlled Subscription
    DELVF ; Remove all workload data from the PCE visit file & related V files.
    ; check if the visit is already in PCE and remove workload,
    ; (sending RMPKG and RMSRC to ensure that only data that originally
    ; came from PROSTHETICS will be removed).
    DELVF1
    DEL68 ; delete PCE info in file #668.
    DEL60 ; delete PCE info in file #660.
    ; lock file #660
    DELX
    ERR68 ; print error if unable to delete/update file #668.
    ERR60 ; print error if unable to delete/update file #660.
    CHECK ;check for return error from PCE
    PRV ;PROVIDER VALIDATION PRIOR TO PCE INTERFACE CALL
    PRVX
    NEWVAR ; new variables

    External References

    Name Field # of Occurrence
    ^DIC DEL+6
    FILE^DIE DEL60+5
    ^DIK DELVF1+5, DEL68+5, DEL68+14
    01^PXAIUPRV PRV+14
    $$DELVFILE^PXAPI DELVF1
    $$GET^XUA4A72 PRV+24

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"*** Error in deleting PCE visit !!",!
    • Line Location: DELVF1+8
    Function Call: WRITE
    • Prompt: !!,"*** File #668 is locked, IEN = ",RMIE68,", PLEASE contact your IRM!!",!!
    • Line Location: ERR68+1
    Function Call: WRITE
    • Prompt: !!,"*** File #660 is locked, IEN = ",RMIE60,", PLEASE contact your IRM!!",!!
    • Line Location: ERR60+1
    Routine Call
    • DIC
    • Line Location:
      • DEL+6
    Routine Call
    • DIE
    • Line Location:
      • DEL60+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(9.4 - [#9.4] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNVSIT - [#9000010] DEL+14, DELVF1+2, DELVF1+7
    ^RMPR(660 - [#660] DEL+4, DEL+12, DEL68+1, DEL68+9, DEL60+2, DEL60+6
    ^RMPR(668 - [#668] DEL68+2, DEL68+3, DEL68+4, DEL68+6, DEL68+8, DEL68+15, ERR68+2
    ^TMP("RMPRPCE1" PRV+2
    ^VEJD(19610.5 DELVF1+3

    Label References

    Name Line Occurrences
    DEL60 DEL68+2
    DEL68 DEL+3, DEL+4, DEL+14
    DELVF1 DELVF1+1
    DELX DEL+7, DEL+9, DEL+13, DELVF1+8, DEL68+3, DEL60+2
    ERR60 DEL60+2
    ERR68 DEL68+3
    NEWVAR DEL+1
    PRVX PRV+5, PRV+14

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CLASS PRV+23~, PRV+24*
    DA DELVF1+5*, DELVF1+6!, DEL68+4*, DEL68+12*, NEWVAR+2~
    DA(1 DEL68+5*, DEL68+13*
    DIC DEL+6*, NEWVAR+2~
    DIE NEWVAR+2~
    DIK DELVF1+5*, DELVF1+6!, DEL68+5*, DEL68+13*, NEWVAR+2~
    I DEL68+8*, DEL68+9, NEWVAR+2~
    PXAA PRV+1!, PRVX+3!
    PXAA("NAME" PRV+2*, PRV+5, PRV+10, PRV+14, PRV+19, PRV+24, PRV+29
    PXADI PRV+1!, PRVX+3!
    PXADI("DIALOG" PRV+8*, PRV+17*, PRV+27*
    PXAERR PRV+1!, PRVX+3!
    PXAERR(11 PRV+10*, PRV+19*, PRV+20, PRV+29*
    PXAERR(12 PRV+11*, PRV+20*, PRV+30*, PRVX+2
    PXAERR(9 PRV+9*, PRV+18*, PRV+28*
    PXAERRF PRV+1~, PRV+7*, PRV+16*, PRV+26*, PRVX+3!
    PXAIVAL PRV+14!
    PXAVDATE PRV+1~, PRV+2*, PRV+24
    >> PXCA("ERROR" PRV+14!
    >> R1 CHECK+4*, CHECK+5, CHECK+6
    >> R2 CHECK+3*, CHECK+4*, CHECK+5, CHECK+6
    >> R3 CHECK+3*, CHECK+4*, CHECK+5, CHECK+6
    >> R4 CHECK+5*, CHECK+6
    REDO DELVF+5~, DELVF+6*, DELVF1+1, DELVF1+2, DELVF1+7*
    RMAMIEN DEL68+6*, DEL68+11, DEL68+12, NEWVAR+2~
    RMAMIS DEL68+1*, DEL68+6, DEL68+9, NEWVAR+2~
    RMAMIS68 DEL68+9*, NEWVAR+2~
    RMARR NEWVAR+2~
    RMARR(660 DEL60+3*, DEL60+4*
    RMCHK DELVF1*, DELVF1+1, DELVF1+8, NEWVAR+2~
    RMCNT DEL68+7*, DEL68+9*, DEL68+11, NEWVAR+2~
    >> RMERR DEL+2*, DEL+7*, DEL+9*, DEL+13*, DELVF1+8*, DELX, ERR68+3*, ERR60+2*, PRVX+1*
    RMIE60 DEL~, DEL+4, DEL+12, DEL68+1, DEL68+2, DEL68+4, DEL60+2, DEL60+3, DEL60+4, DEL60+6
    , ERR60+1
    >> RMIE68 DEL68+2*, DEL68+3, DEL68+4, DEL68+5, DEL68+6, DEL68+8, DEL68+13, DEL68+15, ERR68+1, ERR68+2
    RMKI NEWVAR+2~
    >> RMLOCK DEL+2*
    >> RMMESS CHECK+3*, CHECK+6*, CHECK+7, CHECK+8
    RMPCE DEL+12*, DEL+13, DEL+14, DELVF1, DELVF1+2, DELVF1+3, DELVF1+7, PRVX+1!
    >> RMPKG DEL+8*, DEL+9, DELVF1
    RMPR DELVF+5~
    >> RMPRCPER CHECK+8*
    >> RMPROB( CHECK+2, CHECK+4, CHECK+5, CHECK+6, PRVX+2*
    >> RMSRC DEL+5*, DELVF1
    RMSUB NEWVAR+2~
    >> STOP PRV+5, PRV+6*, PRV+14, PRV+15*, PRV+25*, PRVX
    U DEL+4, DEL+12, DELVF1+2, DELVF1+7
    VEJD DELVF+5~, DELVF1+3*, DELVF1+5
    >> X DEL+6*
    Y DEL+7, DEL+8, NEWVAR+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 |  Local Variables  | All