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

Package: PCE Patient Care Encounter

Routine: PXBGPOV2


Information

PXBGPOV2 ;ISL/JVS - DOUBLE ?? GATHERING OF DIAGNOSES ;27 Mar 2013 6:12 PM

Source Information

Source file <PXBGPOV2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 3 (LOC,WIN17)^PXBCC  HELP^PXBUTL0  ($$ACTDT,$$CSDATE)^PXDXUTL  
VA FileMan 3 LIST^DIC  WAIT^DICD  ^DIR  
DRG Grouper 1 $$ICDDESC^ICDXCODE  

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

Package Total Caller Graph
PCE Patient Care Encounter 1 PXBHLP3  

Entry Points

Name Comments DBIA/ICR reference
DOUBLE(FROM) ;--Entry point
; WHAT = The same WHAT as sent in from the API
; FROM = Exactly which prompt is asking for the list
; SCREEN = Same as the DIC("S") screen used by FileMan
; START = The starting point as to what to look up
START ;--RECYCLE POINT
PROMPT ;---WRITE PROMPT HERE
FINISH ;--FINISH SETTING A VARIABLE TO SELECTED ITEM
EXIT ;--EXIT
DOUBLE1(FROM) ;--Entry point
NEW ;
START1 ;--RECYCLE POINT
FILTER ;--FILTER OUT DUPLICATES
LIST ;-DISPLAY LIST TO THE SCREEN
PRMPT ;---WRITE PROMPT HERE
VAL ;-----Set the VAL equal to the value
EXITNEW ;--EXIT
BACK ;
FORWARD ;
LOC ;--LOCATE CURSOR
HEAD ;--HEAD
SUB ;--DISPLAY LIST TO THE SCREEN
SETUP ;-SETUP VARIABLES
SETSECND ;
PRMPT2 ;-----Yes and No prompt if only choice

External References

Name Field # of Occurrence
LIST^DIC START+3, START1+12
WAIT^DICD START1+10
^DIR PROMPT+6, PRMPT+10, PRMPT2+6
$$ICDDESC^ICDXCODE FILTER+2, SETSECND+4
LOC^PXBCC PROMPT+1, PRMPT+2, LOC+1, PRMPT2+2
WIN17^PXBCC PROMPT+1, PRMPT+1, PRMPT2+1
HELP^PXBUTL0 FILTER+21
$$ACTDT^PXDXUTL DOUBLE+10, NEW+5
$$CSDATE^PXDXUTL DOUBLE+9, NEW+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS IS NOT AN ENTRY POINT"
  • Line Location: PXBGPOV2+3
Function Call: WRITE
  • Prompt: !!,"Enter '^' to quit, '-' for previous page."
  • Line Location: PROMPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: START1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+21
Function Call: WRITE
  • Prompt: !,IOCUU,?(IOM-$L(RESULTS))\2,RESULTS
  • Line Location: FILTER+22
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRMPT+3
Function Call: WRITE
  • Prompt: !,"Enter '^' to quit"
  • Line Location: PRMPT+4
Function Call: WRITE
  • Prompt: !," END OF LIST"
  • Line Location: PRMPT+5
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !,IOCUU,IOBON,"HELP SCREEN",IOSGR0,?(IOM-$L(TITLE))\2,IOINHI,TITLE,IOINLOW,IOELEOL
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!," E N D O F L I S T"
  • Line Location: SUB+1
Routine Call
  • DIC
  • Line Location:
    • START+3
    • START1+12
