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

Package: Medicine

Routine: MCESEDT2


Information

MCESEDT2 ;WISC/DCB-ELECTRONIC SIGNATURE EDITS PART 2 ;6/26/96 12:51

Source Information

Source file <MCESEDT2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 6 NOW^%DTC  %XY^%RCR  ^DIC  FILE^DICN  IX^DIK  ^DIR  
Medicine 3 (DELSS,HEADER)^MCESEDT  $$ENCODE^MCESPRT  $$NUMTOES^MCESSCR  
Kernel 1 SIG^XUSESIG  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Medicine 1 MCESEDT  

Entry Points

Name Comments DBIA/ICR reference
EDD ; Draft
EDS ; Superseded
EDRV ; Release On-line Verify
EDRNV1 ;
SIGN ; Display message, checks for elect. sign
NOW(TA) ;
EDROV ; Release Off-Line Verify
EDPD ; Problem Draft
EDRNV ; Release Not Verify
ERROR ;
ASK ;
EDSROV ; OP
EDSRV ; NO

External References

Name Field # of Occurrence
NOW^%DTC NOW+1
%XY^%RCR EDS+13
^DIC EDROV+9, EDS+20
FILE^DICN EDS+10
IX^DIK EDS+15
^DIR EDROV+2, EDRNV+4, EDRNV1+9, EDS+3, ASK+2
DELSS^MCESEDT EDROV+11
HEADER^MCESEDT EDROV+4, SIGN+4, ASK+5
$$ENCODE^MCESPRT SIGN+5
$$NUMTOES^MCESSCR EDPD+1
SIG^XUSESIG SIGN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,IOBON,"Please enter a provider that you are signing for",IOBOFF
  • Line Location: EDROV+5
Function Call: WRITE
  • Prompt: !,"Note: This provider must have a key for ",IOUON,MCROUT,IOUOFF,!
  • Line Location: EDROV+6
Function Call: WRITE
  • Prompt: !!,"In order to "_IOUON_"release and verify"_IOUOFF_" procedure results",!,"you must type in your electronic signature code."
  • Line Location: SIGN+2
Function Call: WRITE
  • Prompt: !!,IOINHI,IOBON,*7,"This option should be used with extreme CAUTION.",IOINORM,IOBOFF
  • Line Location: EDRNV+2
Function Call: WRITE
  • Prompt: !,"You can be held accountable for releasing unverified procedure results",!!
  • Line Location: EDRNV+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDRNV1+1
Function Call: WRITE
  • Prompt: !!!,"You must sign a Superseded record in order to complete the process"
  • Line Location: EDS+2
Function Call: WRITE
  • Prompt: !!,?14,IOBON,IODWL,IOUON,"Please Wait!",IOBOFF,IOUOFF
  • Line Location: EDS+8
Function Call: WRITE
  • Prompt: !!,IOINHI,"An ",IOBON,"error",IOBOFF," has occured",!,"in creating the new record"
  • Line Location: EDS+11
Function Call: WRITE
  • Prompt: !!,"Record "_REC_" copy to "_NEWREC_"."
  • Line Location: EDS+12
Function Call: WRITE
  • Prompt: !,"Indexing "_NEWREC_"."
  • Line Location: EDS+15
Function Call: WRITE
  • Prompt: !!,"Your Procedure has been Copied",!,"You can now make changes to the copy."
  • Line Location: EDS+18
Function Call: WRITE
  • Prompt: !,"New Record:",!
  • Line Location: EDS+19
Function Call: WRITE
  • Prompt: !!,IOINHI,IOBON,*7,"Your electronic signature is invalid or not declared.",IOINORM,IOBOFF
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !!,"You must declare an electronic signature or ask your IRM for help."
  • Line Location: ERROR+3
Function Call: WRITE
  • Prompt: !,"===> No changes to release status can be done. <===="
  • Line Location: ERROR+4
Routine Call
  • DIC
  • Line Location:
    • EDROV+9
    • EDS+20
