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

Package: PCE Patient Care Encounter

Routine: PXRRFDP


Information

PXRRFDP ;ISL/PKR - Final sort and print of frequency of diagnosis report. ;9/5/97

Source Information

Source file <PXRRFDP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 4 EXIT^PXRRFDD  (FACNE,HDR,OSCAT,PAGE,PECLASS)^PXRRGPRT  (EOR,EXIT)^PXRRGUT  $$ABBRV^PXRRPECU  
Kernel 3 $$S^%ZTLOAD  $$FMTE^XLFDT  $$MAX^XLFMTH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXRRFDSD  

Entry Points

Name Comments DBIA/ICR reference
EXIT ;
DHEAD(NEWPAGE) ;
NTOTDC
NPRV ;
NFAC
MAXP
NICD9
NLOC ;
NTOTICD
NINFO
DIAGCAT ;
HEAD(NEWPAGE) ;
PRINT ;
END ;
DCHEAD(NEWPAGE) ;
NDC
NVACODE ;

External References

Name Field # of Occurrence
$$S^%ZTLOAD NFAC+9
EXIT^PXRRFDD NFAC+9
FACNE^PXRRGPRT END+2
HDR^PXRRGPRT PRINT+15
OSCAT^PXRRGPRT PRINT+56
PAGE^PXRRGPRT DHEAD+1, DHEAD+2, DCHEAD+1, DCHEAD+2, HEAD+2, HEAD+3
PECLASS^PXRRGPRT PRINT+58
EOR^PXRRGUT EXIT+2
EXIT^PXRRGUT EXIT+1
$$ABBRV^PXRRPECU NLOC+9, NLOC+14
$$FMTE^XLFDT PRINT+18, PRINT+19, PRINT+33, PRINT+37, PRINT+41
$$MAX^XLFMTH NLOC+28, DHEAD+5, DCHEAD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Criteria for Frequency of Diagnoses Report"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter diagnoses:",?C1S,$P(PXRRFDDC,U,2)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter date range:",?C1S,BD," through ",ED
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,?INDENT,"Selected encounters:",?C1S,"ALL"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,?INDENT,"Selected Providers:",?C1S,$P(PXRRPRSC,U,2)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,?INDENT,$P(PXRRLCSC,U,2)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter type:",?C1S,PXRRETYP
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," to ",PXRRMAXA
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," or more"
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,ED," or before"
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,"Up to ",PXRRMAXA
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,"ALL"
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !?INDENT,"Patient ",RACE,":",?C1S,$P(PXRRRACE(1),U,2)
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: !,?C1S,$P(PXRRRACE(IC),U,2)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !?INDENT,"Patient race(s):",?C1S,"ALL"
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: !?INDENT,"Patient sex:",?C1S,$P(PXRRSEX,U,2)
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !?INDENT,"Patient sex:",?C1S,"BOTH"
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: !!,?INDENT,"Maximum number of diagnoses to be displayed: ",PXRRDMAX
  • Line Location: MAXP+0
Function Call: WRITE
  • Prompt: !!,?INDENT,"Total number of Encounters meeting the selection criteria:",?C1S,$J(ETOT,LEN)
  • Line Location: NLOC+29
Function Call: WRITE
  • Prompt: !,?INDENT,TEMP,?C1S,$J(DTOT,LEN)
  • Line Location: NLOC+30
Function Call: WRITE
  • Prompt: !,?INDENT,"Diagnoses/Encounter ratio:",?C1S,$J(RATIO,LEN,2)
  • Line Location: NLOC+32
Function Call: WRITE
  • Prompt: !,?INDENT,$J(NUM,5),".",?C1S,$P(^ICD9(ICD9IEN,0),U,1),?C2S,$P(^ICD9(ICD9IEN,0),U,3),?C3S,TEMP
  • Line Location: NICD9+9
Function Call: WRITE
  • Prompt: !!,"CANNOT CONTINUE, File 80.3 Major Diagnostic Category is corrupted!"
  • Line Location: NDC+13
Function Call: WRITE
  • Prompt: !,"^ICM(",DCIEN,",0) is missing."
  • Line Location: NDC+14
Function Call: WRITE
  • Prompt: !,"Please contact customer service for help."
  • Line Location: NDC+15
