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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ECRPRSN

Package: Event Capture

Routine: ECRPRSN


Information

ECRPRSN ;ALB/JAP - Procedure Reasons Report;24 JAN 07

Source Information

Source file <ECRPRSN.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Event Capture 4 ^ECKILL  $$GETPPRV^ECPRVMUT  ($$ASKDSS,$$ASKLOC,$$ENDDT,$$STDT)^ECRUTL  $$MOD^ECUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 4 DD^%DT  NOW^%DTC  ^DIC  ^DIR  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Event Capture 1 ECRPRSN  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;header
EN ;entry point from menu option
PROCESS ;get data to print
PRINT ;output report
START ;queued entry point or continuation
RANGE ;get any date range
ASKREAS()
DEVICE ;select output device
EXIT ;common exit point
LOOP1
SPECR ;specific reasons
MODPRT ;ALB/JAM - print CPT procedure modifiers
LOOP ;print the section of the ^tmp global for a specific location/unit

External References

Name Field # of Occurrence
DD^%DT PRINT+4, PRINT+5, LOOP1+4
NOW^%DTC PRINT+5
^%ZIS DEVICE+1
HOME^%ZIS EN+11, DEVICE+6
^%ZISC START+3, EXIT+1
^%ZTLOAD DEVICE+6
^DIC SPECR+11
^DIR ASKREAS+21, ASKREAS+27, ASKREAS+30, SPECR+5, DEVICE+2, DEVICE+7, DEVICE+8, PRINT+10, PRINT+25, HEAD+2
^ECKILL EXIT+1
$$GETPPRV^ECPRVMUT PROCESS+35
$$ASKDSS^ECRUTL EN+3
$$ASKLOC^ECRUTL EN+2
$$ENDDT^ECRUTL RANGE+10
$$STDT^ECRUTL RANGE+6
$$MOD^ECUTL PROCESS+37
$$CPT^ICPTCOD PROCESS+25
$$MOD^ICPTMOD MODPRT+4
$$FMTE^XLFDT HEAD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Just a moment please..."
  • Line Location: ASKREAS+4
Function Call: WRITE
  • Prompt: !,?5,"...finding Procedure Reasons related to the"
  • Line Location: ASKREAS+5
Function Call: WRITE
  • Prompt: !,?5," Location(s) and DSS Unit(s) you selected...",!
  • Line Location: ASKREAS+6
Function Call: WRITE
  • Prompt: !,"Selected Procedure Reasons --",!
  • Line Location: ASKREAS+25
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKREAS+31
Function Call: WRITE
  • Prompt: !
  • Line Location: SPECR+5
Function Call: WRITE
  • Prompt: !!!,?5,"Enter a Begin Date and End Date for the Event Capture "
  • Line Location: RANGE+2
Function Call: WRITE
  • Prompt: !,?5,"Procedure Reason Report.",!
  • Line Location: RANGE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"No device selected. Exiting...",!!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"Report canceled..."
  • Line Location: DEVICE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !!,"Reason: ",ECREASN,!
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,?6,PTNAME,?30,SSN,?37,DATE,?57,PROVN
  • Line Location: LOOP1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP1+6
Function Call: WRITE
  • Prompt: !?4,"Modifier: "
  • Line Location: MODPRT+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: MODPRT+6
Function Call: WRITE
  • Prompt: ?18,"- ",MOD," ",MODESC
  • Line Location: MODPRT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,?12,"Event Capture Procedure Reason Report"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,?12,"for the Date Range ",$$FMTE^XLFDT(ECSD2)," to ",$$FMTE^XLFDT(ECED2),!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,?3,"DSS Unit: ",UNIT,?55,"Page: ",PAGE
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,?3,"Location: ",LOC,?52,"Printed: "_PRNTDT,!
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?6,"Patient",?30,"SSN",?37,"Date/Time",?57,"Provider"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: HEAD+10
Routine Call
  • %ZIS
  • Line Location:
    • EN+11
    • DEVICE+6
Routine Call
  • DIC
  • Line Location:
    • SPECR+11
Routine Call
  • DIR
  • Line Location:
    • ASKREAS+21
    • ASKREAS+27
    • ASKREAS+30
    • SPECR+5
    • DEVICE+2
    • DEVICE+7
    • DEVICE+8
    • PRINT+10
    • PRINT+25
    • HEAD+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+31
