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

Package: IFCAP

Routine: PRCUESIG


Information

PRCUESIG ;WISC@ALTOONA/CTB/TEN-ROUTINE TO ENTER OR CHANGE ELECTRONIC SIGNATURE CODE (IFCAP) ;5/4/93 8:31 AM

Source Information

Source file <PRCUESIG.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 (DE,EN,HASH)^XUSHSHP  
VA FileMan 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 66

Package Total Caller Graph
IFCAP 65 PRCBES1  PRCFA8  PRCFACA  PRCFACR  PRCFACX0  PRCFAES1  PRCFAES2  PRCFAV  
PRCFDES1  PRCFDES2  PRCFDES3  PRCFES1  PRCFFMOM  PRCFFU4  PRCFGPF  PRCFRET  
PRCH1B  PRCHAM  PRCHAM8  PRCHAMYA  PRCHCS0  PRCHCS4  PRCHES0  PRCHES1  
PRCHES10  PRCHES11  PRCHES12  PRCHES14  PRCHES2  PRCHES3  PRCHES4  PRCHES5  
PRCHES6  PRCHES7  PRCHES8  PRCHES9  PRCHG  PRCHJS07  PRCHNPO4  PRCHNRQ  
PRCHQ1  PRCHQ10  PRCHQ13A  PRCHQ14  PRCHQ2  PRCHQ2B  PRCHQ3  PRCHQ5  
PRCHQ9  PRCHREC2  PRCHS  PRCHSF  PRCPAWA0  PRCPPOLM  PRCPSSQT  PRCPUCC  
PRCPWPLM  PRCPWPPL  PRCSAPP  PRCSAPP2  PRCSC1  PRCSC2  PRCSC3  PRCSC4  
PRCSEC2  
Equipment Turn-In Request 1 PRCNUTL  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**68**;Oct 20, 2000
ENCODE(X,X1,X2)
DECODE(X,X1,X2)
HASH(X)
SUM(X) ;CREATE CHECKSUM VALUE FOR STRING
  • ICR #6552
    • Status: Active
    • Usage: Private
    ESIG(USERNUM,MESSAGE) ;interogate user for electronic signature code
  • ICR #1552
    • Status: Active
    • Usage: Private
    NOW() ;Extrinsic function to return current time

    External References

    Name Field # of Occurrence
    NOW^%DTC NOW+2
    DE^XUSHSHP DECODE
    EN^XUSHSHP ENCODE
    HASH^XUSHSHP HASH

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"You have no signature code on file. Please contact your IRM staff for assistance.",$C(7),!
    • Line Location: ESIG+9
    Function Call: WRITE
    • Prompt: !,"Enter ELECTRONIC SIGNATURE CODE: "
    • Line Location: ESIG+12
    Function Call: READ
    • Variable: X
    • Timeout: 60
    • Line Location: ESIG+13
    Function Call: WRITE
    • Prompt: ?60,"Thank you."
    • Line Location: ESIG+17
    Function Call: WRITE
    • Prompt: !,"Sorry, but that's not your correct electronic signature code."
    • Line Location: ESIG+18

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("EOFF" ESIG+13
    ^%ZOSF("EON" ESIG+13
    ^VA(200 - [#200] ESIG+8

    Label References

    Name Line Occurrences
    $$HASH ESIG+17

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % NOW+1~, NOW+3
    %H NOW+1~
    %I NOW+1~
    I SUM+1~, SUM+2*
    MESSAGE ESIG~, ESIG+7*, ESIG+9*, ESIG+21*
    OUT ESIG+6~, ESIG+10, ESIG+11!, ESIG+14*, ESIG+15*, ESIG+17*, ESIG+19*, ESIG+21
    >> PRCRMPR ESIG+7
    SIGCODE ESIG+6~, ESIG+8*, ESIG+9, ESIG+17
    USERNUM ESIG~, ESIG+8
    X ENCODE~, DECODE~, HASH~, SUM~, SUM+2, ESIG+6~, ESIG+13*, ESIG+15, ESIG+16*, ESIG+17
    , NOW+1~
    X1 ENCODE~, DECODE~
    X2 ENCODE~, DECODE~
    Y SUM+1~, SUM+2*, SUM+3
    ZZI ESIG+6~, ESIG+10*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All