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. ;04/12/10 14:04

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

Package Total Caller Graph
Clinical Reminders 34 PXRMG2M1  PXRMMSG  PXRMP17I  PXRMP18I  PXRMP19I  PXRMP20I  PXRMP21I  PXRMP23I  
PXRMP24I  PXRMP26I  PXRMP27I  PXRMP28I  PXRMP29I  PXRMP30I  PXRMP31I  PXRMP32I  
PXRMP34I  PXRMP35I  PXRMP36I  PXRMP37I  PXRMP39I  PXRMP40I  PXRMP41I  PXRMP43I  
PXRMP50I  PXRMP51I  PXRMP52I  PXRMP54I  PXRMP55I  PXRMP56I  PXRMP57I  PXRMP61I  
PXRMP62I  PXRMP63I  
Integrated Billing 26 IB20P475  IB20P509  IBCE837A  IBCNEKIT  IBCNETST  IBCNHUT2  IBCNSGM  IBE585PO  
IBY368PO  IBY377PO  IBY400PO  IBY400PR  IBY403PR  IBY416PO  IBY438PO  IBY497PO  
IBY516PO  IBY517PO  IBY519PO  IBY549PO  IBY577PO  IBY593PR  IBY601PO  IBY608PO  
IBY621PO  ^IBA(364.7  
Kernel 18 XPDIST  XQ12  XQ55SPEC  XU SID ASK  XU SID EDIT  XU SID STARTUP  XU671PO  XU8P540  
XU8P585  XU8PE655  XUESSO1  XUESSO4  XUP  XUSNPIE3  XUSNPIED  XUSNPIX1  
XUSNPIXI  XUSRB  
Outpatient Pharmacy 14 PSO254EN  PSO293P1  PSO293PI  PSO480P  PSO7P402  PSOASAP0  PSOCIDC3  PSOCIDC4  
PSOCIDC8  PSOCPBK1  PSOCPBK2  PSOCPBK5  PSONVAP2  PSORWRAP  
Health Data and Informatics 12 HDI1000A  HDISDOC  HDISVAP2  HDISVAP3  HDISVC01  HDISVCFX  HDISVCUT  HDISVF01  
HDISVF07  HDISVF09  HDISVF10  HDIZZ003  
Imaging 12 MAGBAPI  MAGDHLE  MAGGTPT1  MAGGTU3  MAGJUTL3  MAGQBGCC  MAGQBPG1  MAGQBUT1  
MAGQBUT4  MAGQBUT6  MAGQE2  MAGTP008  
Registration 8 DG53P942  DG884P  DG933PO  DG944PST  DG950PST  DG967PST  DGPFCNV  DGPFPARM  
Pharmacy Data Management 7 PSS192PO  PSS1P178  PSS1P201  PSS211PO  PSSCUSRQ  PSSDSONF  PSSMEDRQ  
E Claims Management Engine 5 BPS20PST  BPS22PST  BPSJVAL1  BPSNCPDP  BPSTEST  
IFCAP 5 PRC153P  PRCFDO  PRCH130  PRCHLO5  PRCSX123  
Lab Service 5 LR317  LRMLED  LRMLEDA  LRWU8  LRWU9  
Lexicon Utility 4 LEX2119P  LEXXFI7  LEXXGU  LEXXII  
Accounts Receivable 3 PRCAMDS  PRCAP269  RCTCSP2  
Event Capture 3 EC2P122  EC2P134  ECUMRPC2  
Radiology Nuclear Medicine 3 RA119ENV  RAIPS135  RAXMLSND  
VDEF 3 VDEFKIDS  VDEFP10  VDEFUTIL  
Virtual Patient Record 3 VPRHS  VPRHSX  VPRP16  
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  
Enterprise Health Management Platform 2 HMPCRPC1  HMPEQLM  
Master Patient Index VistA 2 MPIFHWSC  MPIFP61  
Order Entry Results Reporting 2 ORWU  ORY212E  
PCE Patient Care Encounter 2 PXVP206  PXVP215  
Scheduling 2 SCMCWS1  SD376P  
Text Integration Utility 2 TIUP246  TIUP258  
Care Management 1 ORRCLNP  
DRG Grouper 1 ICD1889P  
Emergency Department Integration Software 1 EDPYCHK  
Enrollment Application System 1 EAS1071A  
Fee Basis 1 FBXIP132  
General Medical Record - Vitals 1 GMVRPCP  
Hospital Based Home Care 1 HBHCPS24  
Methicillin Resistant Staph Aurerus Initiative Reports 1 MMRSIPC5  
My HealtheVet 1 MHVU1  
National Drug File 1 PSNPREDS  
Nursing Service 1 NURXP43  
Remote Order Entry System 1 RMPFRPC1  
VistA System Monitor 1 KMPVCCFG  
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

    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+5, PROD+7, CHECK+2, CHECK+3, CHECK+6, SSID+3, SSID+5, EDIT+2, EDIT+7

    Label References

    Name Line Occurrences
    $$PROD ASK+1, ASK+15
    CHECK PROD+7
    SSID ASK+14

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    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+6
    FDA CHECK+1~, SSID+1~
    FDA( CHECK+4*, SSID+2*
    FORCE PROD~, PROD+6
    LC PROD+4~
    P ASK+1~*, ASK+2, ASK+4, ASK+11, ASK+13, ASK+16
    P2 ASK+1~, ASK+15*, ASK+16
    SID PROD+4~, PROD+5*, PROD+6, PROD+7*, PROD+8, SSID~, SSID+2
    SSID CHECK+1~, CHECK+3*, CHECK+4
    T ASK+1~, ASK+8*, ASK+14
    Y ASK+1~, ASK+8, ASK+12, ASK+13, ASK+14
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All