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

Package: Clinical Reminders

Routine: PXRMEXPD


Information

PXRMEXPD ;SLC/PKR - General packing driver. ;07/31/2020

Source Information

Source file <PXRMEXPD.m>

Entry Points

Name Comments DBIA/ICR reference
BLDDESC(USELLIST,TMPIND) ;If multiple entries have been selected
BLDTEXT(TMPIND) ;Combine the source information and the user's input into the
CLDIQOUT(FILENUM,IEN,FIELD,IENROOT,DIQOUT) ;Clean-up the DIQOUT returned by
CMPLIST(CMPLIST,SELLIST,FILELST,ERROR) ;Process the selected list and build a
CRE(REPACK,EXNAME,NOTINLM) ;Pack a reminder component and store it in the repository.
DEF ;Check reminder definitions for errors.
TERM ;Check reminder terms for errors.
DIALOG ;Check reminder dialogs for errors
FSEL(LIST,FILELST) ;Select file list.
IENSEL(LIST,ID,FILELST) ;Select entries from the selected file.
GETTEXT(FILENUM,IEN,TMPIND,INDEX) ;Let the user input some text.
GDIQF(FILENUM,FILENAME,IEN,IND,TMPIND,SELLIST,SERROR) ;Save file entries into
GRTN(ROUTINE,TMPIND,SERROR) ;Save routines into ^TMP(TMPIND,$J).
HEADER(TMPIND,USELLIST,SELLIST,RANK,EFNAME) ;Create the Exchange file header
NEXINFO(TMPIND) ;Add information to the description about quick orders,
NEXINFOA(TMPIND,SUB,NL) ;
ORDER(CMPLIST,RANK,POA) ;Order the component list so pointers can be resolved.
PACK(CMPLIST,POA,TMPIND,SELLIST,SERROR) ;Create the packed entry, store it in
PACKORD(RANK) ;
PATTR(TMPIND) ;Build a list of packing attributes.
PUTSRC(FILENAME,NAME,TMPIND) ;Save the source information.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CMPLIST+25
Function Call: WRITE
  • Prompt: !,PACKLIST(FNUM,"ERROR",IND)," IEN=",IND
  • Line Location: CMPLIST+26
Function Call: WRITE
  • Prompt: !,"Cannot create the packed file due to the above error(s)."
  • Line Location: CMPLIST+38
Function Call: WRITE
  • Prompt: !!,"Checking reminder definition(s) for errors."
  • Line Location: DEF+5
Function Call: WRITE
  • Prompt: !!,"Checking reminder definition "_$P(^PXD(811.9,DIEN,0),U,1)
  • Line Location: DEF+8
Function Call: WRITE
  • Prompt: !!,"No fatal reminder definition problems were found, packing will continue."
  • Line Location: DEF+12
Function Call: WRITE
  • Prompt: !!,"Cannot create the packed file, please correct the above fatal error(s)."
  • Line Location: DEF+13
Function Call: WRITE
  • Prompt: !!,"Checking reminder term(s) for errors."
  • Line Location: TERM+4
Function Call: WRITE
  • Prompt: !!,"Checking reminder term "_$P(^PXRMD(811.5,DIEN,0),U,1)
  • Line Location: TERM+7
Function Call: WRITE
  • Prompt: !!,"No fatal reminder term problems were found, packing will continue."
  • Line Location: TERM+11
Function Call: WRITE
  • Prompt: !!,"Cannot create the packed file, please correct the above fatal error(s)."
  • Line Location: TERM+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: DIALOG+9
Function Call: WRITE
  • Prompt: !!,$S(FAILTYPE="W":"**WARNING**",FAILTYPE="F":"**FATAL ERROR**",1:"")
  • Line Location: DIALOG+13
Function Call: WRITE
  • Prompt: !,OUTPUT(CNT)
  • Line Location: DIALOG+14
Function Call: WRITE
  • Prompt: !!,"No fatal dialog problems were found, packing will continue."
  • Line Location: DIALOG+17
Function Call: WRITE
  • Prompt: !!,"Cannot create the packed file, please correct the above fatal error(s)."
  • Line Location: DIALOG+18
Function Call: WRITE
  • Prompt: !,EFNAME_" was saved in the Exchange File."
  • Line Location: DIALOG+38
Function Call: WRITE
  • Prompt: !!,"Select from the following reminder files:"
  • Line Location: FSEL+8
Function Call: WRITE
  • Prompt: !,"Enter another one or just press enter to go back to file selection."
  • Line Location: IENSEL+14
Function Call: WRITE
  • Prompt: !,ETEXT
  • Line Location: GDIQF+21
Function Call: WRITE
  • Prompt: !,"it returned the following error:"
  • Line Location: GDIQF+22
Function Call: WRITE
  • Prompt: !,"Warning could not find routine ",X
  • Line Location: GRTN+13
Function Call: WRITE
  • Prompt: !,"Enter a description of the ",PNAME," you are packing."
  • Line Location: HEADER+35
Function Call: WRITE
  • Prompt: !,"Enter keywords or phrases to help index the entry you are packing."
  • Line Location: HEADER+39
Function Call: WRITE
  • Prompt: !,"Separate the keywords or phrases on each line with commas."
  • Line Location: HEADER+40
Function Call: WRITE
  • Prompt: !,"Packing components ..."
  • Line Location: PACK+3
Function Call: WRITE
  • Prompt: !,"Adding routine ",IEN
  • Line Location: PACK+12
Function Call: WRITE
  • Prompt: !,"Adding ",FILENAME," ",$$GET1^DIQ(FILENUM,IEN,.01),", IEN=",IEN
  • Line Location: PACK+13
Function Call: WRITE
  • Prompt: !,"Packing is complete."
  • Line Location: PACK+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PXD(801 - [#801] GET1^DID
^PXD(801.1 - [#801.1] GET1^DID
^PXRMD(801.41 - [#801.41] GET1^DID
^PXRM(810.2 - [#810.2] GET1^DID
^PXRM(810.4 - [#810.4] GET1^DID
^PXRM(810.7 - [#810.7] GET1^DID
^PXRM(810.8 - [#810.8] GET1^DID
^PXRMD(810.9 - [#810.9] GET1^DID
^PXD(811.2 - [#811.2] GET1^DID
^PXRMD(811.4 - [#811.4] GET1^DID
^PXRMD(811.5 - [#811.5] GET1^DID
^PXRMD(811.6 - [#811.6] GET1^DID
^PXD(811.9 - [#811.9] GET1^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call