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

Package: Toolkit

Routine: XDRDVAL1


Information

XDRDVAL1 ;SF-CIOFO/JLI - CHECK SPECIFIED ENTRY FOR PROBLEMS ;12/04/2001 14:04

Source Information

Source file <XDRDVAL1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Toolkit 5 $$FILE^XDRDPICK  DOENTRY^XDRDVAL  LISTPROB^XDRDVAL1  CHKMERG^XDRDVAL2  SETUP^XDRMERG  
VA FileMan 5 (,$$FIND1)^DIC  FILE^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  $$NOW^XLFDT  
Inpatient Medications 1 ($$EN,EN)^PSJPATMR  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Toolkit 4 XDR VALID CHECK  XDRDVAL1  XDRMERG0  XDRMERGC  
Clinical Information Resource Network 1 RGDRM03  
Fee Basis 1 FBPMRG  

Entry Points

Name Comments DBIA/ICR reference
EN ;
LOOP ;
EN1(FILE,IEN,ARRAY) ;
LISTPROB(DATA) ;
FILENAME(FILE) ;
ENPAIR(FILE,ARRAY,MERGEFLG) ; ENTRY POINT FOR CHECKING AN ARRAY OF PAIRS AT START OF MERGE
SENDMESG(XMSUB,XMTEXT) ;
RMOVPAIR(FROM,TO,IEN,ARRAY) ;
  • ICR #3168
    • Status: Active
    • Usage: Private
    PAIROUT(FILE,FROM,TO,IEN,DATA) ;
    PAIRID(FILE,FROM,TO,IEN) ;
    STRIP(X1) ;

    External References

    Name Field # of Occurrence
    ^%ZIS EN+3, LOOP+10, ENPAIR+33, ENPAIR+34
    ^%ZISC EN+3, LOOP+6, LOOP+16, ENPAIR+59
    ^DIC LOOP+6
    $$FIND1^DIC ENPAIR+5
    FILE^DIE RMOVPAIR+11
    ^DIK RMOVPAIR+15
    $$GET1^DIQ SENDMESG+2, SENDMESG+3
    ^DIR LISTPROB+13
    $$EN^PSJPATMR ENPAIR+20
    EN^PSJPATMR ENPAIR+20
    $$FILE^XDRDPICK LOOP+4
    DOENTRY^XDRDVAL EN1+2, EN1+6
    LISTPROB^XDRDVAL1 PAIROUT+2
    CHKMERG^XDRDVAL2 ENPAIR+23
    SETUP^XDRMERG EN1+1
    $$NOW^XLFDT ENPAIR+8
    ^XMD SENDMESG+8

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!!
    • Line Location: LOOP+5
    Function Call: WRITE
    • Prompt: !," .... WORKING HARD (may take a while)...",!
    • Line Location: LOOP+8
    Function Call: WRITE
    • Prompt: @IOF,!!!
    • Line Location: LOOP+12
    Function Call: WRITE
    • Prompt: !!,"DFN=",+XDRY," ",$P(@(FILEDIC_(+XDRY)_",0)"),U)
    • Line Location: LOOP+13
    Function Call: WRITE
    • Prompt: " [",$P(^(0),U,9),"]"
    • Line Location: LOOP+13
    Function Call: WRITE
    • Prompt: !?10,"No Problems Found....",!!
    • Line Location: LOOP+14
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: LISTPROB+11
    Function Call: WRITE
    • Prompt: !,"Field ",FIELD," [",$P(^DD(FILE,FIELD,0),U),"] IENS=",IENS
    • Line Location: LISTPROB+16
    Function Call: WRITE
    • Prompt: !," value: ",X
    • Line Location: LISTPROB+17
    Function Call: WRITE
    • Prompt: !," ",^(NNOTE)
    • Line Location: LISTPROB+18
    Function Call: WRITE
    • Prompt: !!
    • Line Location: ENPAIR+42
    Function Call: WRITE
    • Prompt: !," ******** REDIRECTED TO"
    • Line Location: ENPAIR+51
    Function Call: WRITE
    • Prompt: !,"FROM: DFN=",FROM," ",FRNAME
    • Line Location: PAIRID+5
    Function Call: WRITE
    • Prompt: " [",FRSSN,"]"
    • Condition for execution: FILE=2!(FILE=200)
    • Line Location: PAIRID+5
    Function Call: WRITE
    • Prompt: " FILE 15 IEN: ",IEN
    • Line Location: PAIRID+5
    Function Call: WRITE
    • Prompt: !,"TO: DFN=",TO," ",TONAME
    • Line Location: PAIRID+6
    Function Call: WRITE
    • Prompt: " [",TOSSN,"]"
    • Condition for execution: FILE=2!(FILE=200)
    • Line Location: PAIRID+6
    Routine Call
    • %ZIS
    • Line Location:
      • EN+3
      • LOOP+10
      • ENPAIR+33
      • ENPAIR+34
    Routine Call
    • DIC
    • Line Location:
      • LOOP+6
    Routine Call
    • DIC
    • Line Location:
      • ENPAIR+5
    Routine Call
    • DIE
    • Line Location:
      • RMOVPAIR+11
    Routine Call
    • DIR
    • Line Location:
      • LISTPROB+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(15.1 - [#15.1] GET1^DIQ
    15.23 FIND1^DIC
    ^XMB(3.8 - [#3.8] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( LISTPROB+16, FILENAME+3
    ^DIC - [#1] LOOP+4, FILENAME+3, FILENAME+4, PAIRID+2
    ^TMP("XDRRMOV" RMOVPAIR+2*, RMOVPAIR+6*
    ^TMP("XDRVALDATA" ENPAIR+4
    ^TMP("XDRVALMESG" ENPAIR+3
    ^TMP($J LOOP+1, EN1+3, EN1+4
    ^VA(15 - [#15] ENPAIR+45, RMOVPAIR+5
    ^VA(15.2 - [#15.2] ENPAIR+8*, RMOVPAIR+14

    Label References

    Name Line Occurrences
    $$FILENAME LISTPROB+3
    $$STRIP PAIRID+3, PAIRID+4
    EN1 LOOP+9
    LISTPROB LOOP+15
    LOOP LOOP+14, LOOP+17
    PAIRID ENPAIR+50, PAIROUT+1
    PAIROUT ENPAIR+55
    RMOVPAIR ENPAIR+29, ENPAIR+57
    SENDMESG ENPAIR+64

    Naked Globals

    Name Field # of Occurrence
    ^( EN1+3, LISTPROB+18, RMOVPAIR+14
    ^(0 LOOP+13, PAIRID+3, PAIRID+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARRAY EN1~, EN1+2, EN1+6, ENPAIR~, ENPAIR+7, ENPAIR+9, ENPAIR+24, ENPAIR+25, ENPAIR+26, ENPAIR+27
    , ENPAIR+28, ENPAIR+29, ENPAIR+37, ENPAIR+38, ENPAIR+39, ENPAIR+40, ENPAIR+41, ENPAIR+57, RMOVPAIR~, RMOVPAIR+2
    , RMOVPAIR+17
    DA RMOVPAIR+1~, RMOVPAIR+14*, RMOVPAIR+15
    DA(1 RMOVPAIR+15*
    DATA LOOP+1*, LOOP+2, LOOP+9, LOOP+14, LOOP+15, LISTPROB~, LISTPROB+2, LISTPROB+4, LISTPROB+5, LISTPROB+6
    , LISTPROB+7, LISTPROB+8, LISTPROB+18, ENPAIR+1~, PAIROUT~, PAIROUT+2
    >> DIC LOOP+5*
    >> DIC(0 LOOP+5*
    DIK RMOVPAIR+1~, RMOVPAIR+15*
    DIR EN+1~, LISTPROB+12~
    DIR(0 LISTPROB+13*
    DIRECT ENPAIR+44~, ENPAIR+45*, ENPAIR+46
    DUPIEN ENPAIR+1~, ENPAIR+27*, ENPAIR+28*, ENPAIR+29, ENPAIR+40*, ENPAIR+41*, ENPAIR+43, ENPAIR+45, ENPAIR+50, ENPAIR+55
    , ENPAIR+57
    >> FIELD LISTPROB+5*, LISTPROB+6, LISTPROB+7, LISTPROB+8, LISTPROB+16, LISTPROB+18
    FILE EN+1~, EN1~, EN1+1, EN1+2, LISTPROB+2*, LISTPROB+3, LISTPROB+4, LISTPROB+5, LISTPROB+6, LISTPROB+7
    , LISTPROB+8, LISTPROB+16, LISTPROB+18, FILENAME~, FILENAME+2, FILENAME+3*, FILENAME+4, ENPAIR~, ENPAIR+23, ENPAIR+50
    , ENPAIR+55, PAIROUT~, PAIROUT+1, PAIRID~, PAIRID+2, PAIRID+5, PAIRID+6
    FILEDIC EN+1~, LOOP+4*, LOOP+13, PAIRID+1~, PAIRID+2*, PAIRID+3, PAIRID+4
    FILENAME EN+1~, LOOP+4*, LISTPROB+3*, LISTPROB+15, FILENAME+1~, FILENAME+2*, FILENAME+3*, FILENAME+4*, FILENAME+5
    >> FILEX EN1+3*, EN1+6
    FRNAME PAIRID+1~, PAIRID+3*, PAIRID+5
    FROM ENPAIR+1~, ENPAIR+7*, ENPAIR+8, ENPAIR+9, ENPAIR+20, ENPAIR+21, ENPAIR+23, ENPAIR+24, ENPAIR+25, ENPAIR+26
    , ENPAIR+27, ENPAIR+28, ENPAIR+29, ENPAIR+36*, ENPAIR+37, ENPAIR+38, ENPAIR+39, ENPAIR+40, ENPAIR+41, ENPAIR+55
    , ENPAIR+57, RMOVPAIR~, RMOVPAIR+2, RMOVPAIR+17, PAIROUT~, PAIROUT+1, PAIRID~, PAIRID+3, PAIRID+5
    FRSSN PAIRID+1~, PAIRID+3*, PAIRID+5
    FRVARBL ENPAIR+1~, ENPAIR+25*, ENPAIR+26, ENPAIR+28, ENPAIR+38*, ENPAIR+39, ENPAIR+41
    >> GLOB EN1+3*, EN1+4
    IEN EN1~, EN1+2, EN1+6, RMOVPAIR~, RMOVPAIR+2, RMOVPAIR+3, RMOVPAIR+4, RMOVPAIR+5, RMOVPAIR+14, PAIROUT~
    , PAIROUT+1, PAIRID~, PAIRID+5
    IENS LISTPROB+4*, LISTPROB+5, LISTPROB+6, LISTPROB+7, LISTPROB+8, LISTPROB+16, LISTPROB+18, RMOVPAIR+1~, RMOVPAIR+4*, RMOVPAIR+7
    , RMOVPAIR+8, RMOVPAIR+9, RMOVPAIR+10
    IO EN+3, LOOP+6, LOOP+11*, LOOP+12, LOOP+16, ENPAIR+35, ENPAIR+59
    IO(0 EN+3, LOOP+3, LOOP+11
    IOF LOOP+12, LISTPROB+11
    ION EN+3
    >> IOP LOOP+10*, ENPAIR+33*, ENPAIR+34*
    IOSL LISTPROB+11
    IOST LISTPROB+11
    >> JLICNT RMOVPAIR+2*, RMOVPAIR+6*
    MERGE RMOVPAIR+1~, RMOVPAIR+5*, RMOVPAIR+6, RMOVPAIR+14, RMOVPAIR+15
    MERGEFLG ENPAIR~, ENPAIR+5, ENPAIR+8, ENPAIR+33, ENPAIR+34, ENPAIR+60
    MFILE EN+1~, LOOP+4*, LOOP+5, LOOP+9, LOOP+13
    >> NEWHEAD LISTPROB+3*, LISTPROB+11*, LISTPROB+15*
    NFILE FILENAME+1~, FILENAME+2*, FILENAME+4
    NLINES LISTPROB+10*, LISTPROB+11, ENPAIR+1~
    >> NNOTE LISTPROB+8*, LISTPROB+18*
    >> NNOTES LISTPROB+7*, LISTPROB+8*, LISTPROB+10
    ORIGFR ENPAIR+44~, ENPAIR+46*, ENPAIR+47*, ENPAIR+50
    ORIGTO ENPAIR+44~, ENPAIR+46*, ENPAIR+47*, ENPAIR+49, ENPAIR+50
    >> POP EN+3
    TO ENPAIR+1~, ENPAIR+9*, ENPAIR+20, ENPAIR+21, ENPAIR+23, ENPAIR+24*, ENPAIR+25, ENPAIR+26, ENPAIR+27, ENPAIR+28
    , ENPAIR+29, ENPAIR+37*, ENPAIR+38, ENPAIR+39, ENPAIR+40, ENPAIR+41, ENPAIR+49, ENPAIR+55, ENPAIR+57, RMOVPAIR~
    , RMOVPAIR+2, RMOVPAIR+17, PAIROUT~, PAIROUT+1, PAIRID~, PAIRID+4, PAIRID+6
    TONAME PAIRID+1~, PAIRID+4*, PAIRID+6
    TOSSN PAIRID+1~, PAIRID+4*, PAIRID+6
    TOVARBL ENPAIR+1~, ENPAIR+26*, ENPAIR+27, ENPAIR+28, ENPAIR+39*, ENPAIR+40, ENPAIR+41
    U LOOP+4, LOOP+13, EN1+5, LISTPROB+16, FILENAME+4, ENPAIR+8, ENPAIR+45, ENPAIR+46, ENPAIR+47, RMOVPAIR+2
    , RMOVPAIR+5, RMOVPAIR+6, RMOVPAIR+14, PAIRID+3, PAIRID+4
    X LISTPROB+6*, LISTPROB+12~, LISTPROB+17, ENPAIR+44~, ENPAIR+45*, ENPAIR+46, ENPAIR+47, RMOVPAIR+1~, RMOVPAIR+5*, RMOVPAIR+6
    X1 EN1+4*, EN1+5, STRIP~, STRIP+1*, STRIP+2
    XDR EN+1~
    XDRDVALF ENPAIR+33~*
    >> XDREXIT LISTPROB+1*, LISTPROB+2, LISTPROB+4, LISTPROB+5, LISTPROB+11, LISTPROB+13*
    XDRFDA1 ENPAIR+1~, ENPAIR+5*, ENPAIR+8
    XDRGRP SENDMESG+1~, SENDMESG+2*, SENDMESG+3, SENDMESG+4*, SENDMESG+5, SENDMESG+6
    XDRGRPN SENDMESG+1~, SENDMESG+3*, SENDMESG+4
    >> XDRION EN+3*, LOOP+10, LOOP+16, ENPAIR+34
    XDRMESG ENPAIR+1~, ENPAIR+3*
    >> XDRVDATA ENPAIR+4*, ENPAIR+21, ENPAIR+23, ENPAIR+32, ENPAIR+36, ENPAIR+55
    XDRY EN+1~, LOOP+7*, LOOP+9, LOOP+13, LOOP+15
    XMCHAN SENDMESG+1~, SENDMESG+7*
    XMDUZ SENDMESG+1~, SENDMESG+7*
    XMSUB ENPAIR+61~, ENPAIR+62*, ENPAIR+64, SENDMESG~
    XMTEXT ENPAIR+61~, ENPAIR+63*, ENPAIR+64, SENDMESG~
    XMY SENDMESG+1~
    XMY( SENDMESG+5*, SENDMESG+6*
    XXX RMOVPAIR+1~
    XXX(15 RMOVPAIR+7*, RMOVPAIR+8*, RMOVPAIR+9*, RMOVPAIR+10*
    Y LOOP+6, LOOP+7, LISTPROB+12~, LISTPROB+13

    Marked Items

    Name Field # of Occurrence
    $T(EN^PSJPATMR ENPAIR+20
    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