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 |  All
Print Page as PDF
Routine: BUSRUPD4

Package: Uncategorized

Routine: BUSRUPD4


Information

BUSRUPD4 ;IHS/MSC/MGH - Authorization/Subscription Service ;11-Sep-2012 12:49;DU

Source Information

Source file <BUSRUPD4.m>

Entry Points

Name Comments DBIA/ICR reference
PROCESS ; -- Loop through numbered list of rules:
SETDATA(RULENUM,ACTION) ; Set data for rules
; -- Set data for exported Rules into Rule nodes of ^TMP.
; Use interior data since there may be dup DDEF names.
; Must set AFTER User Class is created:
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
DO(DOC,STATUS,CLASS,ACTION) ;DO THE ACTION,STATUS,DOC
ROLE ;Set business rules
ENV ;Environment checker for USR updates
POST ; Create new Business Rules
; Create rules for ONE User Class & ONE DDEF
; -- Set data for rules:
SETX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You must first install "_PATCH_"."
  • Line Location: ENV+6
Function Call: WRITE
  • Prompt: "Business rules already exist"
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: "Problem creating Business Rules. Please contact National VistA Support."
  • Line Location: PROCESS+14
Function Call: WRITE
  • Prompt: !,"Business Rules created successfully."
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: "Business rules already exist"
  • Line Location: ROLE+29
Info |  Source |  Entry Points |  Interaction Calls |  All