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

Package Total Caller Graph
Order Entry Results Reporting 57 OR DST/CTB FEATURE SWITCH  OR DST/CTB URL EDIT  OR ENABLE CTB CONS ACT DLGS  OR FLAG ORDER EXPIRE DEFAULT  OR GN SET LOCATIONS  OR IMM CONTACT INFO  OR IMM COVERSHEET DIAGNOSIS  OR INPT CLOZAPINE MESSAGE  
OR OTHER BANNER REMINDER  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  OR UNFLAGGING MESSAGE  OR UNFLAGGING RESTRICTIONS  OR VIMM IMM NOTE TITLE  OR VIMM IMM REM DEFINITIONS  OR VIMM REMINDER DIALOG ONLY  
OR VIMM SKIN TEST REM DEFS  ORACCESS  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  ORWDPS11  ORWOR EXPIRED ORDERS  ORWORB REMOVE  
ORWORB REMOVE NON-OR  
Clinical Reminders 11 PXRM CPRS COVER SHEET LIST  PXRM CPRS LOOKUP CATEGORIES  PXRM EVALUATE COVERSHEET  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 6 XPAR EDIT PARAMETER  XPAREDT1  XPAREDT2  XPAREDT3  XPARLIST  XTVSLM  
Kernel 3 XUP522  ^DIC(19  ^ORD(101  
Registration 3 DGAUDIT3  DGLP3USR  VAFCHFS  
Shift Handoff Tool 3 CRHD11  CRHD4  CRHD6  
Automated Lab Instruments 2 LA7PCFG  LA7UCFG  
Barcode Medication Administration 2 PSB TOOL MENU ITEMS  PSBPAR  
Consult Request Tracking 2 GMRC FSC HCP MAIL GROUP  GMRC IFC PARAMETER EDIT  
Integrated Billing 2 IB CIDC INSURANCE SWITCH  IBBASCI  
Outpatient Pharmacy 2 PSODEART  PSORPC01  
PCE Patient Care Encounter 2 PXV SKIN TEST READING CPT  PXVPARS  
Pharmacy Data Management 2 PSSEXLST  PSSOPKI  
Text Integration Utility 2 TIUSRVT4  TIUSRVT5  
Auto Replenishment Ward Stock 1 PSGW PACKAGE PARAMETERS  
Enterprise Health Management Platform 1 HMPMONC  
Health Summary 1 GMTSXA  
Imaging 1 MAGIP356  
Problem List 1 GMPLBLD2  
RPC Broker 1 XWBTCP  
Scheduling 1 SDSCPRM  
VA FileMan 1 DDSOPT  
VistA Package Sizing Utility 1 A1VSLM  
Womens Health 1 WVPKG  

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