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

Package: PCE Patient Care Encounter

Routine: PXBDCPT


Information

PXBDCPT ;ISL/JVS,ESW - DISPLAY CPT ;24 May 2013 10:44 AM

Source Information

Source file <PXBDCPT.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
PCE Patient Care Encounter 9 (LOC,UNDOFF,UNDON)^PXBCC  DISCPT4^PXBDCPT  CIA^PXBDPOV  $$XLATE^PXBGPOV  NONE^PXBUTL  PRV^PXBUTL2  WRAP^PXCEVFI4  $$CSDATE^PXDXUTL  
PR^PXSELDS  
DRG Grouper 2 $$LD^ICDEX  $$ICDDATA^ICDXCODE  
Kernel 2 GSET^%ZISS  $$SENTENCE^XLFSTR  
CPT HCPCS Codes 1 ($$MOD,$$MODP)^ICPTMOD  

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

Package Total Caller Graph
PCE Patient Care Encounter 4 PXBDCPT  PXBMCPT  PXBMCPT2  PXBPCPT  

Entry Points

Name Comments DBIA/ICR reference
EN0 ;---Main entry point
HEAD ;--HEADER ON LIST
ARRAY ;Set all CPT codes and modifiers into ^TMP("PXBDCPT",$J,"DSP"
DISCPT1 ;--Display the CPT Data
DISCPT2 ;--display of cpt data two columns if more than 10 entries.
DISCPT3 ;--display of cpt data three columns if more than 20 entries.
DISCPT4(SIGN) ;--Display the CPT Data
HEAD4 ;--HEADER ON LIST
BAWRITE(PXD) ;WRITE BA INFO

External References

Name Field # of Occurrence
GSET^%ZISS DISCPT2+3, DISCPT3+2
$$LD^ICDEX ARRAY+32
$$ICDDATA^ICDXCODE ARRAY+27
$$MOD^ICPTMOD DISCPT1+20
$$MODP^ICPTMOD ARRAY+20
LOC^PXBCC DISCPT4+29
UNDOFF^PXBCC DISCPT1+6, DISCPT2+8, DISCPT3+8, HEAD4+10
UNDON^PXBCC DISCPT1+3, DISCPT2+4, DISCPT3+3, HEAD4+7
DISCPT4^PXBDCPT HEAD+11
CIA^PXBDPOV HEAD4+29, BAWRITE+7
$$XLATE^PXBGPOV ARRAY+40, BAWRITE+4
NONE^PXBUTL DISCPT1+27
PRV^PXBUTL2 HEAD+5
WRAP^PXCEVFI4 DISCPT1+21
$$CSDATE^PXDXUTL ARRAY+24
PR^PXSELDS ARRAY+33
$$SENTENCE^XLFSTR ARRAY+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOINHI,!,IOCUU,?(IOM-$L(HEAD))\2,HEAD,IOINLOW
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"No.",?4,"CPT CODE",?14,"QUANTITY",?25,"DESCRIPTION",?55,"PROVIDER",?75,$C(32)
  • Line Location: DISCPT1+4
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT1+5
Function Call: WRITE
  • Prompt: IOG1
  • Line Location: DISCPT2+4
Function Call: WRITE
  • Prompt: !,"NO",?4,"CPT",?10,"QUA",?14,"DESCRIPTION",?39,IOVL
  • Line Location: DISCPT2+5
Function Call: WRITE
  • Prompt: ?40,"NO",?44,"CPT",?50,"QUA",?54,"NARRATIVE"
  • Line Location: DISCPT2+6
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT2+7
Function Call: WRITE
  • Prompt: IOG0
  • Line Location: DISCPT2+20
Function Call: WRITE
  • Prompt: IOG1
  • Line Location: DISCPT3+3
Function Call: WRITE
  • Prompt: !,"NO",?4,"CPT",?10,"QUA",?14,"NARRATIVE",?25,IOVL
  • Line Location: DISCPT3+4
Function Call: WRITE
  • Prompt: ?26,"NO",?30,"CPT",?36,"QUA",?40,"NARRATIVE",?51,IOVL
  • Line Location: DISCPT3+5
Function Call: WRITE
  • Prompt: ?52,"NO",?56,"CPT",?62,"QUA",?66,"NARRATIVE"
  • Line Location: DISCPT3+6
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT3+7
Function Call: WRITE
  • Prompt: IOG0
  • Line Location: DISCPT3+21
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT4+29
Function Call: WRITE
  • Prompt: IOINHI,!,IOCUU,?(IOM-$L(HEAD))\2,HEAD,IOINLOW
  • Line Location: HEAD4+2
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: HEAD4+3
Function Call: WRITE
  • Prompt: !,"No.",?4,"CPT CODE",?14,"QUANTITY",?25,"DESCRIPTION",?55,"PROVIDER",?75,$C(32)
  • Line Location: HEAD4+8
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: HEAD4+9
Function Call: WRITE
  • Prompt: !?4,"Ordering Provider: ",$P(^(0),U,2)
  • Line Location: HEAD4+26
Function Call: WRITE
  • Prompt: !?4,"Diagnosis "_(PX-4)_": ",$P(^(0),U,2)
  • Line Location: HEAD4+27
Function Call: WRITE
  • Prompt: !?28,$P(^(0),U,2)
  • Line Location: HEAD4+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEAD4+32
Function Call: WRITE
  • Prompt: !?4,"Ordering Provider: ",$P(PXD,U,22)
  • Line Location: BAWRITE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PXBDCPT" DISCPT4+11*, DISCPT4+12, DISCPT4+14, DISCPT4+16*, DISCPT4+18, DISCPT4+19*, DISCPT4+20*, DISCPT4+21*, DISCPT4+24*, HEAD4+19*

Label References

Name Line Occurrences
ARRAY DISCPT4+10
BAWRITE DISCPT2+16, DISCPT2+19, DISCPT3+14, DISCPT3+17, DISCPT3+20

Naked Globals

Name Field # of Occurrence
^(0 HEAD4+22, HEAD4+23, HEAD4+25, HEAD4+26, HEAD4+27, HEAD4+28, HEAD4+29, HEAD4+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CLINIC HEAD+5
ENTRY ARRAY+3~, ARRAY+9*, ARRAY+11, ARRAY+13, ARRAY+14*, ARRAY+15, ARRAY+20, ARRAY+23, ARRAY+26, DISCPT1+2~
DISCPT1+11*, DISCPT1+12*, DISCPT1+13, DISCPT1+14, DISCPT2+2~, DISCPT3+1~, HEAD4+6~
ENTRY( DISCPT2+13*, DISCPT2+15, DISCPT2+16, DISCPT2+17, DISCPT2+18, DISCPT2+19, DISCPT3+11*, DISCPT3+13, DISCPT3+14, DISCPT3+15
DISCPT3+16, DISCPT3+17, DISCPT3+18, DISCPT3+19, DISCPT3+20
HEAD HEAD+1*, HEAD+2, HEAD+3!, HEAD4+1*, HEAD4+2, HEAD4+3!
>> IDATE ARRAY+20, DISCPT1+20
>> IOCUU HEAD+2, HEAD4+2
>> IOEDEOP DISCPT1+5, DISCPT2+7, DISCPT3+7, DISCPT4+29, HEAD4+9
>> IOELEOL HEAD+3, HEAD4+3
>> IOG0 DISCPT2+20, DISCPT3+21
>> IOG1 DISCPT2+4, DISCPT3+3
>> IOINHI HEAD+2, HEAD4+2
>> IOINLOW HEAD+2, HEAD4+2
IOM HEAD+2, HEAD4+2
>> IOVL DISCPT2+5, DISCPT2+18, DISCPT3+4, DISCPT3+5, DISCPT3+16, DISCPT3+19
J DISCPT1+2~, DISCPT1+9*, DISCPT1+10*, DISCPT1+11, DISCPT1+13, DISCPT1+17, DISCPT1+19, DISCPT2+2~, DISCPT2+12*, DISCPT2+13
DISCPT2+14*, DISCPT2+15, DISCPT2+16, DISCPT2+17, DISCPT2+18, DISCPT2+19, DISCPT3+1~, DISCPT3+10*, DISCPT3+11, DISCPT3+12*
DISCPT3+13, DISCPT3+14, DISCPT3+15, DISCPT3+16, DISCPT3+17, DISCPT3+18, DISCPT3+19, DISCPT3+20, HEAD4+6~, HEAD4+14*
HEAD4+16*, HEAD4+21, HEAD4+24, HEAD4+29, HEAD4+30
PD BAWRITE+1~, BAWRITE+4*, BAWRITE+5, BAWRITE+6
PL HEAD4+13~
PP BAWRITE+1~, BAWRITE+4*, BAWRITE+5, BAWRITE+7
PX HEAD4+13~, HEAD4+25*, HEAD4+26, HEAD4+27, HEAD4+28, BAWRITE+1~, BAWRITE+3*, BAWRITE+4
PX124 ARRAY+3~, ARRAY+25*, ARRAY+26, ARRAY+30, ARRAY+37, ARRAY+39
PXA DISCPT2+2~, DISCPT3+1~
>> PXBNCPT( ARRAY+11, ARRAY+13, DISCPT1+12, DISCPT2+13, DISCPT3+11
>> PXBREQ( ARRAY+40*, ARRAY+41
>> PXBSAM DISCPT1+27
>> PXBSAM( ARRAY+7, ARRAY+9, ARRAY+10*, ARRAY+17, ARRAY+19, DISCPT1+10, DISCPT1+11, DISCPT1+17, DISCPT1+19, DISCPT2+12
DISCPT2+13, DISCPT3+10, DISCPT3+11
>> PXBSKY( ARRAY+13
PXBSTART DISCPT4+9~, DISCPT4+11*, DISCPT4+12*, DISCPT4+14*, DISCPT4+15*, DISCPT4+16, DISCPT4+18*, DISCPT4+19, DISCPT4+20*, DISCPT4+21
, DISCPT4+22*, DISCPT4+23*, DISCPT4+24, DISCPT4+25*, DISCPT4+26*, HEAD4+14, HEAD4+19
>> PXBVST ARRAY+24, ARRAY+40, BAWRITE+4
PXC ARRAY+3~, ARRAY+26*, ARRAY+27, ARRAY+29*, ARRAY+30, ARRAY+34, ARRAY+36
PXD ARRAY+3~, ARRAY+27*, ARRAY+28, ARRAY+29, ARRAY+31, ARRAY+32, ARRAY+40, ARRAY+41, BAWRITE~, BAWRITE+2
, BAWRITE+4
PXDESC ARRAY+3~, ARRAY+20*, ARRAY+21, DISCPT1+18~, DISCPT1+20*, DISCPT1+21, HEAD4+13~
PXDXDATE ARRAY+3~, ARRAY+24*, ARRAY+27, ARRAY+32
PXENTRY ARRAY+32~, ARRAY+33, ARRAY+38
PXENTRY( ARRAY+39
PXENTRY(1 ARRAY+32*, ARRAY+36
PXLENGTH ARRAY+34~*, ARRAY+35
PXLN DISCPT1+18~, DISCPT1+22*, DISCPT1+23, DISCPT1+24, DISCPT1+25
PXLNS HEAD4+13~, HEAD4+15*, HEAD4+17*, HEAD4+18
PXLONG ARRAY+34~, ARRAY+36*, ARRAY+37
PXMD ARRAY+3~, ARRAY+16*, ARRAY+17*, ARRAY+19
PXMOD ARRAY+19*, ARRAY+20, ARRAY+21, DISCPT1+18~, DISCPT1+19*, DISCPT1+20, DISCPT1+23, HEAD4+13~
PXNUMBR ARRAY+38~*, ARRAY+39
PXQ HEAD4+13~, HEAD4+14*, HEAD4+16, HEAD4+20*
PXSIEN DISCPT1+16*, DISCPT1+17*, DISCPT1+19, HEAD4+13~
PXSPACES ARRAY+34~*, ARRAY+35*, ARRAY+36
PXSQ ARRAY+3~, ARRAY+6*, ARRAY+7*, ARRAY+9, ARRAY+10, ARRAY+13, ARRAY+15, ARRAY+17, ARRAY+19
>> PXTLNS ARRAY+6*, ARRAY+8*, ARRAY+10, ARRAY+15, ARRAY+18*, ARRAY+21, ARRAY+22*, ARRAY+23, ARRAY+30*, ARRAY+37*
ARRAY+39*, ARRAY+41*, DISCPT4+15
PXTMP ARRAY+4*, ARRAY+5, ARRAY+15, ARRAY+21, ARRAY+23, ARRAY+30, ARRAY+37, ARRAY+39, ARRAY+41, DISCPT4+9~
HEAD4+16, HEAD4+21, HEAD4+24, HEAD4+29, HEAD4+30
PXWRAP DISCPT1+18~, DISCPT1+21
PXWRAP( DISCPT1+22, DISCPT1+25
SIGN DISCPT4~, DISCPT4+11, DISCPT4+12, DISCPT4+13, DISCPT4+17, DISCPT4+21, DISCPT4+22, DISCPT4+24, DISCPT4+25, DISCPT4+29
HEAD4+32
U ARRAY+11, ARRAY+13, ARRAY+14, ARRAY+15, ARRAY+20, ARRAY+21, ARRAY+23, ARRAY+26, ARRAY+28, ARRAY+29
ARRAY+30, ARRAY+31, ARRAY+32, ARRAY+37, ARRAY+39, ARRAY+40, DISCPT1+12, DISCPT1+13, DISCPT1+14, DISCPT1+20
DISCPT2+13, DISCPT2+15, DISCPT2+18, DISCPT3+11, DISCPT3+13, DISCPT3+16, DISCPT3+19, HEAD4+22, HEAD4+23, HEAD4+25
HEAD4+26, HEAD4+27, HEAD4+28, HEAD4+29, HEAD4+30, HEAD4+31, BAWRITE+2, BAWRITE+4, BAWRITE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All