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

Package: Toolkit

Routine: XPAREDIT


Information

XPAREDIT ; SLC/KCM - Simple Parameter Editor ;11:15 PM 4 Feb 1998

Source Information

Source file <XPAREDIT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Toolkit 5 (DEL,REP)^XPAR  $$EXTPTR^XPARDD  (BLDLST,GETCLS)^XPAREDT1  ($$ERR,EDIT1,EDITVAL,SELINST)^XPAREDT2  (TED,TEDH)^XPAREDT3  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 81

Package Total Caller Graph
Order Entry Results Reporting 37 OR GN SET LOCATIONS  OR INPT CLOZAPINE MESSAGE  OR PARAM ADD MENU  OR PARAM CHART COPY  OR PARAM ORDER MISC  OR PARAM PRINTS (HOSP)  OR PARAM PRINTS (LOC)  OR PARAM REQ/LABEL  
OR PARAM SERVICE COPY  OR PARAM SUMMARY REPORTS  OR PARAM UNSIGNED ORDERS VIEW  OR PARAM WORK COPY  ORB3MGR1  ORB3REC  ORCMEDT5  OREV3  
ORKMGR  ORKREC  ORLP3MGR  ORLP3USR  ORQ SEARCH RANGE A USER PARAM  ORQ SEARCH RANGE DIVISION PAR  ORQ SEARCH RANGE LOCATION PAR  ORQ SEARCH RANGE SERVICE PARAM  
ORQ SEARCH RANGE SYSTEM PARAM  ORQ SEARCH RANGE USER PARAM  ORQP REPORT SYSTEM PARAM  ORQP REPORT USER PARAM  ORW ALLERGY EIE  ORW HEALTH SUMMARY TYPES  ORW NONVA REASON  ORW PARAM GENERAL ALL  
ORW PARAM GENERAL USER  ORW TOOL MENU ITEMS  ORWOR EXPIRED ORDERS  ORWORB REMOVE  ORWORB REMOVE NON-OR  
Clinical Reminders 10 PXRM CPRS COVER SHEET LIST  PXRM CPRS LOOKUP CATEGORIES  PXRM GEC STATUS CHECK  PXRM GUI REMINDERS ACTIVE  PXRM MENTAL HEALTH ACTIVE  PXRM PROGRESS NOTE HEADERS  PXRM REPORT TEMPLATE (USER)  PXRM TIU DIALOG TEMPLATE  
PXRM WH PRINT NOW  PXRMRPCD  
PCE Patient Care Encounter 9 PXRM CPRS COVER SHEET LIST  PXRM CPRS LOOKUP CATEGORIES  PXRM GEC STATUS CHECK  PXRM GUI REMINDERS ACTIVE  PXRM MENTAL HEALTH ACTIVE  PXRM PROGRESS NOTE HEADERS  PXRM REPORT TEMPLATE (USER)  PXRM TIU DIALOG TEMPLATE  
PXRM WH PRINT NOW  
Lab Service 4 LR USER PARAM  LR7O PAR DOMAIN  LR7O PAR LOC  LR7O PAR PKG  
Toolkit 4 XPAREDT1  XPAREDT2  XPAREDT3  XPARLIST  
Barcode Medication Administration 2 PSB TOOL MENU ITEMS  PSBPAR  
IHS Electronic Health Record 2 BEHORXEI  BEHUTIL  
Registration 2 DGLP3USR  VAFCHFS  
Consult Request Tracking 1 GMRC IFC PARAMETER EDIT  
Electronic Dental Record 1 BADEVNT1  
Health Summary 1 GMTSXA  
IHS Changes To Pharmacy 1 APSPUTIL  
Kernel 1 XUP522  
MSC RPC Broker 1 CIANBINI  
Mental Health Social Services 1 AMHUTIL1  
RPC Broker 1 XWBTCP  
Scheduling 1 SDSCPRM  
Text Integration Utility 1 TIUSRVT4  
VueCentric Framework 1 CIAVINIT  

Entry Points