Routine Call
  • DIR
  • Line Location:
    • EDROV+2
    • EDRNV+4
    • EDRNV1+9
    • EDS+3
    • ASK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MCAR( EDPD+2, EDS+5, EDS+9, EDS+14*, EDS+23*
^VA(200 - [#200] SIGN+1

Label References

Name Line Occurrences
$$NOW EDPD+1, EDPD+2, EDRV+2, EDROV+12, EDRNV1+10, EDRNV1+11, EDS+6
EDRNV1 EDRNV+1
ERROR SIGN+1, SIGN+4
SIGN EDRV+1, EDROV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NOW+1
>> %X EDS+13*
>> %Y EDS+13*
>> CDUZ EDROV+10*, EDROV+11, EDROV+12
>> DA EDS+15*
DD EDS+9!
DIC EDROV+7*, EDROV+9!, EDS+9!*, EDS+20*!
DIC("A" EDROV+8*
DIC("S" EDROV+9*
DIC(0 EDROV+7*, EDS+9*, EDS+20*
DIK EDS+15*!
DIR EDROV+2!, EDRNV+4!, EDRNV1+9!, EDS+3!, ASK+4!
DIR("?" EDRNV1+5*, EDRNV1+6*, EDRNV1+7*, EDRNV1+8*
DIR("A" EDRNV+4*, EDRNV1+3*, EDRNV1+4*, EDS+3*, ASK+1*
DIR("B" EDRNV+4*, EDRNV1+2*, EDS+3*, ASK+3
DIR("T" EDROV+2*
DIR(0 EDROV+2*, EDRNV+4*, EDRNV1+2*, EDS+3*
DIROUT EDROV+2!, EDS+24!
DIRUT EDROV+2!, EDRNV+5, EDRNV1+9, ASK+2
DO EDS+9!
DTOUT EDROV+2!, EDROV+11, EDS+24!
DUOUT EDROV+3!, EDROV+11, EDS+24!
DUZ EDPD+1, EDRV+2, EDROV+12, SIGN+1, EDRNV1+10, EDRNV1+11, EDS+14, EDS+17
>> ERROR EDRV+1, EDROV+1, SIGN+1*, SIGN+3*, SIGN+4, ERROR+5*
>> EXIT EDROV+3*, EDROV+11*, EDRNV+5*, EDRNV1+9*, EDS+4*, EDS+11*, ERROR+5*, ASK+2*, ASK+3*, ASK+4
>> HOLD EDS+9*, EDS+13, EDS+15
>> IOBOFF EDROV+5, EDRNV+2, EDS+8, EDS+11, ERROR+2
>> IOBON EDROV+5, EDRNV+2, EDS+8, EDS+11, ERROR+2
>> IODWL EDS+8
>> IOINHI EDROV+8, EDRNV+2, EDS+11, ERROR+2, ASK+1
>> IOINORM EDROV+8, EDRNV+2, ERROR+2, ASK+1
>> IOUOFF EDROV+6, SIGN+2, EDRNV+4, EDRNV1+3, EDRNV1+5, EDRNV1+7, EDS+3, EDS+8
>> IOUON EDROV+6, SIGN+2, EDRNV+4, EDRNV1+3, EDRNV1+5, EDRNV1+7, EDS+3, EDS+8
>> LOOP EDPD+1
>> MCARGDA SIGN+5
MCBACK EDS+4!, EDS+22*
>> MCESCUR EDS+22*
>> MCESPREV EDS+22*
>> MCESTEMP EDS+1*
>> MCFILE EDPD+2, SIGN+5, EDS+5, EDS+9, EDS+14, EDS+20, EDS+23
>> MCROUT EDROV+6, EDROV+8, EDRNV1+7
>> MCY EDS+21*
>> MCY(0 EDS+21*
>> MX EDS+5*
>> NCHANGE EDRNV+1, EDRNV1+11
>> NEWREC EDS+10*, EDS+12, EDS+13, EDS+14, EDS+15, EDS+16, EDS+22, EDS+23
NEWST ERROR+1!, ASK+5*
NOW EDS+6*, EDS+14, EDS+16, EDS+17, EDS+24!
>> ORG EDROV+3, EDROV+11, EDS+1, ERROR+5
PDATE EDS+7*, EDS+14, EDS+24!
>> PROV ASK+3
>> REC EDPD+2, EDS+5, EDS+9, EDS+12, EDS+13, EDS+14, EDS+22
>> SCRAMBLE EDRV+2, EDROV+12, SIGN+5*
>> SUP EDROV+11
TA NOW~
>> TEMP EDPD+1*, EDPD+2*, EDRV+2*, EDROV+3*, EDROV+11*, EDROV+12*, EDRNV1+10*, EDRNV1+11*, EDS+7, EDS+16*
, EDS+17*, EDS+23, ERROR+5*
TY EDS+24!
U EDPD+1, EDPD+2, EDRV+2, EDROV+12, SIGN+1, EDRNV1+10, EDRNV1+11, EDS+4, EDS+5, EDS+7
, EDS+9, EDS+14, EDS+16, EDS+17, EDS+23
X EDS+5*, EDS+6, EDS+9*, EDS+20*, EDS+24!
>> X1 SIGN+3
>> Y EDROV+10, EDRNV+5, EDRNV1+10, EDS+4, EDS+10, EDS+11, EDS+21, ASK+3
>> Y(0 EDS+21, ASK+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All