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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECMUTL

Package: Event Capture

Routine: ECMUTL


Information

ECMUTL ;ALB/ESD - Utilities for Multiple Dates/Mult Procs ;20 AUG 1997 13:56

Source Information

Source file <ECMUTL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Event Capture 6 MSG^ECBEN2U  ($$GETPRO,$$PRLST,KILLV,SRCHTM)^ECDSUTIL  (CATS,PROS)^ECHECK1  ^ECL  GET^ECPRVUTL  $$ASKMOD^ECUTL  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Event Capture 2 ECMLMD  ECMLMP  

Entry Points

Name Comments DBIA/ICR reference
ASKLOC() ; Get Location
; Input: None
ASKPRDT(DSSU,ONE) ; Get Procedure Start Date/Time
; Input: ECD = DSS Unit ien
; ONE = Ask procedure start date/time once
AGAIN
ASKPRDTQ
ASKCAT(ECL,ECD) ; Get category
; Input: ECL = Location ien
; ECD = DSS Unit ien
ASKCATQ
ASKPRO(ECL,ECD,ECC,NUM) ; Ask procedures
; Input: ECL = Location ien
; ECD = DSS Unit ien
; ECC = Category ien
; NUM = Only ask procedure once
SEL ;
ASKPROQ
CONTINU ;
CONTINUQ
SETP ;
LISTPR ;- List available procedures
; Input: None
LISTPRQ
PROCHDR ;- Procedure display header
ASKREAS(ECL,ECD,ECC,ECP,ECOUT) ;-Ask procedure reason
; Input: ECL = Location ien
; ECD = DSS Unit ien
; ECC = Category ien
; ECP = Procedure ien
ASKREASQ
ASKVOL(ECL,ECD,ECC,ECP,ECOUT) ;- Ask procedure volume
; Input: ECL = Location ien
; ECD = DSS Unit ien
; ECC = Category ien
; ECP = Procedure ien
ASKVOLQ
PROV(ECDT,ECPROVS) ;get providers - new providers function
ONEUNIT(ECDSSU) ;- Create ECDSSU containing DSS Unit
; Checks for validity and access to Unit
VALID(IEN) ;- Check DSS Unit for use by Event Capture

External References

Name Field # of Occurrence
^DIC ASKREAS+19, ONEUNIT+22
^DIR AGAIN+4, ASKCAT+14, ASKPRO+18, LISTPR+9, ASKVOL+19, ONEUNIT+37
MSG^ECBEN2U SEL+5, SEL+18
$$GETPRO^ECDSUTIL SEL+4
$$PRLST^ECDSUTIL SEL+17
KILLV^ECDSUTIL SEL+5, SEL+11, SEL+18, ASKPROQ+1
SRCHTM^ECDSUTIL SEL+7
CATS^ECHECK1 ASKCAT+9
PROS^ECHECK1 ASKPRO+14
^ECL ASKLOC+6
GET^ECPRVUTL PROV+20
$$ASKMOD^ECUTL CONTINU+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Categories within "_$P($G(^ECD(+ECD,0)),"^")_":",!
  • Line Location: ASKCAT+11
Function Call: WRITE
  • Prompt: !?5,X_". ",$P(ECC(X),"^",2)
  • Line Location: ASKCAT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCAT+13
Function Call: WRITE
  • Prompt: !!,"Within the ",ECLN," location there are no procedures defined",!
  • Line Location: ASKPRO+16
Function Call: WRITE
  • Prompt: "for the DSS Unit ",$P(ECDSSU,"^",2),".",!
  • Line Location: ASKPRO+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: $P($G(^TMP("ECPRO",$J,+$G(^TMP("ECLKUP",$J,"LAST")))),"^",4)
  • Line Location: SEL+14
Function Call: WRITE
  • Prompt: " "_$P($G(^TMP("ECPRO",$J,+CNT)),"^",4)
  • Line Location: SEL+15
