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

Package: PCE Patient Care Encounter

Routine: PXBDCPT


Information

PXBDCPT ;ISL/JVS,ESW - DISPLAY CPT ; Mar 24, 2022@23:05

Source Information

Source file <PXBDCPT.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls