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

Package: Event Capture

Routine: ECRDSSA


Information

ECRDSSA ;ALB/RPM - DSS Unit Activity Report ;9/23/16 15:14

Source Information

Source file <ECRDSSA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Get location(s), DSS Unit(s), sort type, start & end dates, device
ENQ
STRPT ;Main entry point
FNDREC(ECSRT) ;Loop through "ADT" xref of EVENT CAPTURE PATIENT (#721) file
; Input:
; ECSRT - sort type
BLDTMP(ECIEN,ECSRT,ECCNT) ;add record to list
; Input:
; ECIEN - pointer to EVENT CAPTURE PATIENT (#721) file
; ECSRT - sort type
; ECCNT - record counter
PRINT(ECSRT) ;loop results array and format output
; Input:
; ECSRT - sort type
PRINTQ
HDR(ECLOCN,ECRDT,ECFDT,ECTDT,ECSRT) ;Report header
; Input:
; ECLOCN - location name
; ECRDT - run date
; EDFDT - from date
; EDTDT - to date
; ECSRT - sort text
DSSHDR(ECDSS,ECDSSNM) ;DSS header
; Input:
; ECDSS - DSS unit
; ECDSSNM - DSS unit name
PAUSE ;page break
FOOTER ;page footer
GETLOCN(ECLOCA,ECLOC) ;get location name
; Input:
; ECLOCA - location
; ECLOC - array of selected locations
GETDSSN(ECDSS,ECDSSU) ;-get DSS unit name
; Input:
; ECDSS - DSS unit
; ECDSSU - array of selected DSS units
GETKEYS(ECSRT,ECIEN,ECKEYS) ;get sort keys based on sort type
; Input:
; ECSRT - (required) sort type indicator (P, S, R)
; ECIEN - (required) pointer to EVENT CAPTURE PATIENT (#721) file
;
; Output:
; ECKEYS - (pass by reference) array of sort keys
; Function value - returns 1 on success;0 on failure
GETSSN(ECIEN) ;get patient SSN
; Input:
; ECIEN - (required) pointer to EVENT CAPTURE PATIENT (#721) file
;
; Output:
; Function value - returns patient's SSN on success; "" on failure
GETPROV(ECIEN) ;get primary provider
GETPRNM(ECVIEN,ECDT) ;get procedure name
; Input:
; ECVIEN - variable pointer to CPT (#81) file or EC PROC file
;
; Output:
; Function value - returns procedure name on success; "" on failure
GETPROC(ECVIEN) ;get procedure code
; Input:
; ECVIEN - variable pointer to CPT (#81) file or EC PROC file
GETPSYN(LOC,UNIT,CAT,PROC) ;API added in 126, gets synonym for EC screen
ASKSRT(ECTYP) ;Ask report sort type
; Input: none
;
; Output:
; ECTYP - (pass by reference) Sort type
; (P: Patient Name,S: SSN,R: Provider Name)
; Function value - returns 1 on success; 0 on failure
ASKDEV() ;Ask output device
; Input: none

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," ** No records found on Location that match selection criteria"
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !,"** No records found on DSS Unit that match selection criteria"
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: " (cont'd)"
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: !,$P(ECREC,U,1)
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: ?27,$P(ECREC,U,2)
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: ?36,$P(ECREC,U,3)
  • Line Location: PRINT+60
Function Call: WRITE
  • Prompt: ?40,$P(ECDAT,":")_$P(ECDAT,":",2)
  • Line Location: PRINT+62
Function Call: WRITE
  • Prompt: ?54,$P(ECREC,U,5)
  • Line Location: PRINT+63
Function Call: WRITE
  • Prompt: ?60,$P(ECREC,U,6)
  • Line Location: PRINT+64
Function Call: WRITE
  • Prompt: ?112,$P(ECREC,U,8)
  • Line Location: PRINT+65
Function Call: WRITE
  • Prompt: ?118,$P(ECREC,U,10)
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: !,?36,$P(ECREC,U,11)
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?68,$P(ECREC,U,12)
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: ?74,$P(ECREC,U,13)
  • Line Location: PRINT+69
Function Call: WRITE
  • Prompt: ?82,$P(ECREC,U,14)
  • Line Location: PRINT+70
Function Call: WRITE
  • Prompt: !?4,$P(ECREC,U,9)
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: ?60,$P(ECREC,U,7)
  • Line Location: PRINT+72
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?11,"EVENT CAPTURE DSS UNIT ACTIVITY REPORT"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?58,"Run Date: ",ECRDT
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?109,"Page: ",ECPAGE
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !!,?13,"For Location ",ECLOCN
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,?13,"From "_ECFDT_" through "_ECTDT
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,?13,"Sorted by ",ECSRT
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!,"Patient",?27,"SSN",?36,"I/O",?40,"Date/Time",?54,"Procedure",?112,"Vol",?118,"Primary"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !?54,"Code",?60,"Name",?118,"Diagnosis"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,?36,"CLINIC",?68,"STOP",?74,"CREDIT",?82,"CHAR4"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !?4,"Primary Provider",?60,"Synonym",!,$$REPEAT^XLFSTR("-",132)
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !!,"DSS Unit: ",ECDSSNM," (IEN #",ECDSS,")"
  • Line Location: DSSHDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Function Call: WRITE
  • Prompt: !!?4,"Volume totals may represent days, minutes, numbers of procedures"
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: " and/or a combination of these.",!
  • Line Location: FOOTER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECH - [#721] GET1^DIQ,  GETS^DIQ
^EC(725 - [#725] GET1^DIQ
^ICPT - [#81] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call