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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PXRMCOPY

Package: Clinical Reminders

Routine: PXRMCOPY


Information

PXRMCOPY ;SLC/PKR,PJH - Copy various reminder files. ;Jun 29, 2021@11:59:53

Source Information

Source file <PXRMCOPY.m>

Entry Points

Name Comments DBIA/ICR reference
COPY(PROMPT,ROOT,WHAT) ;Copy an entry of ROOT into a new entry.
GETORGR ;Look-up logic to get and copy source entry to destination.
GETORGRC(IENO,IENN,ROOT,WHAT,SKIP) ;
GETNAM
COPYLL ;Copy a location list.
COPYREM ;Copy a reminder definition.
COPYTAX ;Copy a taxonomy.
COPYTERM ;Copy a reminder term.
DELETE(DIK,DA) ;Delete the entry just added.
GETFOIEN(ROOT) ;Return the first open IEN in ROOT. This should be called
HASGF(IEN) ;
GFCANCPY(FIND) ;
ITEMHSGF(IEN) ;
INIEH(FILENUM,ROOT,IENN,IENO) ;Initialize the edit history after a copy.
MERGE(IENN,IENO,ROOT) ;Use MERGE to copy ROOT(IENO into ROOT(IENN.
SCAS(FILENUM,IEN,CLASS,SPONSOR) ;Set the class field to CLASS and the sponsor
SETSTART(ROOT) ;Set the starting value to add new entries. Start

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETORGR+3
Function Call: WRITE
  • Prompt: !,NAME," is not a unique name!"
  • Line Location: GETNAM+14
Function Call: WRITE
  • Prompt: !
  • Line Location: GETNAM+35
Function Call: WRITE
  • Prompt: !,"The original "_WHAT_" "_ORGNAME_" has been copied into "_NAME_"."
  • Line Location: GETNAM+37
Function Call: WRITE
  • Prompt: !!,"New entry not created due to invalid name!",!
  • Line Location: DELETE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call