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

Package: Consult Request Tracking

Routine: GMRCASV


Information

GMRCASV ;SLC/KCM,DLT - Build ^TMP("GMRCS" of Svc(s)/Specialties ; 9/8/09 11:47am

Source Information

Source file <GMRCASV.m>

Entry Points

Name Comments DBIA/ICR reference
ASRV ;Ask for service/specialty group {output} GMRCDG,GMRCBUF,GMRCACT,^TMP("GMRCS",$J,^TMP("GMRCSLIST",$J
SERV0 ;Assume that the lookup must begin with ALL SERVICES, or value of GMRCSVNM
ASKPRMPT ;Write the prompt and do the Read to get the user text entered in X
SERV1 ;Create selected SERVICE ^TMP array of service information
LKUP ;Ask the user for the service; use the value of x for lookup; branch to list on ??
; Patch 18 added Identifier to 123.5 in place of DIC("W")
; Remove commented line in next patch.
LISTOPT ;called from option to list hierarchy
PRTLST ;queued entry point or just print it
LISTALL ;display LIST of Services in their hierarchy beginning with ALL SERVICES
LISTSRV ;display LIST of sub-services beginning with a selected service
EN ;Setup Specialty groups entry: GMRCDG,GMRCSEL exit: GMRCGRP if GMRCSEL="BILD"
EN1 ;GMRCSTK is used to manage the level of stacks under beginning service
POP ;Go back one level in service stack hierarchy and initialize exclude
PROC ;GMRCMEM is the member ien in the 10th node being processed
DISP ;Display individual entries alphabetically for each service as processed
BILD ;The following logic will build an array for review for GUI
EXCLUDE ;This logic excludes services the user cannot send a consult to.
CHECKDAD ;Check the service usage statuses for a selected services parents
READ ;;Hold screen
EXIT ;Kill off variables and quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(GMRCASV):GMRCASV,1:"Select Service/Specialty: ")_$S($L($G(GMRCSVNM)):GMRCSVNM,1:"ALL SERVICES")_"// "
  • Line Location: ASKPRMPT+1
Function Call: WRITE
  • Prompt: !!,"Services not currently part of the Consults Hierarchy:"
  • Line Location: PRTLST+9
Function Call: WRITE
  • Prompt: " ("
  • Line Location: PRTLST+16
Function Call: WRITE
  • Prompt: $S(USE=1:"Grouper Only",USE=9:"Disabled",1:"Tracking Only")_")"
  • Line Location: PRTLST+17
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTALL+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LISTSRV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTSRV+3
Function Call: WRITE
  • Prompt: !,?((GMRCSTK*2)),$S(GMRCUSG=9:"<",1:"")_$P(W,"^")_$S(GMRCUSG=9:">",1:"")_" "_$S(GMRCUSG=1:"(Grouper Only)",GMRCUSG=2:"(Tracking Only)",GMRCUSG=9:"<Disabled>",1:"")_" "_$S($G(^GMR(123.5,GMRCDG,"IFC")):"(Inter-facility)",1:"")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: !?5,"Press RETURN to continue, ^ to exit: "
  • Line Location: READ+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: READ+6

FileMan Files Accessed Via FileMan Db Call

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