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

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

Package Total Caller Graph
Order Entry Results Reporting 42 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  ORAMSET  ORB3MGR1  ORB3REC  ORCMEDT5  
OREV EDIT WRITE ORDERS PARAM  OREV3  ORFD435P  ORKMGR  ORKREC  ORLP3MGR  ORLP3USR  ORPARMGR  
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 CLIN IND DATE DFLT  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  
Lab Service 7 LR USER PARAM  LR7O PAR DOMAIN  LR7O PAR LOC  LR7O PAR PKG  LR7OV5  LRJSAU2  LRJSML2  
Toolkit 5 XPAR EDIT PARAMETER  XPAREDT1  XPAREDT2  XPAREDT3  XPARLIST  
Kernel 3 XUP522  ^DIC(19  ^ORD(101  
Shift Handoff Tool 3 CRHD11  CRHD4  CRHD6  
Barcode Medication Administration 2 PSB TOOL MENU ITEMS  PSBPAR  
Integrated Billing 2 IB CIDC INSURANCE SWITCH  IBBASCI  
Registration 2 DGLP3USR  VAFCHFS  
Auto Replenishment Ward Stock 1 PSGW PACKAGE PARAMETERS  
Automated Lab Instruments 1 LA7UCFG  
Consult Request Tracking 1 GMRC IFC PARAMETER EDIT  
Enterprise Health Management Platform 1 HMPMONC  
Health Summary 1 GMTSXA  
Pharmacy Data Management 1 PSSOPKI  
Problem List 1 GMPLBLD2  
RPC Broker 1 XWBTCP  
Scheduling 1 SDSCPRM  
Text Integration Utility 1 TIUSRVT4  
VA FileMan 1 DDSOPT  
VistA Package Sizing Utility 1 A1VSLM  

Entry Points

Name Comments DBIA/ICR reference
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
    TED(TLT,SHWFLG,ALLENT) ; Edit parameters using a template
  • ICR #2336
    • Status: Active
    • Usage: Supported
    TEDH(TLT,SHWFLG,ALLENT) ; Edit parameters using a template, show dash headers
  • ICR #2336
    • Status: Active
    • Usage: Supported
    TEDIT(ENT,PAR,INST,USRX) ; Edit an instance of a parameter
    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
    GETPAR(Y) ; Select parameter to edit
  • ICR #2336
    • Status: Active
    • Usage: Supported
    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
    EDIT(ENT,PAR) ; Edit value(s) for entity/parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    EDITA ; come here from TEDIT
    BLDLST(LST,PAR) ; Build list of entities allowed for this parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    GETCLS(X,PAR,LST) ; Choose the class of entity
    LOOKUP(X,FN) ; Lookup entry in a file and return selection as varptr
    ; if X has data, pass that into lookup silently
    ENTDISP(ENT) ; function - returns text descriptor of an entity
    CENTER(X) ; function - writes a centered title with dashes on either side
    DASH(N) ; function - returns N dashes

    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