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

Package: Kernel

Routine: XUPROD


Information

XUPROD ;ISF/RWF - Is this a PROD account. ;18/06/20

Source Information

Source file <XUPROD.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$SID^%ZOSV  $$DT^XLFDT  
VA FileMan 2 (,FILE)^DIE  ^DIR  

Caller Graph

Caller Graph Total: 311

Package Total Caller Graph
Integrated Billing 58 IB20P475  IB20P509  IBACCWLUTIL  IBCB1  IBCE837A  IBCE837I  IBCE837K  IBCE837Q  
IBCE837T  IBCEDC  IBCEDS  IBCEPTC  IBCNEDE  IBCNEHLU  IBCNEKIT  IBCNETST  
IBCNEUT7  IBCNHUT2  IBCNINS  IBCNSGM  IBE585PO  IBEC704P  IBEC769P  IBJDE  
IBJPI2  IBY368PO  IBY377PO  IBY400PO  IBY400PR  IBY403PR  IBY416PO  IBY438PO  
IBY497PO  IBY516PO  IBY517PO  IBY519PO  IBY549PO  IBY577PO  IBY593PR  IBY601PO  
IBY608PO  IBY621PO  IBY631PO  IBY652E  IBY652P  IBY659PO  IBY664PO  IBY668PR  
IBY687PO  IBY702PO  IBY718PO  IBY727PO  IBY732PO  IBY737PR  IBY752PO  IBY770PO  
IBY771PO  ^IBA(364.7  
Clinical Reminders 36 PXRMG2M1  PXRMMSG  PXRMP17I  PXRMP18I  PXRMP19I  PXRMP20I  PXRMP21I  PXRMP23I  
PXRMP24I  PXRMP26I  PXRMP27I  PXRMP28I  PXRMP29I  PXRMP30I  PXRMP31I  PXRMP32I  
PXRMP34I  PXRMP35I  PXRMP36I  PXRMP37I  PXRMP39I  PXRMP40I  PXRMP41I  PXRMP43I  
PXRMP45I  PXRMP50I  PXRMP51I  PXRMP52I  PXRMP54I  PXRMP55I  PXRMP56I  PXRMP57I  
PXRMP61I  PXRMP62I  PXRMP63I  PXRMP71I  
Kernel 25 INSTALL QUESTIONS  XPDIST  XQ12  XQ55SPEC  XU SID ASK  XU SID EDIT  XU SID STARTUP  XU671PO  
XU8P540  XU8P585  XU8P724  XU8PE655  XU8PE689  XUESSO1  XUESSO4  XUIAMPR  
XUIAMXML  XULMP  XUP  XUP744  XUSNPIE3  XUSNPIED  XUSNPIX1  XUSNPIXI  
XUSRB  
Outpatient Pharmacy 22 PSO254EN  PSO293P1  PSO293PI  PSO480P  PSO736PO  PSO769PI  PSO7E529  PSO7E684  
PSO7L529  PSO7P402  PSO7P684  PSOASAP0  PSOCIDC3  PSOCIDC4  PSOCIDC8  PSOCPBK1  
PSOCPBK2  PSOCPBK5  PSODEAUJ  PSOERXO1  PSONVAP2  PSORWRAP  
Registration 14 DG53P942  DG884P  DG933PO  DG944PST  DG950PST  DG967PST  DGAUDIT  DGAUDIT3  
DGAUDITP  DGPFCNV  DGPFHLR  DGPFHLS  DGPFPARM  DGSEC4  
Imaging 13 MAGBAPI  MAGDHLE  MAGGTPT1  MAGGTU3  MAGJUTL3  MAGQBGCC  MAGQBPG1  MAGQBUT1  
MAGQBUT4  MAGQBUT6  MAGQE2  MAGSPID  MAGTP008  
Health Data and Informatics 12 HDI1000A  HDISDOC  HDISVAP2  HDISVAP3  HDISVC01  HDISVCFX  HDISVCUT  HDISVF01  
HDISVF07  HDISVF09  HDISVF10  HDIZZ003  
IFCAP 11 PRC153P  PRC229  PRC51225  PRCB1GE1  PRCFDO  PRCH130  PRCHITM3  PRCHITM4  
PRCHITM6  PRCHLO5  PRCSX123  
Order Entry Results Reporting 9 OR628P  ORACCESS  ORPDMPWS  ORVCO  ORWU  ORY212E  ORY405E  ORY519  
ORY539E  
Oncology 8 ONC2PR18  ONC2PR19  ONC2PR20  ONC2PR21  ONC2PR22  ONC2PS18  ONCWEB1  ONCWEB2  
E Claims Management Engine 7 BPS20PST  BPS22PST  BPS31POST  BPS40PRE  BPSJVAL1  BPSNCPDP  BPSTEST  
Pharmacy Data Management 7 PSS192PO  PSS1P178  PSS1P201  PSS211PO  PSSCUSRQ  PSSDSONF  PSSMEDRQ  
Accounts Receivable 5 PRCA355P  PRCAMDS  PRCAP269  RCTCSP2  RCTCSP3  
Lab Service 5 LR317  LRMLED  LRMLEDA  LRWU8  LRWU9  
Scheduling 5 SCMCWS1  SD376P  SD53P750  SDESCANCELVVS  SDPAWS  
Virtual Patient Record 5 VPRHS  VPRHSX  VPRHSX1  VPRHSX2  VPRP16  
Lexicon Utility 4 LEX2119P  LEXXFI7  LEXXGU  LEXXII  
Radiology Nuclear Medicine 4 RA119ENV  RAIPS135  RAIPS220  RAXMLSND  
Text Integration Utility 4 TIU343P  TIUP246  TIUP258  TIUP290  
Event Capture 3 EC2P122  EC2P134  ECUMRPC2  
Hospital Based Home Care 3 HBHCPS24  HBHCRXMT  HBHCXMT  
PCE Patient Care Encounter 3 PXP211I  PXVP206  PXVP215  
Surgery 3 SROATCM2  SROATM4  SROAWL1  
VDEF 3 VDEFKIDS  VDEFP10  VDEFUTIL  
Web Services Client 3 XOBWENV  XOBWLIB1  XOBWP004  
Adverse Reaction Tracking 2 GMRAPS49  GMRAUTL1  
Automated Lab Instruments 2 LA7HDR  LA7HDR1  
Automated Medical Information Exchange 2 DVBABFRM  DVBABURL  
Barcode Medication Administration 2 PSBRPC  PSBVT  
Clinical Case Registries 2 RORRP012  RORUTL05  
Clinical Procedures 2 MDCLIO  MDKRPC2  
Enrollment Application System 2 EAS1071A  EAS214P  
Enterprise Health Management Platform 2 HMPCRPC1  HMPEQLM  
Master Patient Index VistA 2 MPIFHWSC  MPIFP61  
Mental Health 2 YS223PST  YSCL149P  
Advanced Medication Platform 1 PREAPO3  
Capacity Management 1 KMPVCCFG  
Care Management 1 ORRCLNP  
Consult Request Tracking 1 GMRC185  
DRG Grouper 1 ICD1889P  
Emergency Department Integration Software 1 EDPYCHK  
Fee Basis 1 FBXIP132  
General Medical Record - Vitals 1 GMVRPCP  
MailMan 1 XMDB1P4  
Methicillin Resistant Staph Aurerus Initiative Reports 1 MMRSIPC5  
My HealtheVet 1 MHVU1  
National Drug File 1 PSNPREDS  
National Health Information Network 1 NHINP025  
Nursing Service 1 NURXP43  
Prosthetics 1 RMPR210P  
Remote Order Entry System 1 RMPFRPC1  
Veterans Data Integration and Federation 1 VDI1P2  
VistALink 1 XOBVSYSI  
VistALink Security 1 XOBSCAV1  

Entry Points

Name Comments DBIA/ICR reference
PROD(FORCE) ;Return 1 if this is a production account
  • ICR #4440
    • Status: Active
    • Usage: Supported
    CHECK ;Check if SID matched stored value, Set field 501
    SSID(SID) ;Set the SID into KSP.
    ASK ;Ask user if this is prod.
    EDIT ;Edit Logical - Physical fields
    CFG(CFG) ; RETURN BOOLEAN CHECK FOR CONFIGURATION TYPE
    INSTNM(CASE) ; RETURNS INSTANCE NAME

    External References

    Name Field # of Occurrence
    $$SID^%ZOSV CHECK+3, ASK+14
    ^DIE EDIT+6
    FILE^DIE CHECK+5, SSID+4
    ^DIR ASK+8, ASK+13
    $$DT^XLFDT CHECK+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"This is "_$S(P=P2:"still",1:"now")_" a "_$S(P2:"PRODUCTION",1:"TEST")_" account.",!
    • Line Location: ASK+16
    Function Call: WRITE
    • Prompt: !,"Busy, Please try again later.",!
    • Line Location: EDIT+2
    Function Call: WRITE
    • Prompt: !!,"This is only valid in a Cache v5.2 client/server configuration."
    • Line Location: EDIT+3
    Function Call: WRITE
    • Prompt: !,"This lets you edit the fields that support the"
    • Line Location: EDIT+4
    Function Call: WRITE
    • Prompt: !,"LOGICAL to PHYSICAL translation for the System ID.",!!
    • Line Location: EDIT+5
    Routine Call
    • DIE
    • Line Location:
      • EDIT+6
    Routine Call
    • DIE
    • Line Location:
      • CHECK+5
      • SSID+4
    Routine Call
    • DIR
    • Line Location:
      • ASK+8
      • ASK+13

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^XTV(8989.3 - [#8989.3] PROD+6, PROD+8, CHECK+2, CHECK+3, CHECK+6, SSID+3, SSID+5, EDIT+2, EDIT+7

    Label References

    Name Line Occurrences
    $$CFG PROD+4
    $$INSTNM CFG+2
    $$PROD ASK+1, ASK+15
    CHECK PROD+8
    SSID ASK+14

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CASE INSTNM~, INSTNM+1
    CFG CFG~, CFG+3, CFG+4, CFG+5, CFG+6, CFG+7, CFG+8, CFG+9, CFG+10, CFG+11
    , CFG+12, CFG+13, CFG+14, CFG+15, CFG+16, CFG+17, CFG+18
    CSID CHECK+1~, CHECK+3*, CHECK+4
    DA EDIT+1~, EDIT+6*
    DIE EDIT+1~, EDIT+6*
    >> DILOCKTM EDIT+2
    DIR ASK+1~, ASK+9!
    DIR("A" ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, ASK+7*, ASK+11*, ASK+12*
    DIR("B" ASK+2*, ASK+12*
    DIR(0 ASK+2*, ASK+10*
    >> DIRUT ASK+8
    DR EDIT+1~, EDIT+6*
    DT PROD+7
    FDA CHECK+1~, SSID+1~
    FDA( CHECK+4*, SSID+2*
    FORCE PROD~, PROD+7
    LC PROD+5~
    P ASK+1~*, ASK+2, ASK+4, ASK+11, ASK+13, ASK+16
    P2 ASK+1~, ASK+15*, ASK+16
    SID PROD+5~, PROD+6*, PROD+7, PROD+8*, PROD+9, SSID~, SSID+2
    SSID CHECK+1~, CHECK+3*, CHECK+4
    T ASK+1~, ASK+8*, ASK+14
    X CFG+2~*, CFG+3, CFG+4, CFG+5, CFG+6, CFG+7, CFG+8, CFG+9, CFG+10, CFG+11
    , CFG+12
    XUCASE INSTNM+1~*, INSTNM+2
    Y ASK+1~, ASK+8, ASK+12, ASK+13, ASK+14, CFG+2~, CFG+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All