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

Package: PCE Patient Care Encounter

Routine: PXTTEDC


Information

PXTTEDC ;ISL/PKR,DLT,ISA/KWP/ESW - Code to copy an education topic entry making sure it is unique. ;5/20/96 12:06

Source Information

Source file <PXTTEDC.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  ^DIE  (,IX)^DIK  ^DIR  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXTT COPY EDUCATION TOPIC  

Entry Points

Name Comments DBIA/ICR reference
COPYED ;Copy an education topic into the site's range of IENS.
NOVA ;Sites are not allowed to use VA in their names.
STRREP(STRING,TS,RS) ;Replace every occurence of the target string (TS)
GETFOIEN(ROOT,SIEN) ;Given ROOT and a starting IEN (SIEN) return the first
GETORGR ;Look-up logic to get and copy source entry in education topic file.
VADSTN(NAME) ;Return TRUE (1) if VA- starts the NAME.
MERGE(IENN,IENO,ROOT) ;Use MERGE to copy ROOT(IENO into ROOT(IENN.
UNIQ ;Make sure the name is unique.
DELETE ;Delete the entry just added.
COPY(PROMPT,ROOT) ;Copy an entry of ROOT into a new entry.

External References

Name Field # of Occurrence
^DIC GETORGR+8
^DIE NOVA+11, NOVA+26
^DIK DELETE+1
IX^DIK NOVA+15
^DIR UNIQ+5, NOVA+5, NOVA+22
$$SITE^VASITE COPY+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You must have a 3-digit primary station number in order to use this option, See IRM!"
  • Line Location: COPY+3
Function Call: WRITE
  • Prompt: !
  • Line Location: GETORGR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: NOVA+18
Function Call: WRITE
  • Prompt: !!,"New entry not created due to invalid education topic name!",!
  • Line Location: DELETE+2
Routine Call
  • DIE
  • Line Location:
    • NOVA+11
    • NOVA+26
Routine Call
  • DIC
  • Line Location:
    • GETORGR+8
Routine Call
  • DIR
  • Line Location:
    • UNIQ+5
    • NOVA+5
    • NOVA+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTEDT - [#9999999.09] GETORGR+15, GETORGR+19
^AUTTEDT("B" UNIQ+2

Label References

Name Line Occurrences
$$GETFOIEN GETORGR+13
$$STRREP GETORGR+25, GETORGR+26
$$VADSTN NOVA+2
COPY COPYED+5
DELETE UNIQ+5, NOVA+5
GETORGR COPY+5
MERGE GETORGR+16
UNIQ UNIQ+7, NOVA+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA GETORGR+21~, NOVA+10*, NOVA+14*, DELETE+1*
DEST MERGE+1~, MERGE+3*, MERGE+5
DIC COPY+1~, GETORGR+6*
DIC("A" GETORGR+6*
DIC(0 GETORGR+6*
DIE GETORGR+21~, NOVA+10*, NOVA+24~, NOVA+25*
DIK GETORGR+21~, NOVA+14*, DELETE+1*
DIR GETORGR+21~
DIR("A" UNIQ+4*, NOVA+4*, NOVA+20*, NOVA+21*
DIR(0 UNIQ+3*, NOVA+3*, NOVA+19*
DIROUT COPY+1~, COPY+5, GETORGR+8*, GETORGR+10*
DIRUT COPY+1~, UNIQ+2, UNIQ+5, NOVA+2, NOVA+5, NOVA+22
DR GETORGR+21~, NOVA+10*, NOVA+24~, NOVA+25*
DTOUT COPY+1~, COPY+5, GETORGR+8
DUOUT COPY+1~, GETORGR+8
ENTRY GETORGR+21~, GETORGR+22*, GETORGR+23, GETFOIEN+2~, GETFOIEN+4*, GETFOIEN+5*
FROM STRREP+4~, STRREP+8*, STRREP+9*, STRREP+12*
IENN COPY+1~, GETORGR+12*, GETORGR+13*, GETORGR+15, GETORGR+16, GETORGR+19, GETORGR+22, NOVA+10, NOVA+14, MERGE~
, MERGE+3, DELETE+1
IENO COPY+1~, GETORGR+9*, GETORGR+10, GETORGR+16, MERGE~, MERGE+4
NAME GETORGR+21~, GETORGR+23*, GETORGR+25*, GETORGR+26*, UNIQ+2, UNIQ+4, UNIQ+6*, NOVA+2, NOVA+4, NOVA+6*
, NOVA+21, VADSTN~, VADSTN+1, VADSTN+2
NIEN GETFOIEN+2~, GETFOIEN+5*
NPCS STRREP+4~, STRREP+9*, STRREP+12, STRREP+13
OIEN GETFOIEN+2~, GETFOIEN+3*, GETFOIEN+4, GETFOIEN+5*, GETFOIEN+6
ORGNAME GETORGR+21~, GETORGR+23*, NOVA+21
PROMPT COPYED+1~, COPYED+4*, COPYED+5, COPY~, GETORGR+6
>> PXNAT GETORGR+12, NOVA+2
PXTTSNUM COPY+1~, COPY+2*, COPY+3, GETORGR+12
ROOT COPYED+1~, COPYED+3*, COPYED+5, COPY~, GETORGR+6, GETORGR+13, GETORGR+16, GETORGR+22, NOVA+10, NOVA+14
, NOVA+25, GETFOIEN~, GETFOIEN+4, GETFOIEN+5, MERGE~, MERGE+3, MERGE+4, DELETE+1
RS STRREP~, STRREP+12
SIEN COPY+1~, GETFOIEN~, GETFOIEN+3
SOURCE MERGE+1~, MERGE+4*, MERGE+5
STR STRREP+4~, STRREP+11*, STRREP+12*, STRREP+13*, STRREP+14
STRING STRREP~, STRREP+6, STRREP+9, STRREP+12, STRREP+13
TS STRREP~, STRREP+6, STRREP+9, STRREP+12, STRREP+13
U COPY+2, GETORGR+9, GETORGR+23, UNIQ+3, NOVA+3
WHAT COPYED+1~, COPYED+2*
X COPY+1~
Y COPY+1~, GETORGR+9, UNIQ+1*, UNIQ+6, UNIQ+7, NOVA+1*, NOVA+6, NOVA+7, NOVA+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All