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

Package: PCE Patient Care Encounter

Routine: PXRRPECU


Information

PXRRPECU ;ISL/PKR - Utilities for dealing with the Person Class file. ;4/3/97

Source Information

Source file <PXRRPECU.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$GET^XUA4A72  
PCE Patient Care Encounter 1 $$OCCUP^PXBGPRV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
PCE Patient Care Encounter 8 PXRRECSE  PXRRFDP  PXRRFDSE  PXRRPECS  PXRRPRDP  PXRRPRSP  PXRRWLPR  PXRRWLSE  

Entry Points

Name Comments DBIA/ICR reference
ALPHA(PCLASS) ;Given a person class of the form IEN_U_Occupation_U_Specialty
PAGE(ARRAY) ;Page breaking with optional return of selection.
LISTA(ARRAY) ;List all the elements of ARRAY.
VERIFY ;Have the user verify the most recent Person Class selection.
NXREF(XREF,STRING) ;Return the number of elements for the STRING and cross-ref pair.
GETYORN(PROMPT) ;Get a yes or no answer, return true (yes) or false (no).
PCLLIST(NEWPIEN,BDT,EDT,LIST) ;Build a list of all the person classes for the
UPPRCASE(STRING) ;Convert STRING to uppercase and return it.
ABBRV(VACODE) ;Given a VACODE get the full Person Class entry and return an
FDME(INP,ARRAY) ;Find and display the entries matching the input and get a selection.
MATCH(PCLASS) ;Return true if PCLASS is in the PERSON CLASS list, PXXRPECL.

External References

Name Field # of Occurrence
^DIR FDME+25, GETYORN+4, PAGE+5
$$OCCUP^PXBGPRV ABBRV+9
$$GET^XUA4A72 PCLLIST+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",$P(SA(1),U,1)
  • Line Location: FDME+18
Function Call: WRITE
  • Prompt: !,IC,?INDENT,$P(SA(IC),U,1)
  • Line Location: FDME+21
Function Call: WRITE
  • Prompt: !
  • Line Location: FDME+24
Function Call: WRITE
  • Prompt: !,"Choose from:"
  • Line Location: LISTA+5
Function Call: WRITE
  • Prompt: !,?INDENT,IC
  • Line Location: LISTA+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: !!,"Your Person Class Selection was:"
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !,?INDENT,"OCCUPATION: ",$P(PXRRPECL(NCL),U,1)
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: !,?INDENT,"SPECIALTY: ",$P(PXRRPECL(NCL),U,2)
  • Line Location: VERIFY+4
Function Call: WRITE
  • Prompt: !,?INDENT,"SUBSPECIALTY: ",$P(PXRRPECL(NCL),U,3)
  • Line Location: VERIFY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+6
