Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECL - [#720.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call