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 Total: 4

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

Caller Graph

Caller Graph Total: 74

Package Total Caller Graph
Clinical Reminders 14 PXRMG2M1  PXRMP17I  PXRMP18I  PXRMP20I  PXRMP21I  PXRMP23I  PXRMP24I  PXRMP26I  
PXRMP27I  PXRMP28I  PXRMP30I  PXRMP31I  PXRMP34I  PXRMP36I  
Kernel 14 XPDIST  XQ12  XQ55SPEC  XU SID ASK  XU SID EDIT  XU SID STARTUP  XU8P540  XU8P585  
XUP  XUSNPIE3  XUSNPIED  XUSNPIX1  XUSNPIXI  XUSRB  
Health Data and Informatics 8 HDI1000A  HDISVC01  HDISVCFX  HDISVCUT  HDISVF01  HDISVF07  HDISVF09  HDISVF10  
Outpatient Pharmacy 7 PSO293P1  PSO293PI  PSOCIDC3  PSOCIDC4  PSOCIDC8  PSOCPBK1  PSOCPBK2  
iCare 7 BQICAEXP  BQICAVAL  BQIIPCME  BQIIPCMF  BQIIPPOR  BQIIPTST  BQIMUEXP  
Automated Lab Instruments 3 LA7CHDR  LA7HDR  LA7HDR1  
Lexicon Utility 3 LEX2080P  LEXXFI7  LEXXII  
IHS Personal Health Record 2 BPHRCHK  BPHRMUPM  
IHS Standard Terminology 2 BSTSAPIL  BSTSSTA  
Order Entry Results Reporting 2 ORWU  ORYCHKE  
Adverse Reaction Tracking 1 GMRAUTL1  
Barcode Medication Administration 1 PSBRPC  
Care Management 1 ORRCLNP  
General Medical Record - Vitals 1 GMVRPCP  
IHS Immunizations Interface 1 BYIMIMM6  
Lab Service 1 LR317  
Patient Registration MPI 1 AGMPHLU  
Pharmacy Data Management 1 PSSMEDRQ  
Registration 1 DGPFPARM  
Text Integration Utility 1 TIUP246  
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
    ASK ;Ask user if this is prod.
    SSID(SID) ;Set the SID into KSP.
    CHECK ;Check if SID matched stored value, Set field 501
    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