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

Package: Clinical Reminders

Routine: PXRMLRED


Information

PXRMLRED ; SLC/PJH - List Rule Editor ;05/30/2006

Source Information

Source file <PXRMLRED.m>

Entry Points

Name Comments DBIA/ICR reference
START(IEN,PXRMTYP) ;
ADD ;Add Rule
BLDLIST(IEN,TYP) ;Build workfile
EDIT(DA,TYP) ;Edit Rule
ENTRY ;Entry code
EXIT ;Exit code
HDR ; Header code
HLP ;Help code
INIT ;Init
LIT(VIEW) ;Header text depnds on view
LOCK(DA) ;Lock the record
LRDESC ;Display list rule fields - called by [PXRM RULE SET]
LREDIT ;Edit Rule
LREND(END,RJC) ;Display end date
LROUT(IEN,RJC) ;Output list rule display
LRSTRT(BEG,RJC) ;Display start date
PEXIT ;PXRM EXCH MENU protocol exit code
SCREEN ;validate rule type
SEQPRT ;Display list rule sequence fields - called by [PXRM RULE SET]
TXT() ;Return Rule Type text
UNLOCK(DA) ;Unlock the record
USE(DA,EDIT) ;Display usage of list rule
USET ;Usage display called from PXRM LIST RULE print template

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IORESET,!
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !,"This rule name already exists"
  • Line Location: ADD+15
Function Call: WRITE
  • Prompt: IORESET
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !!,?5,"Another user is editing this file, try later"
  • Line Location: LOCK+2
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("LR Ending Date: ",RJC)_END
  • Line Location: LREND+1
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("List Rule: ",RJC),LRN
  • Line Location: LROUT+7
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("Description: ",RJC),$P(DATA,U,2)
  • Line Location: LROUT+9
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("Rule Type: ",RJC)
  • Line Location: LROUT+11
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("Use Existing PT List: ",RJC+2),EXISTPL
  • Line Location: LROUT+32
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("Use Extract PT List Named: ",RJC+5)
  • Line Location: LROUT+34
Function Call: WRITE
  • Prompt: !," "
  • Line Location: LROUT+35
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("LR Beginning Date: ",RJC)_BEG
  • Line Location: LRSTRT+1
Function Call: WRITE
  • Prompt: !!,$$RJ^XLFSTR("Sequence: ",RJC),SEQ
  • Line Location: SEQPRT+14
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("Seq Beginning Date: ",RJC),SEQBDT
  • Line Location: SEQPRT+15
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("Seq Ending Date: ",RJC),SEQEDT
  • Line Location: SEQPRT+16
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("Operation: ",RJC),OPER
  • Line Location: SEQPRT+17
Function Call: WRITE
  • Prompt: !!,?TAB,"Used by:"
  • Line Location: USE+3
Function Call: WRITE
  • Prompt: " Not used by any rule set",!
  • Line Location: USE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PXRM(810.4 - [#810.4] Classic Fileman Calls
810.41 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call