Routine Call
  • DIR
  • Line Location:
    • FDME+25
    • GETYORN+4
    • PAGE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^USC(8932.1 - [#8932.1] NXREF+3

Label References

Name Line Occurrences
$$ALPHA PCLLIST+9
$$FDME PAGE+9
$$GETYORN VERIFY+8
$$UPPRCASE FDME+11
PAGE LISTA+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABBRV ABBRV+2~, ABBRV+13*, ABBRV+17*, ABBRV+20*, ABBRV+21
ARRAY FDME~, LISTA~, LISTA+9, PAGE~, PAGE+9
ARRAY( FDME+8, FDME+15, FDME+17, LISTA+7
BDT PCLLIST~, PCLLIST+6
CLASSIEN MATCH+1~, MATCH+9*, MATCH+12
DIR FDME+1~, GETYORN+1~, PAGE+1~, PAGE+5!
DIR("A" FDME+23*, GETYORN+3*, PAGE+3*
DIR("B" LISTA+13*
DIR(0 FDME+22*, GETYORN+2*, PAGE+2*
DONE LISTA+1~, LISTA+4*, LISTA+7, PAGE+6*, PAGE+10*
DTOUT PAGE+6, PAGE+11!
DUOUT PAGE+6, PAGE+11!
EDT PCLLIST~, PCLLIST+6
IC FDME+1~, FDME+13*, FDME+15*, FDME+17, FDME+20*, FDME+21, LISTA+1~, LISTA+6*, LISTA+7*, LISTA+8
, MATCH+1~, MATCH+22*, MATCH+23, MATCH+25, MATCH+27, MATCH+30, NXREF+1~, NXREF+2*, NXREF+3*, PCLLIST+3~
, PCLLIST+6*, PCLLIST+7, PCLLIST+13*, PCLLIST+14*, PCLLIST+16
>> INDENT FDME+21, LISTA+8, VERIFY+3, VERIFY+4, VERIFY+5
INP FDME~, FDME+4, FDME+6, FDME+8, FDME+11*, FDME+12, FDME+13, FDME+15
IOF PAGE+7
IOSL LISTA+9
JC FDME+1~, FDME+14*, FDME+16*, FDME+17, FDME+18, FDME+19, FDME+20, FDME+22, FDME+23, NXREF+1~
, NXREF+2*, NXREF+4*, NXREF+5
KEEP VERIFY+1~, VERIFY+8*, VERIFY+9
LINP FDME+1~, FDME+12*, FDME+15
LIST PCLLIST~, PCLLIST+4!
LIST( PCLLIST+16*
LOCC MATCH+1~, MATCH+23*, MATCH+24
LSPEC MATCH+1~, MATCH+25*, MATCH+26
LSUB MATCH+1~, MATCH+27*, MATCH+28
MATCH MATCH+1~, MATCH+21*, MATCH+22, MATCH+31*, MATCH+33
MAXLEN ABBRV+2~, ABBRV+6*, ABBRV+7, ABBRV+12, ABBRV+16, ABBRV+19
MAXLENP3 ABBRV+2~, ABBRV+7*, ABBRV+12, ABBRV+16, ABBRV+19
MOCC MATCH+1~
MSPEC MATCH+1~
MSUB MATCH+1~
>> NCL MATCH+22, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+10, VERIFY+11*
NEWPIEN PCLLIST~, PCLLIST+7
NS MATCH+2~, MATCH+7*, MATCH+18, MATCH+19
OCC ABBRV+2~, ABBRV+11*, ABBRV+12*, ABBRV+13, MATCH+2~, MATCH+13*, MATCH+15*, MATCH+24
PCLASS ABBRV+2~, ABBRV+8*, ABBRV+9*, ABBRV+11, ABBRV+15, ABBRV+18, ALPHA~, ALPHA+4, ALPHA+5, ALPHA+6
, ALPHA+9, ALPHA+12, MATCH~, MATCH+5, MATCH+9, MATCH+15, MATCH+16, MATCH+17, PCLLIST+3~, PCLLIST+7*
, PCLLIST+8, PCLLIST+9
PROMPT GETYORN~, GETYORN+3, VERIFY+1~, VERIFY+7*, VERIFY+8
>> PXRRPECL( MATCH+23, MATCH+25, MATCH+27, MATCH+30*, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+10!
RET FDME+1~, FDME+10*, FDME+26*, FDME+27
SA FDME+1~
SA( FDME+17*, FDME+21, FDME+26
SA(1 FDME+18
SELECT LISTA+2!, LISTA+10, LISTA+11, LISTA+13, PAGE+9*
SPEC ABBRV+2~, ABBRV+15*, ABBRV+16*, ABBRV+17, MATCH+2~, MATCH+13*, MATCH+16*, MATCH+18*, MATCH+26
STRING NXREF~, NXREF+3, UPPRCASE~, UPPRCASE+1
SUB ABBRV+2~, ABBRV+18*, ABBRV+19*, ABBRV+20, MATCH+2~, MATCH+13*, MATCH+17*, MATCH+19*, MATCH+28
T1 ALPHA+2~, ALPHA+6*, ALPHA+7*, ALPHA+8, ALPHA+9*, ALPHA+10*, ALPHA+11
TEMP ALPHA+2~, ALPHA+5*, ALPHA+8*, ALPHA+11*, ALPHA+12*, ALPHA+13, PCLLIST+3~, PCLLIST+9*, PCLLIST+10*, PCLLIST+11
TLIST PCLLIST+3~
TLIST( PCLLIST+11*, PCLLIST+14
TOTAL PCLLIST+3~, PCLLIST+5*, PCLLIST+15*, PCLLIST+16, PCLLIST+17
U ABBRV+8, ABBRV+11, ABBRV+15, ABBRV+18, ALPHA+4, ALPHA+5, ALPHA+6, ALPHA+9, ALPHA+12, FDME+6
, FDME+8, FDME+17, FDME+18, FDME+21, LISTA+13, MATCH+9, MATCH+15, MATCH+16, MATCH+17, MATCH+23
, MATCH+25, MATCH+27, MATCH+30, VERIFY+3, VERIFY+4, VERIFY+5
VACODE ABBRV~, ABBRV+4, ABBRV+8, ABBRV+9
WC FDME+6, MATCH+2~, MATCH+8*, MATCH+13, MATCH+24, MATCH+26, MATCH+28
X FDME+1~, GETYORN+1~, PAGE+1~
XREF NXREF~, NXREF+3
Y FDME+1~, FDME+26, GETYORN+1~, GETYORN+5, PAGE+1~, PAGE+7, PAGE+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All