Name Comments DBIA/ICR reference
EDITA ; come here from TEDIT
ENTDISP(ENT) ; function - returns text descriptor of an entity
GETENT(ENT,PAR,JUST1) ; Select entity to edit for a given parameter
; .ENT=entity, returned as variable pointer
; PAR=ien^name
  • ICR #2336
    • Status: Active
    • Usage: Supported
    EN ; Enter here to select parameter, then entity
    ; ENT: variable pointer to the entity selected
    ; PAR: IEN^NAME of the selected parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    EDIT(ENT,PAR) ; Edit value(s) for entity/parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    GETCLS(X,PAR,LST) ; Choose the class of entity
    EDITPAR(PAR) ; Edit a single parameter
    ; add second parameter to limit entity type? ENTTYP
    ; LOC,CLS,TEA,USR,DIV,SVC call LOOKUP with appropriate FN
    ; PKG,SYS figure out appropriate defaults (param nmsp, domain)
  • ICR #2336
    • Status: Active
    • Usage: Supported
    DASH(N) ; function - returns N dashes
    CENTER(X) ; function - writes a centered title with dashes on either side
    LOOKUP(X,FN) ; Lookup entry in a file and return selection as varptr
    ; if X has data, pass that into lookup silently
    TEDH(TLT,SHWFLG,ALLENT) ; Edit parameters using a template, show dash headers
  • ICR #2336
    • Status: Active
    • Usage: Supported
    BLDLST(LST,PAR) ; Build list of entities allowed for this parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    GETPAR(Y) ; Select parameter to edit
  • ICR #2336
    • Status: Active
    • Usage: Supported
    TEDIT(ENT,PAR,INST,USRX) ; Edit an instance of a parameter
    TED(TLT,SHWFLG,ALLENT) ; Edit parameters using a template
  • ICR #2336
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    ^DIC GETPAR+4, LOOKUP+5
    DEL^XPAR EDITA+8
    REP^XPAR EDITA+12
    $$EXTPTR^XPARDD ENTDISP+4
    BLDLST^XPAREDT1 BLDLST+1
    GETCLS^XPAREDT1 GETCLS+1
    $$ERR^XPAREDT2 EDITA+9, EDITA+11
    EDIT1^XPAREDT2 TEDIT+3, EDITA+13, EDITA+14
    EDITVAL^XPAREDT2 EDITA+7
    SELINST^XPAREDT2 EDITA+6
    TED^XPAREDT3 TED+1
    TEDH^XPAREDT3 TEDH+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,?25,"--- Edit Parameter Values ---"
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: !,$$DASH($S($D(IOM):IOM-1,1:78))
    • Line Location: EN+5
    Function Call: WRITE
    • Prompt: $P(PAR,U,2)
    • Line Location: EDITPAR+7
    Function Call: WRITE
    • Prompt: !!,$$CENTER("Setting "_$P(PAR,U,2)_" "_$$ENTDISP(ENT))
    • Line Location: EDITA+2
    Function Call: WRITE
    • Prompt: !!,"For "_$P(PAR,U,2)_" -"
    • Line Location: EDITA+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDITA+7
    Function Call: WRITE
    • Prompt: $$ERR^XPAREDT2
    • Line Location: EDITA+9
    Function Call: WRITE
    • Prompt: " ...deleted"
    • Line Location: EDITA+10
    Function Call: WRITE
    • Prompt: $$ERR^XPAREDT2
    • Line Location: EDITA+11
    Function Call: WRITE
    • Prompt: " ",$P(INST,U,2)
    • Line Location: EDITA+13
    Routine Call
    • DIC
    • Line Location:
      • GETPAR+4
      • LOOKUP+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC - [#1] LOOKUP+6
    ^TMP($J EDITA+15!
    ^XTV(8989.51 - [#8989.51] EDITPAR+5, EDITPAR+6, EDITA+3
    ^XTV(8989.518 - [#8989.518] ENTDISP+3

    Label References

    Name Line Occurrences
    $$CENTER EDITA+2
    $$DASH EN+5, CENTER+3
    $$ENTDISP EDITA+2
    BLDLST EN+6, GETENT+5
    EDIT EN+7, EDITPAR+9
    EDITA TEDIT+2
    GETCLS GETENT+11
    GETENT EN+7, EDITPAR+8
    GETPAR EN+5
    LOOKUP GETENT+9, GETENT+15

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ALLENT TED~, TEDH~
    DIC GETPAR+1~, GETPAR+2*, LOOKUP+2~, LOOKUP+3*
    DIC("W" GETPAR+3*
    DIC(0 GETPAR+2*, LOOKUP+4*
    DIRUT EN+4~, TEDIT+4!, EDITA+3
    DTOUT EN+4~, TEDIT+4!, GETPAR+1~, LOOKUP+2~, LOOKUP+5
    DUOUT EN+4~, TEDIT+4!, GETPAR+1~, LOOKUP+2~, LOOKUP+5
    ENT EN+4~, EN+7, TEDIT~, EDITPAR+4~, EDITPAR+8, EDITPAR+9, GETENT~, GETENT+5*, GETENT+7*, GETENT+8
    , GETENT+9, GETENT+12*, GETENT+13*, GETENT+14*, GETENT+15*, EDIT~, EDITA+2, EDITA+6, EDITA+8, EDITA+12
    , ENTDISP~, ENTDISP+1, ENTDISP+3, ENTDISP+4
    ERR EDITA+1~, EDITA+8, EDITA+9, EDITA+11, EDITA+12
    FN LOOKUP~, LOOKUP+3, LOOKUP+6, ENTDISP+2~, ENTDISP+3*, ENTDISP+4
    I GETENT+3~, CENTER+1~, DASH+1~, DASH+2*
    INST TEDIT~, TEDIT+2, EDIT+1~, EDITA+3, EDITA+6, EDITA+7, EDITA+8, EDITA+11, EDITA+12*, EDITA+13
    , EDITA+14*
    INSTLST EDITA+1~
    IOM EN+5, CENTER+2
    JUST1 EN+4~, EN+7, GETENT~, GETENT+4*, GETENT+8*
    LST EN+4~, EN+6, GETENT+3~, GETENT+5, GETENT+6, GETENT+11, BLDLST~, GETCLS~
    LST( GETENT+7, GETENT+14, GETENT+15
    LST(0 GETENT+7
    MAR CENTER+1~, CENTER+2*, CENTER+3
    N DASH~, DASH+2
    >> NOHDR EDITA+2, EDITA+4
    PAR EN+4~, EN+5, EN+6, EN+7, TEDIT~, EDITPAR~, EDITPAR+5*, EDITPAR+6*, EDITPAR+8, EDITPAR+9
    , GETENT~, GETENT+5, GETENT+11, EDIT~, EDITA+2, EDITA+3, EDITA+4, EDITA+6, EDITA+7, EDITA+8
    , EDITA+12, BLDLST~, GETCLS~
    SHWFLG TED~, TEDH~
    TLT TED~, TEDH~
    U TEDIT+4, EDITPAR+6, GETENT+7, GETENT+14, EDITA+2, EDITA+3, EDITA+4, EDITA+7, EDITA+8, EDITA+11
    , EDITA+12, EDITA+13, ENTDISP+3
    USRX TEDIT~, TEDIT+2*, TEDIT+3*, TEDIT+4
    X GETPAR+1~, GETENT+3~, GETENT+7*, GETENT+9, GETENT+11, GETENT+12, GETENT+13, GETENT+14, GETENT+15, EDIT+1~
    , GETCLS~, LOOKUP~, LOOKUP+4, LOOKUP+5*, LOOKUP+6*, ENTDISP+2~, ENTDISP+3*, ENTDISP+4*, ENTDISP+5, CENTER~
    , CENTER+2, CENTER+3, DASH+1~, DASH+2*, DASH+3
    Y TEDIT+1!, GETPAR~, GETPAR+4*, EDIT+1~, EDITA+6*, EDITA+7*, EDITA+8, EDITA+11, EDITA+12, LOOKUP+5
    , LOOKUP+6
    Y("X" TEDIT+2, TEDIT+3
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All