Function Call: WRITE
  • Prompt: !,?INDENT,$J(NUM,5),".",?C1S,$P(^ICM(DCIEN,0),U,1),?C2S,TEMP
  • Line Location: NDC+16
Function Call: WRITE
  • Prompt: !,?INDENT,$J(NUM,5),".",?C1S,"Unknown",?C2S,TEMP
  • Line Location: NDC+17
Function Call: WRITE
  • Prompt: !!,?INDENT,PXRRDMAX," Most Frequent ICD Diagnoses:"
  • Line Location: DHEAD+9
Function Call: WRITE
  • Prompt: !,?C1HS,"Code",?C2HS,"Description",?C3HS,"Frequency"
  • Line Location: DHEAD+10
Function Call: WRITE
  • Prompt: !,?C1S,"------",?C2S,"------------------------------",?C3HS,"---------"
  • Line Location: DHEAD+11
Function Call: WRITE
  • Prompt: !!,?INDENT,PXRRDMAX," Most Frequent Diagnostic Categories:"
  • Line Location: DCHEAD+9
Function Call: WRITE
  • Prompt: !,?C1HS,"Diagnostic Category",?C2HS,"Frequency"
  • Line Location: DCHEAD+10
Function Call: WRITE
  • Prompt: !,?C1S,"------------------------------",?C2HS,"---------"
  • Line Location: DCHEAD+11
Function Call: WRITE
  • Prompt: !!,"___________________________________________________________________"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"Facility: ",FACPNAME
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,PLOCNAM,$P(HLOC,U,1)_" (",$P(HLOC,U,3)_")"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,$E(TEMP,1,CMAX)
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !," ",$E(TEMP,CMAX+1,LEN)
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,TEMP
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,"Person Class (Occupation+Specialty+Subspecialty): "
  • Line Location: HEAD+17
Function Call: WRITE
  • Prompt: !,?INDENT,$E(PCLASS,1,CMAX)
  • Line Location: HEAD+20
Function Call: WRITE
  • Prompt: !,?(INDENT+1),$E(PCLASS,CMAX+1,LEN)
  • Line Location: HEAD+21
Function Call: WRITE
  • Prompt: !,?INDENT,PCLASS
  • Line Location: HEAD+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] NICD9+9
