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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXBPCPT2

Package: PCE Patient Care Encounter

Routine: PXBPCPT2


Information

PXBPCPT2 ;WASH/BDB - PROMPT PROCEDURE DIAGNOSES ;10 Jun 2013 1:58 PM

Source Information

Source file <PXBPCPT2.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
PCE Patient Care Encounter 9 WIN17^PXBCC  EN1^PXBHLP0  PRI^PXBPPOV1  EN0^PXBSTOR  HELP1^PXBUTL1  GET800^PXCEC800  ^PXDSLK  ($$ACTDT,$$CSDATE)^PXDXUTL  
EN1^PXKMAIN  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Lexicon Utility 1 CONFIG^LEXSET  
List Manager 1 (CLEAR,FULL)^VALM1  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
PCE Patient Care Encounter 2 PXBMCPT2  PXBPCPT1  

Entry Points

Name Comments DBIA/ICR reference
CDX(PXN) ;--Diagnosis for Procedure
CPT1
PCPT1 ;SECOND ENTRY POINT
P1CPT1 ;--
PFINCPT1 ;--Finish DIAGNOSIS
CDXX1 ;--EXIT AND CLEAN UP
DUP(CD) ;DUPLICATE?

External References

Name Field # of Occurrence
^DIC P1CPT1+28, PFINCPT1+1
$$ICDDATA^ICDXCODE P1CPT1+33
CONFIG^LEXSET P1CPT1+25
WIN17^PXBCC PFINCPT1+11
EN1^PXBHLP0 P1CPT1+7, P1CPT1+9
PRI^PXBPPOV1 PFINCPT1+8
EN0^PXBSTOR PFINCPT1+14
HELP1^PXBUTL1 PFINCPT1+2
GET800^PXCEC800 PFINCPT1+11
^PXDSLK P1CPT1+21
$$ACTDT^PXDXUTL CPT1+2
$$CSDATE^PXDXUTL CPT1+1
EN1^PXKMAIN PFINCPT1+14
CLEAR^VALM1 P1CPT1+16, CDXX1+3
FULL^VALM1 P1CPT1+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," What is ",PXACS," DIAGNOSIS "_PXN_" for this procedure: "_$S($L(CPTDX):CPTDX_"//",1:""),IOELEOL
  • Line Location: PCPT1+1
Function Call: READ
  • Variable: DATA
  • Timeout: DTIME
  • Line Location: PCPT1+2
Function Call: WRITE
  • Prompt: !,"PRIMARY DIAGNOSIS IS REQUIRED!"
  • Line Location: P1CPT1+6
Function Call: WRITE
  • Prompt: DATA
  • Line Location: P1CPT1+12
Function Call: WRITE
  • Prompt: "Searching for diagnosis codes...",!
  • Line Location: P1CPT1+17
Function Call: WRITE
  • Prompt: !,$P(Y,U,2)," IS ALREADY A DIAGNOSIS!"
  • Line Location: PFINCPT1+3
