Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls