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
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. ;05/17/2018

Source Information

Source file <PXRRFDP.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Criteria for Frequency of Diagnoses Report"
  • Line Location: PROCSS2+6
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter diagnoses:",?C1S,$P(PXRRFDDC,U,2)
  • Line Location: PROCSS2+7
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter date range:",?C1S,BD," through ",ED
  • Line Location: PROCSS2+10
Function Call: WRITE
  • Prompt: !,?INDENT,"Selected encounters:",?C1S,"ALL"
  • Line Location: PROCSS2+12
Function Call: WRITE
  • Prompt: !,?INDENT,"Selected Providers:",?C1S,$P(PXRRPRSC,U,2)
  • Line Location: PROCSS2+14
Function Call: WRITE
  • Prompt: !,?INDENT,$P(PXRRLCSC,U,2)
  • Line Location: PROCSS2+17
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter type:",?C1S,PXRRETYP
  • Line Location: PROCSS2+18
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," to ",PXRRMAXA
  • Line Location: PROCSS2+22
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED
  • Line Location: PROCSS2+24
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," or more"
  • Line Location: PROCSS2+26
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,ED," or before"
  • Line Location: PROCSS2+28
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,"Up to ",PXRRMAXA
  • Line Location: PROCSS2+30
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED
  • Line Location: PROCSS2+32
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,"ALL"
  • Line Location: PROCSS2+33
Function Call: WRITE
  • Prompt: !?INDENT,"Patient ",RACE,":",?C1S,$P(PXRRRACE(1),U,2)
  • Line Location: PROCSS2+39
Function Call: WRITE
  • Prompt: !,?C1S,$P(PXRRRACE(IC),U,2)
  • Line Location: PROCSS2+40
Function Call: WRITE
  • Prompt: !?INDENT,"Patient race(s):",?C1S,"ALL"
  • Line Location: PROCSS2+41
Function Call: WRITE
  • Prompt: !?INDENT,"Patient sex:",?C1S,$P(PXRRSEX,U,2)
  • Line Location: PROCSS2+43
Function Call: WRITE
  • Prompt: !?INDENT,"Patient sex:",?C1S,"BOTH"
  • Line Location: PROCSS2+44
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: !," ",$P(ICDDATA,U,2),?11,$E($P(ICDDATA,U,4),1,60),?72,$J($FN(TEMP,",",0),7)
  • Line Location: NICD9+10
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-",$S(DOCOUNT=1:"9",1:"10")," Diagnoses:"
  • Line Location: DHEAD+10
Function Call: WRITE
  • Prompt: !," Code",?11,"Description",?72,"Freq."
  • Line Location: DHEAD+11
Function Call: WRITE
  • Prompt: !," --------",?11,DASH60,?72,"-------"
  • Line Location: DHEAD+12
Function Call: WRITE
  • Prompt: !!,?INDENT,PXRRDMAX," Most Frequent ICD-",$S(DOCOUNT=1:"9",1:"10")," 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
Info |  Source |  Entry Points |  Interaction Calls