^ICM - [#80.3] NDC+12, NDC+16
^XTMP( NFAC+1, NINFO, NPRV+1, NVACODE+1, NLOC+1, NLOC+4, NLOC+24, NLOC+26, NTOTICD, NICD9
, NTOTDC, NDC

Label References

Name Line Occurrences
DCHEAD NDC+6
DHEAD NICD9+6
DIAGCAT NTOTICD+1
END NFAC+2
EXIT NLOC+18, NLOC+21, NICD9+7, NDC+7, NDC+12
HEAD NLOC+17, NLOC+20
MAXP PRINT+21
NDC NDC+18
NFAC NINFO+1
NICD9 NICD9+10
NINFO NPRV+2
NLOC NTOTDC+1, NDC+21
NPRV NVACODE+2
NTOTDC NDC+1
NTOTICD NICD9+1
NVACODE NLOC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS PRINT+1~, PRINT+25*, PRINT+26*
BD PRINT+1~, PRINT+18*, PRINT+20, PRINT+33*, PRINT+34, PRINT+41*, PRINT+42
BMARG PRINT+1~, PRINT+11*, NLOC+20, NICD9+4, NDC+4, DHEAD+2, DCHEAD+2, HEAD+3
BYLOC PRINT+3~, NINFO+3*, NINFO+4*, HEAD+8
BYPC PRINT+3~, NINFO+5*, NINFO+6*, NLOC+13, HEAD+16
BYPRV PRINT+3~, NINFO+7*, NINFO+8*, NLOC+7, HEAD+9
C1E PRINT+1~, DIAGCAT+1*, DCHEAD+6
C1HS PRINT+1~, NLOC+35*, DIAGCAT+2*, DHEAD+10, DCHEAD+10
C1S PRINT+1~, PRINT+12*, PRINT+17, PRINT+20, PRINT+22, PRINT+24, PRINT+28, PRINT+32, PRINT+34, PRINT+36
, PRINT+38, PRINT+40, PRINT+42, PRINT+43, PRINT+49, PRINT+50, PRINT+51, PRINT+53, PRINT+54, NLOC+19*
, NLOC+29, NLOC+30, NLOC+32, NLOC+34*, NICD9+9, DIAGCAT+1*, NDC+16, NDC+17, DHEAD+11, DCHEAD+11
C2E PRINT+1~, NLOC+34*, NDC+8, DHEAD+6, DCHEAD+8*
C2HS PRINT+1~, NLOC+35*, DHEAD+10, DCHEAD+7*, DCHEAD+10, DCHEAD+11
C2S PRINT+1~, NLOC+34*, NICD9+9, NDC+8*, NDC+16, NDC+17, DHEAD+11
C3E PRINT+1~, NICD9+8, DHEAD+8*
C3HS PRINT+1~, DHEAD+7*, DHEAD+10, DHEAD+11
C3S PRINT+1~, NICD9+8*, NICD9+9
CMAX PRINT+1~, MAXP+2*, HEAD+12, HEAD+13, HEAD+14, HEAD+19, HEAD+20, HEAD+21
DCIEN PRINT+3~, NTOTDC+3*, NDC*, NDC+1, NDC+12, NDC+14, NDC+16
DONE PRINT+3~, PRINT+14*, NLOC+18, NLOC+21, NICD9+7, NDC+7, DHEAD+3, DCHEAD+3, HEAD+4
DT PRINT+31, PRINT+39, PRINT+41
DTOT PRINT+3~, NLOC+26*, NLOC+27*, NLOC+28, NLOC+30, NLOC+31
ED PRINT+3~, PRINT+19*, PRINT+20, PRINT+33*, PRINT+34, PRINT+37*, PRINT+38, PRINT+41*, PRINT+42
ETOT PRINT+3~, NLOC+24*, NLOC+25*, NLOC+28, NLOC+29, NLOC+31
FACILITY PRINT+4~, MAXP+8*, NFAC+1*, NFAC+2, NFAC+4, NFAC+6, NPRV+1, NVACODE+1, NLOC+1, NLOC+4
FACPNAME PRINT+4~, NFAC+6*, HEAD+7
FOUND PRINT+3~
HEAD PRINT+2~, NLOC+16*, NICD9+3*, NDC+3*, DHEAD+4, DHEAD+12*, DCHEAD+4, DCHEAD+12*, HEAD+5, HEAD+23*
HLOC PRINT+3~, NVACODE+4*, NLOC+1*, NLOC+2, NLOC+4, HEAD+8
IC PRINT+3~, PRINT+4~, PRINT+50*, NFAC+4*, NFAC+5
ICD9IEN PRINT+3~, NTOTICD+3*, NICD9*, NICD9+1, NICD9+9
INDENT PRINT+1~, PRINT+12*, PRINT+17, PRINT+20, PRINT+22, PRINT+24, PRINT+27, PRINT+28, PRINT+32, PRINT+34
, PRINT+36, PRINT+38, PRINT+40, PRINT+42, PRINT+43, PRINT+49, PRINT+51, PRINT+53, PRINT+54, PRINT+56
, PRINT+58, MAXP, NLOC+19, NLOC+29, NLOC+30, NLOC+32, NLOC+34, NLOC+35, NICD9+9, DIAGCAT+1
, NDC+16, NDC+17, END+2, DHEAD+9, DCHEAD+9, HEAD+18, HEAD+20, HEAD+21, HEAD+22
INFOTYPE PRINT+4~, NFAC*, NFAC+1, NINFO*, NINFO+1, NINFO+3, NINFO+5, NINFO+7, NPRV+1, NVACODE+1
, NLOC+1, NLOC+4
IO PRINT+10
IOSL NLOC+20, NICD9+4, NDC+4, DHEAD+2, DCHEAD+2, HEAD+3
LEN PRINT+2~, NLOC+28*, NLOC+29, NLOC+30, NLOC+32, DHEAD+5*, DHEAD+6, DCHEAD+5*, DCHEAD+6, HEAD+1~
, HEAD+11*, HEAD+12, HEAD+14, HEAD+18*, HEAD+19, HEAD+21
LOCPNAM PRINT+4~
MID PRINT+1~, DHEAD+6*, DHEAD+7, DHEAD+8, DCHEAD+6*, DCHEAD+7, DCHEAD+8
NEWPAGE PRINT+4~, NICD9+4*, NICD9+5*, NICD9+6, NDC+4*, NDC+5*, NDC+6, DHEAD~, DHEAD+1, DCHEAD~
, DCHEAD+1, HEAD~, HEAD+2
>> NFAC NFAC+4
>> NRACE PRINT+48, PRINT+50
NUM PRINT+2~, NLOC+37*, NICD9+2*, NICD9+3, NICD9+9, NICD9+10, DIAGCAT+4*, NDC+2*, NDC+3, NDC+16
, NDC+17, NDC+18
PAGE PRINT+2~, PRINT+12*, PRINT+15
PCLASS PRINT+4~, NLOC+9*, NLOC+10*, NLOC+14*, HEAD+10, HEAD+18, HEAD+20, HEAD+21, HEAD+22
>> PLOCNAM MAXP+5*, MAXP+6*, HEAD+8
PRV PRINT+4~, NINFO+10*, NPRV+1*, NPRV+2, NVACODE+1, NLOC+1, NLOC+4, NLOC+8, HEAD+10
>> PXRRBDT PRINT+18
>> PXRRCS PRINT+25
>> PXRRDMAX MAXP, NICD9+10, NDC+18, DHEAD+9, DCHEAD+9
>> PXRRDOB PRINT+30
>> PXRRDOBE PRINT+31, PRINT+33, PRINT+37, PRINT+39
>> PXRRDOBS PRINT+31, PRINT+33, PRINT+35, PRINT+41
>> PXRRECAT PRINT+21
>> PXRREDT PRINT+19
>> PXRRETYP PRINT+28
>> PXRRFAC( NFAC+4, NFAC+5*
>> PXRRFACN( NFAC+6
>> PXRRFDDC PRINT+17, NLOC+22
>> PXRRLCSC PRINT+27, MAXP+4, MAXP+5, MAXP+6
>> PXRRMAXA PRINT+32, PRINT+40
>> PXRRMINA PRINT+32, PRINT+36
>> PXRRPRSC PRINT+24, PRINT+58
>> PXRRRACE PRINT+45
>> PXRRRACE( PRINT+50
>> PXRRRACE(1 PRINT+49
>> PXRRSCAT PRINT+56
>> PXRRSEX PRINT+53
>> PXRRXTMP NFAC+1, NINFO, NPRV+1, NVACODE+1, NLOC+1, NLOC+4, NLOC+24, NLOC+26, NTOTICD, NICD9
, NTOTDC, NDC
RACE PRINT+46~, PRINT+47*, PRINT+48*, PRINT+49
RATIO PRINT+5~, NLOC+31*, NLOC+32, DHEAD+4, DCHEAD+4
STOIND PRINT+5~, NLOC+4*, NLOC+24, NLOC+26, NTOTICD, NICD9, NTOTDC, NDC
TEMP PRINT+5~, NLOC+8*, NLOC+9, NLOC+22*, NLOC+23*, NLOC+30, NTOTICD+2*, NICD9+8, NICD9+9, NTOTDC+2*
, NDC+8, NDC+16, NDC+17, DHEAD+5, DHEAD+8, DCHEAD+5, DCHEAD+8, HEAD+1~, HEAD+10*, HEAD+11
, HEAD+13, HEAD+14, HEAD+15
TOTAL PRINT+5~, NLOC+36*, NTOTICD*, NTOTICD+1, NTOTICD+2, NICD9, DIAGCAT+3*, NTOTDC*, NTOTDC+1, NTOTDC+2
, NDC
U PRINT+17, PRINT+24, PRINT+27, PRINT+49, PRINT+50, PRINT+53, PRINT+58, NFAC+4, NFAC+5, NFAC+6
, NLOC+8, NLOC+22, NICD9+9, NDC+16, HEAD+8, HEAD+10
VACODE PRINT+5~, NPRV+4*, NVACODE+1*, NVACODE+2, NLOC+1, NLOC+4, NLOC+14
>> ZTREQ PRINT+8*
>> ZTSTOP NFAC+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All