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

Package: Consult Request Tracking

Routine: GMRCSUBS


Information

GMRCSUBS ;SLC/dee - Routine to check if a Service has more that one parient service ;1/18/00

Source Information

Source file <GMRCSUBS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Check the service hierarchy (file #123.5) for services
; that have more than are in more than one grouper.
CLEANAE ;Post-init for patch GMRC*3*7
POST ;Post install routine for patch 7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Service ",$P(^GMR(123.5,SERVICE,0),"^",1)," is a sub service of:"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !," ",$P(^GMR(123.5,PARENT,0),"^",1)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"No Services are sub-services for more than one service."
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,"There is ",NUMBER," service that is a sub-service for more than one service."
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"There are ",NUMBER," services that are sub-services for more than one service."
  • Line Location: EN+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call