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 |  Marked Items  | All
Print Page as PDF
Routine: PXBGCPT4

Package: PCE Patient Care Encounter

Routine: PXBGCPT4


Information

PXBGCPT4 ;ISL/JVS,ESW - DOUBLE ?? GATHERING OF FORM PROCEDURES ; 5/7/03 3:35pm

Source Information

Source file <PXBGCPT4.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 3 CPT^PXBAICS  (LOC,WIN17)^PXBCC  HELP1^PXBUTL1  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  ($$MOD,$$MODP)^ICPTMOD  
Automated Information Collection System 1 GETLST^IBDF18A  
VA FileMan 1 ^DIR  

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 PXBHLP4  

Entry Points

Name Comments DBIA/ICR reference
DOUBLE1(FROM) ;--Entry point
NEW ;
START1 ;--RECYCLE POINT
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 ;-SETP VARIABLES
PRMPT2 ;-----Yes and No prompt if only one choice

External References

Name Field # of Occurrence
^DIR PRMPT+10, PRMPT2+6
GETLST^IBDF18A START1+3
$$CPT^ICPTCOD START1+12
$$MOD^ICPTMOD START1+20
$$MODP^ICPTMOD START1+19
CPT^PXBAICS START1+3
LOC^PXBCC PRMPT+2, LOC+1, PRMPT2+2
WIN17^PXBCC PRMPT+1, PRMPT2+1
HELP1^PXBUTL1 START1+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS IS NOT AN ENTRY POINT"
  • Line Location: PXBGCPT4+5
Function Call: WRITE
  • Prompt: IOCUU,IOCUU,!,IOELEOL
  • Line Location: START1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: START1+28
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
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(TITLE))\2,IOINHI,TITLE,IOINLOW,IOELEOL
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!," E N D O F L I S T"
  • Line Location: SUB+1
Routine Call
  • DIR
  • Line Location:
    • PRMPT+10
    • PRMPT2+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PXBTANA" EXITNEW+1!, BACK+1, BACK+2, FORWARD+1, FORWARD+2, SUB+1, SUB+4, SUB+5
^TMP("PXBTOTAL" START1+15*, START1+16*, START1+22*, LIST+6, LIST+9, LIST+10, LIST+14, LIST+17, VAL+1, VAL+3
, VAL+4, EXITNEW+1!

Label References

Name Line Occurrences
EXITNEW PRMPT+13
LIST PRMPT+11
LOC START1+28, LIST+2
PRMPT2 LIST+21
VAL PRMPT2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BACK NEW+5*
>> CLINIC START1+3
CNT NEW+3~, START1+7*, START1+14*, START1+15, START1+16, START1+22, START1+23, SUB+3*, SUB+4*
CNUM NEW+3~, LIST+5*, LIST+7*, LIST+8, LIST+16
CODE NEW+3~, START1+9*, START1+10, START1+12, START1+15, START1+19, LIST+9*, LIST+11
CONT NEW+3~, NEW+6*, LIST+4, LIST+8*, LIST+12, LIST+13*, LIST+16*
CYCLE NEW+2~
>> DATA NEW+6
DIR EXITNEW+1!
DIR("?" PRMPT+8*
DIR("A" PRMPT+6*, PRMPT+7*, PRMPT2+3*
DIR("B" PRMPT2+4*
DIR(0 PRMPT+9*, PRMPT2+5*
DIRUT PRMPT+13!
DTIME START1+32
FIELD NEW+2~, SETUP+1*
FILE NEW+2~, SETUP+1*
FROM DOUBLE1~
HEADING NEW+2~, START1+37*, LIST+3, SUB+2, SETUP+2*
>> IDATE START1+3, START1+12, START1+19, START1+20
INDEX NEW+2~, NEW+5*
>> IOBON HEAD+1
>> IOCUU START1+26, HEAD+1
>> IOEDEOP LOC+2
>> IOELEOL START1+26, HEAD+2
>> IOINHI HEAD+2
>> IOINLOW HEAD+2
IOM START1+30, HEAD+2
>> IOSGR0 HEAD+1
MNUM NEW+3~, LIST+5*, LIST+8, LIST+15*, LIST+16
MODSTR NEW+3~, START1+20*, START1+21, START1+22, LIST+17*, LIST+18, VAL+2*, VAL+4*, EXITNEW+3
NAME NEW+2~, START1+13*, START1+16, LIST+10*, LIST+11, SUB+5*, SUB+6
OK NEW+2~, START1+32*
PRV NEW+3~
>> PXBCNT PRMPT+1, PRMPT2+1
PXBPMT NEW+3~
PXBPMT( START1+8, START1+9, START1+13, START1+18, START1+19
PXBPMT(0 START1+5, START1+6
PXMDIEN NEW+3~, START1+19*, START1+20
QT NEW+3~, LIST+5*, LIST+6, LIST+8*, LIST+14, LIST+16*
>> RESULTS START1+29*, START1+30
SCREEN NEW+2~
START NEW+2~, NEW+6*, BACK+1*, FORWARD+1*
START("IEN" BACK+2*, FORWARD+2*
SUB NEW+2~, NEW+6*, START1+7*, START1+8*, START1+9, START1+13, START1+18, START1+19, LIST+4*, LIST+6*
, LIST+8, LIST+9, LIST+10, LIST+11, LIST+14, LIST+16, LIST+17, PRMPT+4, PRMPT+6, PRMPT+11
, PRMPT+12, SUB+3*, SUB+4*, SUB+5, SUB+6
SUB2 NEW+3~, NEW+6*, LIST+6*, PRMPT+9
SUBM NEW+3~, NEW+6*, START1+17*, START1+18*, START1+19, START1+22, LIST+12*, LIST+14*, LIST+16, LIST+17
, VAL+2*, VAL+3*, VAL+4
TANA EXITNEW+2!
TITLE NEW+2~, START1+1*, HEAD+2
TOTAL NEW+3~, START1+5*, START1+23*, START1+26, START1+33*, LIST+21, PRMPT+5, EXITNEW+2!
U START1+9, START1+12, START1+13, START1+21, START1+22, LIST+4, LIST+8, LIST+12, LIST+13, LIST+16
, LIST+18, VAL+4, EXITNEW+3
>> VAL PRMPT+13*, VAL+1*, EXITNEW+3
>> X PRMPT+11, PRMPT+12*, VAL+1, VAL+3, VAL+4, PRMPT2+7*, PRMPT2+8*
>> Y PRMPT2+7, PRMPT2+8

Marked Items

Name Field # of Occurrence
$T(CPT^PXBAICS START1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All