Function Call: WRITE
  • Prompt: " "_$S(ECPREV="S":$P($G(^TMP("ECPRO",$J,+CNT)),"^",3),1:$P($G(^TMP("ECPRO",$J,+CNT)),"^",4))
  • Line Location: SEL+20
Function Call: WRITE
  • Prompt: !,ECI_".",?5,$E($P(^TMP("ECPRO",$J,ECI),"^",4),1,30),?38,$E($P(^(ECI),"^",3),1,30),?72,$P(^(ECI),"^",5)
  • Line Location: LISTPR+11
Function Call: WRITE
  • Prompt: !!?5,"Select by number, CPT or national code, procedure name, or synonym.",!?5,"Synonym must be preceded by the & character (example: &TESTSYN).",!
  • Line Location: LISTPR+13
Function Call: WRITE
  • Prompt: ?2,"** Modifier(s) can be appended to a CPT code (ex: CPT code-mod1,mod2,mod3) **",!
  • Line Location: LISTPR+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCHDR+2
Function Call: WRITE
  • Prompt: !,"Available Procedures within "_$P(ECDSSU,"^",2)_": ",!
  • Line Location: PROCHDR+3
Function Call: WRITE
  • Prompt: ?72,"National",!,?5,"Procedure Name",?40,"Synonym",?72,"Number",!
  • Line Location: PROCHDR+4
Routine Call
  • DIC
  • Line Location:
    • ASKREAS+19
    • ONEUNIT+22
