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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Event Capture 4 ^ECKILL  $$GETPPRV^ECPRVMUT  STRPT^ECRDSSA  ($$ASKDSS,$$ASKLOC,$$ENDDT,$$STDT)^ECRUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Event Capture 5 ECLATESH  ECRDSSA  ECRECER  ECRPRSN2  ECRRPT  

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

External References

Name Field # of Occurrence
^%ZIS ASKDEV+9
HOME^%ZIS ASKDEV+16
^%ZTLOAD ASKDEV+15
$$GET1^DIQ GETKEYS+14, GETKEYS+19, GETKEYS+22, GETSSN+9, GETPROV+17, GETPRNM+11, GETPROC+11
GETS^DIQ BLDTMP+22
^DIR PAUSE+7, ASKSRT+12
^ECKILL STRPT+9
$$GETPPRV^ECPRVMUT GETPROV+14
STRPT^ECRDSSA EN+8
$$ASKDSS^ECRUTL EN+4
$$ASKLOC^ECRUTL EN+3
$$ENDDT^ECRUTL EN+7
$$STDT^ECRUTL EN+6
$$CPT^ICPTCOD GETPRNM+11
DEM^VADPT GETSSN+10
$$FMTE^XLFDT PRINT+27, PRINT+28, PRINT+29, PRINT+57, PRINT+61
$$NOW^XLFDT PRINT+27
$$REPEAT^XLFSTR HDR+21

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
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+9
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+16
Routine Call
  • DIR
  • Line Location:
    • PAUSE+7
    • ASKSRT+12

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECH - [#721] FNDREC+31, GETPROV+12
^ECH("ADT" FNDREC+24, FNDREC+28, FNDREC+30
^ECJ - [#720.3] GETPSYN+6
^ECJ("AP" GETPSYN+4
^ECX(728.44 - [#728.44] BLDTMP+24
^ECX(728.441 - [#728.441] BLDTMP+38
^TMP("ECRPT" STRPT+6!, STRPT+9!, FNDREC+19*, FNDREC+22*, BLDTMP+39*, BLDTMP+40*, BLDTMP+41*, PRINT+26, PRINT+32, PRINT+36
, PRINT+37, PRINT+40, PRINT+46, PRINT+49, PRINT+51, PRINT+53, PRINT+55
^TMP($J PRINT+24*, PRINT+25*, PRINT+56*, PRINT+57*

Label References

Name Line Occurrences
$$ASKDEV EN+8
$$ASKSRT EN+5
$$GETDSSN PRINT+43
$$GETKEYS BLDTMP+18
$$GETLOCN PRINT+35
$$GETPRNM BLDTMP+33
$$GETPROC BLDTMP+32
$$GETPROV BLDTMP+36, GETKEYS+17
$$GETPSYN BLDTMP+34
$$GETSSN BLDTMP+28, GETKEYS+15, GETKEYS+21
BLDTMP FNDREC+31
DSSHDR PRINT+45, PRINT+54
ENQ EN+3, EN+4, EN+5, EN+6, EN+7
FNDREC STRPT+7
FOOTER PAUSE+2
HDR PRINT+36, PRINT+44, PRINT+54
PAUSE PRINT+36, PRINT+44, PRINT+54, PRINT+73
PRINT STRPT+8
PRINTQ PRINT+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKDEV+8!*
CAT GETPSYN~, GETPSYN+4
CLNODE BLDTMP+16~, BLDTMP+24*, BLDTMP+38
CNT PRINT+22~, PRINT+25*, PRINT+56*, PRINT+57
DFN GETSSN+7~, GETSSN+9*
DIR PAUSE+1~, ASKSRT+8~
DIR("A" ASKSRT+10*
DIR("B" ASKSRT+11*
DIR(0 PAUSE+6*, ASKSRT+9*
DIROUT ASKSRT+8~, ASKSRT+14
DIRUT PAUSE+1~, PAUSE+8, ASKSRT+8~
DTOUT ASKSRT+8~, ASKSRT+14
DUOUT PAUSE+1~, PAUSE+8, ASKSRT+8~, ASKSRT+14
ECACLN BLDTMP+17~, BLDTMP+23*, BLDTMP+38
ECCDSS PRINT+9~, PRINT+39*, PRINT+40*, PRINT+41, PRINT+42, PRINT+43, PRINT+45, PRINT+46, PRINT+49, PRINT+51
, PRINT+53, PRINT+54, PRINT+55, PRINT+56
ECCLOC PRINT+6~, PRINT+31*, PRINT+32*, PRINT+33, PRINT+34, PRINT+35, PRINT+36, PRINT+37, PRINT+40, PRINT+46
, PRINT+49, PRINT+51, PRINT+53, PRINT+55
ECCNT BLDTMP~, BLDTMP+19*, PRINT+12~, PRINT+52*, PRINT+53*, PRINT+55
ECCRT STRPT+1~, STRPT+4*, HDR+10, PAUSE+3
ECD FNDREC+8~, FNDREC+20*, FNDREC+21*, FNDREC+25*, FNDREC+26*
ECDAT PRINT+13~, PRINT+61*, PRINT+62
ECDFN FNDREC+9~, FNDREC+23*, FNDREC+24*, FNDREC+28, FNDREC+30
ECDSS BLDTMP+10~, BLDTMP+26*, BLDTMP+34, BLDTMP+39, BLDTMP+41, DSSHDR~, DSSHDR+7, GETDSSN~, GETDSSN+11, GETDSSN+14
ECDSSF FNDREC+11~, FNDREC+21*, FNDREC+22, FNDREC+26*, FNDREC+28, FNDREC+30, FNDREC+31
ECDSSNM PRINT+11~, PRINT+43*, PRINT+45, PRINT+54, PRINT+56, DSSHDR~, DSSHDR+7, GETDSSN+9~, GETDSSN+10*, GETDSSN+13
, GETDSSN+14*, GETDSSN+15
ECDSSU EN+2~, PRINT+43, GETDSSN~
ECDSSU( FNDREC+21, FNDREC+26, GETDSSN+13, GETDSSN+14
ECDT FNDREC+12~, FNDREC+27*, FNDREC+28*, FNDREC+30, BLDTMP+15~, BLDTMP+31*, BLDTMP+33, GETPRNM~, GETPRNM+11
ECENDDT EN+2~, FNDREC+28, PRINT+29
ECERR BLDTMP+14~
ECFDT PRINT+15~, PRINT+28*, PRINT+36, PRINT+44, PRINT+54, HDR~, HDR+16
ECFILE GETPRNM+8~, GETPRNM+10*, GETPRNM+11, GETPROC+8~, GETPROC+10*, GETPROC+11
ECI GETLOCN+8~, GETLOCN+12*, GETLOCN+13*, GETLOCN+14, GETDSSN+8~, GETDSSN+12*, GETDSSN+13*, GETDSSN+14
ECIEN FNDREC+14~, FNDREC+29*, FNDREC+30*, FNDREC+31, BLDTMP~, BLDTMP+18, BLDTMP+20, BLDTMP+28, BLDTMP+36, GETKEYS~
, GETKEYS+12, GETKEYS+14, GETKEYS+15, GETKEYS+17, GETKEYS+19, GETKEYS+21, GETKEYS+22, GETSSN~, GETSSN+8, GETSSN+9
, GETPROV~, GETPROV+12, GETPROV+14, GETPROV+17, GETPRNM+7~, GETPRNM+9*, GETPRNM+11, GETPROC+7~, GETPROC+9*, GETPROC+11
ECIENS BLDTMP+11~, BLDTMP+20*, BLDTMP+22, BLDTMP+23, BLDTMP+24, BLDTMP+25, BLDTMP+26, BLDTMP+27, BLDTMP+29, BLDTMP+30
, BLDTMP+31, BLDTMP+32, BLDTMP+33, BLDTMP+34, BLDTMP+35, BLDTMP+37
ECKEY BLDTMP+12~, BLDTMP+18
ECKEY(1 BLDTMP+39
ECKEY(2 BLDTMP+39
ECKEY1 PRINT+17~, PRINT+48*, PRINT+49*, PRINT+51, PRINT+53, PRINT+55
ECKEY2 PRINT+18~, PRINT+50*, PRINT+51*, PRINT+53, PRINT+55
ECKEYS GETKEYS~
ECKEYS(1 GETKEYS+11*, GETKEYS+14*, GETKEYS+17*, GETKEYS+18*, GETKEYS+21*, GETKEYS+23
ECKEYS(2 GETKEYS+11*, GETKEYS+15*, GETKEYS+19*, GETKEYS+22*, GETKEYS+23
ECL FNDREC+7~, FNDREC+17*, FNDREC+18*
ECLOC EN+2~, PRINT+35, GETLOCN~
ECLOC( FNDREC+18, GETLOCN+13, GETLOCN+14
ECLOCA BLDTMP+9~, BLDTMP+25*, BLDTMP+34, BLDTMP+39, BLDTMP+40, BLDTMP+41, GETLOCN~, GETLOCN+11, GETLOCN+14
ECLOCF FNDREC+10~, FNDREC+18*, FNDREC+19, FNDREC+22, FNDREC+24, FNDREC+28, FNDREC+30
ECLOCN HDR~, HDR+15
ECLOCNM PRINT+8~, PRINT+35*, PRINT+36, PRINT+44, PRINT+54, PRINT+56, GETLOCN+9~, GETLOCN+10*, GETLOCN+13, GETLOCN+14*
, GETLOCN+15
ECNT FNDREC+6~, FNDREC+15*, FNDREC+31, BLDTMP+39
ECPAGE STRPT+2~, STRPT+3*, PRINT+36, HDR+10, HDR+11*, HDR+14
ECPDSS PRINT+10~, PRINT+39*, PRINT+41, PRINT+42*
ECPLOC PRINT+7~, PRINT+31*, PRINT+33, PRINT+34*
ECPROV GETPROV+10~, GETPROV+11*, GETPROV+14, GETPROV+15*, GETPROV+17*, GETPROV+18
>> ECPTYP STRPT+5, PRINT+23, PRINT+36, PRINT+37, PRINT+44, PRINT+45, PRINT+46, PRINT+54, PRINT+56, PRINT+73
, GETSSN+11
ECQUIT PRINT+20~, PRINT+31*, PRINT+32, PRINT+36, PRINT+40, PRINT+41, PRINT+44, PRINT+49, PRINT+51, PRINT+53
, PRINT+54, PRINT+73, PAUSE+8*
ECRDT PRINT+14~, PRINT+27*, PRINT+36, PRINT+44, PRINT+54, HDR~, HDR+13
ECREC FNDREC+13~, BLDTMP+13~, BLDTMP+21*, BLDTMP+27*, BLDTMP+28*, BLDTMP+29*, BLDTMP+30*, BLDTMP+32*, BLDTMP+33*, BLDTMP+34*
, BLDTMP+35*, BLDTMP+36*, BLDTMP+37*, BLDTMP+38*, BLDTMP+39, PRINT+21~, PRINT+55*, PRINT+57, PRINT+58, PRINT+59
, PRINT+60, PRINT+61, PRINT+63, PRINT+64, PRINT+65, PRINT+66, PRINT+67, PRINT+68, PRINT+69, PRINT+70
, PRINT+71, PRINT+72
ECREC(721 BLDTMP+23, BLDTMP+24, BLDTMP+25, BLDTMP+26, BLDTMP+27, BLDTMP+29, BLDTMP+30, BLDTMP+31, BLDTMP+32, BLDTMP+33
, BLDTMP+34, BLDTMP+35, BLDTMP+37
ECRSLT GETKEYS+9~, GETKEYS+10*, GETKEYS+23*, GETKEYS+24
ECSORT EN+2~, EN+5, STRPT+7, STRPT+8
ECSRT FNDREC~, FNDREC+31, BLDTMP~, BLDTMP+18, PRINT~, PRINT+30, HDR~, HDR+17, GETKEYS~, GETKEYS+12
, GETKEYS+13, GETKEYS+16, GETKEYS+20
ECSRTBY PRINT+19~, PRINT+30*, PRINT+36, PRINT+44, PRINT+54
ECSTDT EN+2~, EN+7, FNDREC+27, PRINT+28
ECTDT PRINT+16~, PRINT+29*, PRINT+36, PRINT+44, PRINT+54, HDR~, HDR+16
ECTYP ASKSRT~, ASKSRT+13*
ECVIEN GETPRNM~, GETPRNM+9, GETPRNM+10, GETPROC~, GETPROC+9, GETPROC+10
ECX ASKDEV+6~, ASKDEV+7*, ASKDEV+10*, ASKDEV+11, ASKDEV+17*, ASKDEV+18
IEN GETPSYN+1~, GETPSYN+4*, GETPSYN+5, GETPSYN+6
IO STRPT+5
IO("Q" ASKDEV+11
IOF HDR+10
IOSL PRINT+44, PRINT+54, PAUSE+4
IOST STRPT+4
LOC GETPSYN~, GETPSYN+4
PIECE PRINT+22~, PRINT+57*
>> POP ASKDEV+10
PROC GETPSYN~, GETPSYN+3, GETPSYN+4
SYN GETPSYN+1~, GETPSYN+2*, GETPSYN+3, GETPSYN+5
U FNDREC+18, FNDREC+21, FNDREC+26, FNDREC+31, BLDTMP+37, BLDTMP+38, PRINT+56, PRINT+57, PRINT+58, PRINT+59
, PRINT+60, PRINT+61, PRINT+63, PRINT+64, PRINT+65, PRINT+66, PRINT+67, PRINT+68, PRINT+69, PRINT+70
, PRINT+71, PRINT+72, GETLOCN+14, GETDSSN+14, GETSSN+11, GETSSN+12, GETPROV+15, GETPRNM+11, GETPSYN+6, ASKSRT+13
UNIT GETPSYN~, GETPSYN+4
VADM GETSSN+7~
VADM(2 GETSSN+11, GETSSN+12
VAERR GETSSN+7~
X ASKSRT+8~
Y ASKSRT+8~, ASKSRT+13
ZTDESC ASKDEV+6~, ASKDEV+12*
ZTRTN ASKDEV+6~, ASKDEV+12*
ZTSAVE ASKDEV+6~
ZTSAVE("ECDSSU(" ASKDEV+13*
ZTSAVE("ECENDDT" ASKDEV+14*
ZTSAVE("ECLOC(" ASKDEV+13*
ZTSAVE("ECSRT" ASKDEV+13*
ZTSAVE("ECSTDT" ASKDEV+14*
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 |  Local Variables  | All