Routine Call
  • DIC
  • Line Location:
    • P1CPT1+28
    • PFINCPT1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( P1CPT1+12, PFINCPT1+4*

Label References

Name Line Occurrences
$$DUP PFINCPT1+3
CDXX1 PCPT1+2, P1CPT1+1, P1CPT1+2, P1CPT1+3, P1CPT1+5, P1CPT1+13, PFINCPT1+6
CPT1 P1CPT1+7, P1CPT1+9, PFINCPT1+2
P1CPT1 P1CPT1+30
PCPT1 PFINCPT1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS DUP+1~, DUP+2*, DUP+3*, DUP+4
CD DUP~, DUP+3
CDX CDX+1~, PFINCPT1+4*, PFINCPT1+5
CPTDX CDX+1~, CPT1+4*, PCPT1+1, PCPT1+2
CTR DUP+1~, DUP+3*
>> DATA PCPT1+2*, P1CPT1+2, P1CPT1+3, P1CPT1+4*, P1CPT1+5, P1CPT1+7, P1CPT1+9, P1CPT1+10*, P1CPT1+12*, P1CPT1+13*
, P1CPT1+30*, P1CPT1+32*, PFINCPT1+4
DIC CDX+1~, P1CPT1+18!, P1CPT1+27*, PFINCPT1+1*
DIC("A" P1CPT1+26*
DIC("S" CPT1+6*
DIC(0 P1CPT1+27*, PFINCPT1+1*
>> DIRUT PFINCPT1+9
DTIME PCPT1+2
DUZ P1CPT1+12, PFINCPT1+4
EDATA CPT1!, PCPT1+2*, P1CPT1+10*, P1CPT1+12*, P1CPT1+13*, P1CPT1+19, P1CPT1+32*
>> IOELEOL PCPT1+1
>> LEAVE P1CPT1+1*
LEXVDT CPT1!
>> PATIENT PFINCPT1+14
POS CDX+1~, CPT1+4*, CPT1+5, P1CPT1+5, PFINCPT1+4, PFINCPT1+5, PFINCPT1+12, CDXX1+2, DUP+3
PXACS CDX+1~, CPT1+2*, CPT1+3*, PCPT1+1, P1CPT1+26
>> PXACSREC CPT1+2*, P1CPT1+20, P1CPT1+22, P1CPT1+24, P1CPT1+25, P1CPT1+31
>> PXAGAIN P1CPT1+21*
>> PXBCNT PFINCPT1+11
>> PXBDXPRI PFINCPT1+7, PFINCPT1+9*
>> PXBEXIT P1CPT1+3*
>> PXBREQ( P1CPT1+5!, PFINCPT1+6, PFINCPT1+13*
PXBUT CPT1!, P1CPT1+1*
>> PXBVST CPT1+1, PFINCPT1+10, PFINCPT1+14
PXC CDX+1~, CPT1+5*
PXCEAFTR CDX+1~
PXCEAFTR(800 PFINCPT1+13
>> PXCEQUIT PFINCPT1+12, PFINCPT1+13, PFINCPT1+14
PXCEVIEN CDX+1~, PFINCPT1+10*
PXD CDX+1~, CPT1+5*, P1CPT1+4, P1CPT1+5
>> PXDATE P1CPT1+21*
>> PXDEF P1CPT1+21*
PXDISV CDX+1~, CPT1+4*, P1CPT1+12, PFINCPT1+4
>> PXDX PFINCPT1+10*, PFINCPT1+13
PXDXDATE CDX+1~, CPT1+1*, CPT1+2, P1CPT1+21, P1CPT1+25, P1CPT1+33
PXICDDATA CDX+1~, P1CPT1+33*, P1CPT1+34, P1CPT1+35
>> PXMREQ PFINCPT1+14
PXN CDX~, CPT1+4, PCPT1+1
>> PXXX P1CPT1+21, P1CPT1+22, P1CPT1+23
>> REQE CPT1+4, PFINCPT1+5*, PFINCPT1+12*, CDXX1+1*, CDXX1+2
>> REQI CPT1+5, P1CPT1+5*, PFINCPT1+4*, PFINCPT1+9, PFINCPT1+14, CDXX1+2*, DUP+3
TIMED CDX+1~, CPT1+5*, P1CPT1+1
U CPT1+2, CPT1+4, CPT1+5, P1CPT1+5, P1CPT1+20, P1CPT1+22, P1CPT1+23, P1CPT1+24, P1CPT1+25, P1CPT1+31
, P1CPT1+34, P1CPT1+35, PFINCPT1+1, PFINCPT1+3, PFINCPT1+4, PFINCPT1+5, PFINCPT1+9, PFINCPT1+12, CDXX1+2, DUP+3
VAL CDX+1~
>> VALMBCK CDXX1+3*
>> WHAT P1CPT1+31*, P1CPT1+32, P1CPT1+33
X CDX+1~, P1CPT1+18!, P1CPT1+19*, P1CPT1+21, P1CPT1+27, P1CPT1+29, PFINCPT1+1*
Y P1CPT1+21*, P1CPT1+23*, P1CPT1+30, P1CPT1+32!, P1CPT1+34*, PFINCPT1+1, PFINCPT1+2, PFINCPT1+3, PFINCPT1+4, PFINCPT1+6
, PFINCPT1+9, PFINCPT1+10
Y( P1CPT1+22*, P1CPT1+31
Y(0 P1CPT1+35*, PFINCPT1+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All