Routine Call
  • DIR
  • Line Location:
    • PROMPT+6
    • PRMPT+10
    • PRMPT2+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9("BA" START1+4, START1+5, START1+6, START1+7
^ICD9("D" START1+9
^TMP("PXBOTAL" FILTER+4*, FILTER+6, FILTER+8, FILTER+9, FILTER+14!
^TMP("PXBTANA" FINISH+1, EXIT+1!, EXITNEW+1!, BACK+1, BACK+2, FORWARD+1, FORWARD+2, SUB+1, SUB+3, SUB+4
, SUB+5, SETSECND+2, SETSECND+3, SETSECND+5*
^TMP("PXBTOTAL" EXIT+1!, FILTER+1, FILTER+2, FILTER+4, FILTER+5!, FILTER+10*, FILTER+11*, FILTER+12*, FILTER+13*, FILTER+16
, LIST+5, LIST+6, LIST+7, VAL+1, EXITNEW+1!

Label References

Name Line Occurrences
BACK PROMPT+7
EXIT PROMPT+9
FORWARD PROMPT+8
HEAD START+4, LIST+2
LIST PRMPT+11
LOC DOUBLE+13, START+4, LIST+2
PRMPT2 LIST+11
SETSECND START+5, START1+13
SETUP START+2
START PROMPT+7, PROMPT+8
SUB START+6
VAL LIST+1, PRMPT2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BACK DOUBLE+6~, DOUBLE+12*, START+3, PROMPT+7*, PROMPT+8*, NEW+7*, START1+12
C FILTER+6~*, FILTER+7*, FILTER+10, FILTER+11, FILTER+12, FILTER+13
CNT NEW+1~, SUB+3*
CODE DOUBLE+6~, NEW+1~, LIST+6*, LIST+8, SUB+4*, SUB+6, SETSECND+3*, SETSECND+4
>> CYCL FILTER+23*
CYCLE NEW+1~
>> DATA NEW+8, START1+3, START1+4, START1+5, START1+6, START1+7, START1+8, START1+9, START1+10, START1+12
>> DIC("S" NEW+9*, START1+12
DIR EXIT+1!, EXITNEW+1!
DIR("?" PROMPT+4*, PRMPT+8*
DIR("A" PROMPT+3*, PRMPT+6*, PRMPT+7*, PRMPT2+3*
DIR("B" PRMPT2+4*
DIR(0 PROMPT+5*, PRMPT+9*, PRMPT2+5*
DIRUT PROMPT+9!
DXINF FILTER+1~, FILTER+3*, FILTER+4
DXINFARR FILTER+1~, FILTER+2*
DXINFARR(1 FILTER+3
>> EDATA START1+3*
>> ERROR FILTER+23*
FIELD DOUBLE+6~, START+3, NEW+1~, START1+3*, START1+12, SETUP+2*
FILE DOUBLE+6~, START+3, NEW+1~, START1+3*, START1+12, SETUP+1*
FIRST DOUBLE+6~, FINISH+1, NEW+1~, START1+3*, SUB+4, SETUP+1*, SETUP+2, SETSECND+3
FROM DOUBLE~, DOUBLE1~
HEADING DOUBLE+6~, NEW+1~, FILTER+27*, SUB+2, SETUP+3*
HLP NEW+1~, START1+8*, FILTER+21, FILTER+22
I FILTER+1~*, FILTER+2, FILTER+4, FILTER+6~*, FILTER+8, FILTER+9, FILTER+10
INDEX NEW+1~, NEW+7*, START1+4*, START1+5*, START1+6*, START1+7*, START1+9*, START1+12
>> IOBON HEAD+1
>> IOCUU FILTER+22, HEAD+1
>> IOEDEOP FILTER+20, LOC+2
>> IOELEOL HEAD+1
>> IOINHI HEAD+1
>> IOINLOW HEAD+1
IOM FILTER+22, HEAD+1
>> IOSGR0 HEAD+1
J FILTER+6~*, FILTER+8*, FILTER+9, FILTER+11
K FILTER+6~*, FILTER+9*, FILTER+12
NAME DOUBLE+6~, NEW+1~, LIST+7*, LIST+8, SUB+5*, SUB+6
NAMEARR SETSECND+1~, SETSECND+4*
NAMEARR(1 SETSECND+5
NUM DOUBLE+6~, DOUBLE+12*, LIST+5*
OK NEW+1~
PXACS DOUBLE+6~, DOUBLE+10*, DOUBLE+11*, START+1, NEW+1~, NEW+5*, NEW+6*, START1+2
PXACSREC DOUBLE+6~, DOUBLE+10*, DOUBLE+17, NEW+2~, NEW+5*
>> PXBCNT PROMPT+1, PRMPT+1, PRMPT2+1
>> PXBVST DOUBLE+8, NEW+3
PXDXDATE DOUBLE+6~, DOUBLE+9*, DOUBLE+10, NEW+2~, NEW+4*, NEW+5, FILTER+2, SETSECND+4
>> RESULTS FILTER+22*
SCREEN DOUBLE+7~, DOUBLE+12*, DOUBLE+15*, START+3, NEW+2~
>> SECOND FINISH+1, START1+3*, SUB+5, SETUP+1*, SETSECND+5
START DOUBLE+7~, DOUBLE+17*, START+3, NEW+2~, NEW+8*, START1+4*, START1+5*, START1+6*, START1+7*, START1+9*
, START1+12, BACK+1*, FORWARD+1*
START("IEN" BACK+2*, FORWARD+2*
SUB DOUBLE+7~, NEW+2~, NEW+8*, LIST+4*, LIST+5*, LIST+6, LIST+7, LIST+8, PRMPT+4, PRMPT+6
, PRMPT+11, PRMPT+12, SUB+3*, SUB+4, SUB+5, SUB+6, SETSECND+2*, SETSECND+3, SETSECND+5
SUB2 DOUBLE+7~, NEW+2~, NEW+8*, LIST+5*, PRMPT+9
TANA EXITNEW+2!
TEMP DOUBLE+7~
TITLE DOUBLE+7~, START+1*, NEW+2~, START1+2*, HEAD+1
TOTAL NEW+2~, FILTER+16*, FILTER+19, FILTER+24, LIST+1, LIST+11, PRMPT+5, EXITNEW+2!
U DOUBLE+10, NEW+5
>> VAL PROMPT+9*, FINISH+1*, EXIT+2, VAL+1*, EXITNEW+3
>> VISIT DOUBLE+8, NEW+3
VSTIEN DOUBLE+7~, DOUBLE+8*, DOUBLE+9, NEW+2~, NEW+3*, NEW+4
>> X PROMPT+7, PROMPT+8, FINISH+1, LIST+1*, PRMPT+11, PRMPT+12*, VAL+1, PRMPT2+7*, PRMPT2+8*
>> Y PRMPT2+7, PRMPT2+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All