Routine Call
  • DIR
  • Line Location:
    • AGAIN+4
    • ASKCAT+14
    • ASKPRO+18
    • LISTPR+9
    • ASKVOL+19
    • ONEUNIT+37

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECL - [#720.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] SEL+26, CONTINU+2
^ECD - [#724] ASKPRDT+9, ASKCAT+11, VALID+3
^ECJ - [#720.3] ASKREAS+16, ASKVOL+18
^ECJ("AP" ASKREAS+15, ASKVOL+15
^ECL - [#720.5] SEL+25
^ECL("AD" ASKREAS+16
^ECR - [#720.4] SEL+25
^TMP("ECLKUP" SEL+14, ASKPROQ!, SETP+1*
^TMP("ECPRDT" AGAIN+6*, ASKPRDTQ, ASKPRO+13
^TMP("ECPRO" ASKPRO+15, SEL+14, SEL+15, SEL+20, ASKPROQ!, SETP+2, LISTPR+8, LISTPR+11
^TMP("ECPROC" SEL+25*, SEL+28*
^XUSEC("ECALLU" ONEUNIT+16

Label References

Name Line Occurrences
$$ASKREAS CONTINU+7
$$ASKVOL CONTINU+9
$$VALID ONEUNIT+26, ONEUNIT+27
@( AGAIN+6, SEL+10
ASKCATQ ASKCAT+8, ASKCAT+10, ASKCAT+15
ASKPRDTQ ASKPRDT+8
ASKPROQ ASKPRO+10, ASKPRO+15, SEL+5, SEL+6, SEL+12, SEL+16
ASKREASQ ASKREAS+14
ASKVOLQ ASKVOL+14
CONTINU SEL+12, SEL+21
CONTINUQ CONTINU+3, CONTINU+8
PROCHDR LISTPR+7, LISTPR+9
SEL SEL+9, SEL+29
SETP CONTINU+1

Naked Globals

Name Field # of Occurrence
^( LISTPR+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CATS ASKCAT+6~
CNT ASKCATQ!, ASKPRO+8~, SEL+2*, SEL+13*, SEL+15, SEL+16, SEL+17*, SEL+18, SEL+19, SEL+20
SEL+23, SETP+1, SETP+2
DIC ASKREAS+17*, ASKREAS+19!, ONEUNIT+20*, ONEUNIT+22!
DIC("A" ASKREAS+18*, ONEUNIT+20*
DIC("S" ASKREAS+18*, ONEUNIT+21*
DIC(0 ASKREAS+17*, ONEUNIT+20*
DIR AGAIN+4!, ASKCAT+14!, ASKPRO+18!, LISTPR+5~, ASKVOL+11~, ONEUNIT+34!, ONEUNIT+37!
DIR("?" AGAIN+2*, SEL+3*, ASKVOL+17*, ONEUNIT+36*
DIR("A" AGAIN+1*, ASKCAT+13*, ASKVOL+16*, ONEUNIT+35*
DIR("B" ASKPRDT+9*, ASKVOL+18*, ONEUNIT+35*
DIR(0 AGAIN+3*, ASKCAT+13*, ASKPRO+18*, LISTPR+9*, ASKVOL+16*, ONEUNIT+35*
DIRUT AGAIN~, ASKCAT+6~, ASKCAT+15, LISTPR+5~, LISTPR+9, ASKVOL+11~, ASKVOL+21, ONEUNIT+15~, ONEUNIT+18!, ONEUNIT+34!
, ONEUNIT+38
DSSU ASKPRDT~, ASKPRDT+8, ASKPRDT+9
DTOUT ASKPRDT+6~, AGAIN+5, ASKREAS+11~, ASKREAS+21, ASKVOL+11~, ONEUNIT+18!, ONEUNIT+23, ONEUNIT+34!, ONEUNIT+38
DUOUT ASKPRDT+6~, AGAIN+5, ASKREAS+11~, ASKREAS+21, ASKVOL+11~, ONEUNIT+15~, ONEUNIT+18!, ONEUNIT+23, ONEUNIT+34!, ONEUNIT+38
DUZ ONEUNIT+16
ECAT ASKCATQ!
ECATEG ASKCAT+6~, ASKCAT+7*, ASKCAT+15!, ASKCAT+16*, ASKCATQ+1
ECC ASKCATQ!, ASKPRO~, ASKPRO+11*, CONTINU+7, CONTINU+9, ASKREAS~, ASKREAS+13*, ASKREAS+15, ASKVOL~, ASKVOL+13*
, ASKVOL+15
ECC( ASKCAT+12, ASKCAT+16
ECC(0 ASKCAT+10
ECCNT ASKPRDT+6~, ASKPRDT+7*
ECCPT ASKPRO+9~, SEL+26*, SEL+27, SEL+28, CONTINU+2*, CONTINU+3, CONTINU+5
ECD ASKCAT~, ASKCAT+8, ASKCAT+11, ASKPRO~, ASKPRO+10, CONTINU+7, CONTINU+9, ASKREAS~, ASKREAS+14, ASKREAS+15
, ASKVOL~, ASKVOL+14, ASKVOL+15
ECDA PROV+19~
ECDSSU ASKPRO+17, PROCHDR+3, ONEUNIT~, ONEUNIT+17, ONEUNIT+26*, ONEUNIT+38!, ONEUNIT+39!
ECDT ASKPRO+9~, ASKPRO+13*, CONTINU+5, PROV~, PROV+20
ECDUP ASKPRDT+6~, ASKPRDT+7*, AGAIN+1, AGAIN+6*
ECERR ASKPRDT+6~, ASKPRDT+7*, AGAIN+5*, ASKPRDTQ, ASKPRO+8~, SEL+12, SEL+16, CONTINU+3, CONTINU+5, CONTINU+7
CONTINU+8, CONTINU+9
ECEXIT ASKPRO+8~, SEL+2*, LISTPR+8, LISTPR+9*, LISTPR+10, LISTPR+12
ECI LISTPR+5~, LISTPR+6*, LISTPR+8*, LISTPR+11
ECKEY ONEUNIT+15~, ONEUNIT+16*
ECL ASKLOC+8, ASKCAT~, ASKCAT+8, ASKPRO~, ASKPRO+10, CONTINU+7, CONTINU+9, ASKREAS~, ASKREAS+14, ASKREAS+15
, ASKVOL~, ASKVOL+14, ASKVOL+15
>> ECLN ASKPRO+16
ECMAX ASKCAT+6~, ASKCAT+7*, ASKCAT+12*, ASKCAT+13
ECMOD ASKPRO+9~, SEL+1!, CONTINU+5
ECMOD( SEL+27, SEL+28
ECMODF CONTINU+5*, CONTINU+6!
ECMODS ASKPRO+9~, CONTINU+4*, CONTINU+5, CONTINU+6!
ECOUNT ASKPRO+8~, ASKPRO+12*, SEL+5, SEL+6, SEL+24*, SEL+25, SEL+28
ECOUT ASKLOC+7!, ASKPRO+8~, ASKREAS~, ASKREAS+12*, ASKREAS+21*, ASKVOL~, ASKVOL+12*, ASKVOL+21*, PROV+20, PROV+22
, ONEUNIT+15~, ONEUNIT+17*, ONEUNIT+23*, ONEUNIT+24, ONEUNIT+38*, ONEUNIT+40
ECP ASKPRO+8~, SEL+2*, SEL+23, SEL+25, SEL+26, CONTINU+2, CONTINU+7, CONTINU+9, SETP+2*, ASKREAS~
, ASKREAS+14, ASKREAS+15, ASKVOL~, ASKVOL+14, ASKVOL+15
ECPCNT ASKPRO+8~, SEL+2*, SEL+8*, SEL+9, SEL+10, SEL+12, SEL+13, SEL+16
ECPNAME SEL+1!, SEL+16
ECPNM ASKPRO+8~, SEL+2*, SEL+25, SETP+2*
ECPREV ASKPRO+8~, SEL+2*, SEL+7*, SEL+14, SEL+15, SEL+20
ECPROVS PROV~
ECPROVS(1 PROV+21*
ECPROVS(2 PROV+21*
ECPROVS(3 PROV+21*
ECPRPTR ASKREAS+11~, ASKREAS+12*, ASKREAS+20*, ASKREASQ
ECREAS ASKPRO+8~, SEL+2*, SEL+25, CONTINU+7*
ECSCR ASKREAS+11~, ASKREAS+12*, ASKREAS+15*, ASKREAS+16, ASKVOL+11~, ASKVOL+12*, ASKVOL+15*, ASKVOL+18
ECU PROV+19~, PROV+20, PROV+21
ECU2 PROV+19~, PROV+20, PROV+21
ECU3 PROV+19~, PROV+20, PROV+21
ECVOL ASKVOL+11~, ASKVOL+12*, ASKVOL+20*, ASKVOLQ
ECVOLU ASKPRO+8~, SEL+2*, SEL+23, SEL+25, CONTINU+9*
ECX ASKPRO+9~, SEL+2*, SEL+4*, SEL+5, SEL+6, SEL+7
IEN VALID~, VALID+3
IOF PROCHDR+2
IOSL LISTPR+9
JJ ASKPROQ!
LOC ASKLOC+7!
NO VALID+2~, VALID+5*, VALID+9
NODE VALID+2~, VALID+3*, VALID+5
NUM ASKPRO~, SEL+24, SEL+29
OK ASKPROQ!
ONE ASKPRDT~, AGAIN+6, ASKPRDTQ
VAL VALID+2~, VALID+7*, VALID+9*, VALID+11*, VALID+12
X ASKCAT+6~, ASKCAT+7*, ASKCAT+12*
Y AGAIN~, AGAIN+6, ASKPRDTQ, ASKCAT+15, ASKCAT+16, ASKPRO+18!, LISTPR+5~, LISTPR+9, ASKREAS+20, ASKVOL+20
, ONEUNIT+15~, ONEUNIT+18!, ONEUNIT+25, ONEUNIT+26, ONEUNIT+27, ONEUNIT+28*, ONEUNIT+31, ONEUNIT+39
YES VALID+2~, VALID+5*, VALID+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All