^EC(725 - [#725] PROCESS+23, PROCESS+28
^ECH - [#721] PROCESS+13, PROCESS+36
^ECH("AC" PROCESS+12, PROCESS+13
^ECJ - [#720.3] PROCESS+21
^ECJ("AP" PROCESS+20
^ECJ("B" ASKREAS+11
^ECL("AD" ASKREAS+12, ASKREAS+13, ASKREAS+14
^ECR - [#720.4] ASKREAS+15, PROCESS+18
^TMP("ECREAS" PROCESS+4!, PROCESS+40*, PROCESS+41*, PRINT+7, PRINT+23, LOOP+2, LOOP+4, LOOP+5, LOOP+6, LOOP1
, LOOP1+1, EXIT+2!

Label References

Name Line Occurrences
$$ASKREAS EN+4
DEVICE EN+8
EXIT EN+2, EN+3, EN+4, EN+7, EN+8, EN+9, EN+10, EN+12, START+4
HEAD PRINT+8, PRINT+23, LOOP+3, LOOP1+5, MODPRT+6
LOOP PRINT+23
LOOP1 LOOP+7
MODPRT LOOP+7
PRINT START+2
PROCESS START+1
RANGE EN+6
SPECR ASKREAS+21
START EN+11

Naked Globals

Name Field # of Occurrence
^( LOOP1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+5
>> %ZIS DEVICE+1*
A ASKREAS+2~, ASKREAS+12!
A( ASKREAS+9*, ASKREAS+11
ALOC PRINT+2~
ALOC( PRINT+16*, PRINT+20
ASK ASKREAS+19*, ASKREAS+22*, ASKREAS+32, EXIT+3!
AUNIT PRINT+2~
AUNIT( PRINT+18*, PRINT+21
DASH PRINT+2~, PRINT+3*, HEAD+10
DATE PRINT+2~, LOOP1+4*, LOOP1+5
DIC SPECR+9*, EXIT+3!
DIC("A" SPECR+9*
DIC("S" SPECR+10*
DIC(0 SPECR+9*
DIR ASKREAS+2~, ASKREAS+21!, ASKREAS+27!, ASKREAS+30!, SPECR+5!, DEVICE+2!, DEVICE+7!, DEVICE+8!, PRINT+10!, HEAD+2!
, EXIT+2!
DIR("?" SPECR+4*
DIR("A" ASKREAS+20*, SPECR+3*
DIR("B" ASKREAS+21*, SPECR+3*
DIR(0 ASKREAS+20*, ASKREAS+27*, ASKREAS+30*, SPECR+3*, DEVICE+2*, DEVICE+7*, DEVICE+8*, PRINT+10*, PRINT+25*, HEAD+2*
DIRUT ASKREAS+2~, ASKREAS+21, ASKREAS+22, SPECR+2!, SPECR+5, SPECR+7!, SPECR+8, SPECR+13*, SPECR+14, EXIT+2!
DT RANGE+12
DTOUT ASKREAS+2~, SPECR+1~, SPECR+7!, SPECR+11, SPECR+13, EXIT+2!
DUOUT ASKREAS+2~, SPECR+1~, SPECR+7!, SPECR+11, SPECR+13, EXIT+2!
E ASKREAS+2~, ASKREAS+25*, ASKREAS+26, ASKREAS+27*, ASKREAS+30
EC PROCESS+1~, PROCESS+13*, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+31
EC725 PROCESS+3~, PROCESS+28*
ECCAT PROCESS+2~, PROCESS+20*
ECCPT PROCESS+2~, PROCESS+23*, PROCESS+24, PROCESS+25*, PROCESS+30
ECD PROCESS+1~, PROCESS+12*, PROCESS+13, PROCESS+41
ECDA PROCESS+1~, PROCESS+13*, PROCESS+35, PROCESS+36, PROCESS+37
ECDESC PROCESS+2~, PROCESS+30*, PROCESS+40, PRINT+2~, LOOP+5*, LOOP+7
ECDFN PROCESS+2~, PROCESS+14*, PROCESS+41
ECDSSU EXIT+3!
ECDSSU( ASKREAS+9, PROCESS+10, PROCESS+11, PRINT+17, PRINT+18
ECDT PRINT+1~, LOOP1+1*, LOOP1+2, LOOP1+4
ECED EN+7, RANGE+4*, RANGE+9, RANGE+11*, RANGE+12, RANGE+15*, PROCESS+12, PROCESS+15, PROCESS+25, PRINT+4
, MODPRT+4, EXIT+3!
ECED2 PRINT+1~, PRINT+4*, HEAD+6
ECENDDT RANGE+1~, RANGE+11
ECFILE PROCESS+2~, PROCESS+22*, PROCESS+23, PROCESS+26, PROCESS+27, PROCESS+28
>> ECGUI START+2, EXIT+1
ECLINK PROCESS+6, EXIT+3!
ECLINK( ASKREAS+14*, ASKREAS+16!, SPECR+19!, PROCESS+18
ECLOC EXIT+3!
ECLOC( ASKREAS+7, ASKREAS+8, PROCESS+8, PROCESS+9, PRINT+15, PRINT+16
ECLOCA PROCESS+1~, PROCESS+16*, PROCESS+17, PROCESS+20, PROCESS+40, PROCESS+41, PRINT+1~, PRINT+20*, PRINT+23, LOOP+2
, LOOP+4, LOOP+5, LOOP+6, LOOP1, LOOP1+1
ECLOOP EN+7, RANGE+5, RANGE+6*, RANGE+8, RANGE+9, RANGE+10*, EXIT+3!
ECMD PROCESS+3~, PROCESS+36*, PROCESS+38*, PROCESS+39*, PROCESS+41
ECMOD PROCESS+3~, PROCESS+37!, LOOP+5*, LOOP+6*, LOOP+7, LOOP1, LOOP1+1, MODPRT+3
ECMOD( PROCESS+38
ECMODF PROCESS+3~, PROCESS+37*
ECP PROCESS+1~, PROCESS+19*, PROCESS+20, PROCESS+22, PROCESS+23, PROCESS+28
ECPA PROCESS+1~, PROCESS+31*, PROCESS+32
ECPATN PROCESS+1~, PROCESS+31*, PROCESS+32*, PROCESS+34*, PROCESS+41, PRINT+1~, LOOP1*, LOOP1+1
>> ECPI PROCESS+21*, PROCESS+25*, PROCESS+27
ECPN PROCESS+1~, PROCESS+26*, PROCESS+27*, PROCESS+28*, PROCESS+29, PROCESS+30, PROCESS+40, PROCESS+41, PRINT+1~, LOOP+3*
, LOOP+4*, LOOP+5, LOOP+6, LOOP1, LOOP1+1
ECPRV PROCESS+2~, PROCESS+35*
ECPRVN PROCESS+2~, PROCESS+35*, PROCESS+41, PRINT+1~, LOOP1+2*, LOOP1+3*, LOOP1+4
ECPSY PROCESS+2~, PROCESS+20*, PROCESS+21
ECPSYN PROCESS+2~, PROCESS+21*, PROCESS+30
ECR PROCESS+1~, PROCESS+18*
ECREAS ASKREAS+2~, ASKREAS+22!, ASKREAS+24
ECREAS( ASKREAS+15*, ASKREAS+16!, ASKREAS+26, ASKREAS+29, SPECR+17!, SPECR+19
ECREASN PRINT+1~, LOOP+1*, LOOP+2*, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP1, LOOP1+1
ECRL PROCESS+1~, PROCESS+18*
ECRN PROCESS+1~, PROCESS+18*, PROCESS+40, PROCESS+41
ECSD EN+7, RANGE+4*, RANGE+5, RANGE+7*, RANGE+8, PROCESS+12, PROCESS+15, PRINT+4, EXIT+2!
ECSD2 PRINT+1~, PRINT+4*, HEAD+6
ECSS PROCESS+1~, PROCESS+31*, PROCESS+32*, PROCESS+33
ECSSN PROCESS+1~, PROCESS+33*, PROCESS+34
ECSTDT RANGE+1~, RANGE+7, RANGE+10
ECUNIT PROCESS+2~, PROCESS+16*, PROCESS+17, PROCESS+20, PROCESS+40, PROCESS+41, PRINT+1~, PRINT+21*, PRINT+23, LOOP+2
, LOOP+4, LOOP+5, LOOP+6, LOOP1, LOOP1+1
I ASKREAS+11*, MODPRT+1~, MODPRT+3*, MODPRT+6
IEN MODPRT+1~, MODPRT+3*, MODPRT+4
IO START+2, START+3
IO("Q" EN+10, DEVICE+3, EXIT+2!
IO(0 START+3
IOF ASKREAS+25, ASKREAS+28, PRINT+12, PRINT+25, PRINT+27, HEAD+3
IOP DEVICE+1!
IOSL ASKREAS+27, LOOP+3, LOOP1+5, MODPRT+6
IOST PRINT+10, PRINT+12, PRINT+25, PRINT+27, HEAD+1, HEAD+2, HEAD+3
JJ EN+1~, EN+2*, EN+3*, EN+4*, ASKREAS+2~, ASKREAS+7*, ASKREAS+8, ASKREAS+31*, PROCESS+3~, PROCESS+8*
, PROCESS+9, PROCESS+10*, PROCESS+11, PRINT+2~, PRINT+11*, PRINT+15*, PRINT+16, PRINT+17*, PRINT+18, PRINT+26*
, HEAD+1*, EXIT+2!
KK ASKREAS+2~, ASKREAS+9*
LINK ASKREAS+2~, ASKREAS+14*, ASKREAS+16, SPECR+19*
LOC PRINT+2~, PRINT+8*, PRINT+20*, HEAD+8
MOD MODPRT+1~, MODPRT+4*, MODPRT+6
MODESC MODPRT+1~, MODPRT+5*, MODPRT+6
MODI MODPRT+1~, MODPRT+4*, MODPRT+5
NLOC ASKREAS+2~, ASKREAS+8*, ASKREAS+9, PROCESS+3~
NLOC( PROCESS+9*, PROCESS+17
NUNIT ASKREAS+2~, ASKREAS+9*, PROCESS+3~
NUNIT( PROCESS+11*, PROCESS+17
P ASKREAS+2~, ASKREAS+10*, ASKREAS+11*, ASKREAS+12*, ASKREAS+13, ASKREAS+14
PAGE PRINT+2~, PRINT+3*, HEAD+2, HEAD+4*, HEAD+7
>> POP EN+8, DEVICE+2
PRNTDT PRINT+2~, PRINT+5*, HEAD+8
PROVN PRINT+2~, LOOP1+4*, LOOP1+5
PTNAME PRINT+2~, LOOP1+2*, LOOP1+5
QFLAG PRINT+2~, PRINT+3*, PRINT+10, PRINT+20, PRINT+21, PRINT+25, LOOP+2, LOOP+3, LOOP+4, LOOP+6
, LOOP+7, LOOP1, LOOP1+1, LOOP1+5, MODPRT+3, HEAD+2*
R ASKREAS+2~, ASKREAS+12*, ASKREAS+13*, ASKREAS+14, ASKREAS+15, ASKREAS+16, ASKREAS+26*, ASKREAS+29, SPECR+1~, SPECR+16
, SPECR+17*, SPECR+19*
R( SPECR+12*, SPECR+17
S ASKREAS+2~, ASKREAS+17!
S( ASKREAS+11*, ASKREAS+12
SEQ PROCESS+37*, PROCESS+38*, PRINT+1~
SS ASKREAS+31*, PRINT+2~, PRINT+11*, PRINT+26*, HEAD+1*
SSN PRINT+1~, LOOP1+3*, LOOP1+5
U PROCESS+16, PROCESS+19, PROCESS+20
UNIT PRINT+2~, PRINT+8*, PRINT+21*, HEAD+7
X PRINT+1~, EXIT+2!
Y ASKREAS+2~, ASKREAS+21, ASKREAS+22, ASKREAS+27, SPECR+2!, SPECR+5, SPECR+7!, SPECR+8, SPECR+11, SPECR+12
, SPECR+16*, SPECR+20*, PRINT+1~, PRINT+4*, PRINT+5*, LOOP1+4*, HEAD+2, EXIT+2!
>> ZTDESC DEVICE+4*
>> ZTQUEUED START+4
>> ZTREQ START+4*
>> ZTRTN DEVICE+4*
>> ZTSAVE("ECDSSU(" DEVICE+5*
>> ZTSAVE("ECED" DEVICE+5*
>> ZTSAVE("ECLINK(" DEVICE+5*
>> ZTSAVE("ECLOC(" DEVICE+5*
>> ZTSAVE("ECSD" DEVICE+5*
ZTSK EN+9, EN+10, DEVICE+1!, DEVICE+7, DEVICE+8, EXIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All