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

Package: Consult Request Tracking

Routine: GMRCAD31


Information

GMRCAD31 ;SLC/JFR - admin corrections on cons. activities; 2/19/03 14:09

Source Information

Source file <GMRCAD31.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Start prompting and prepare to build a list
GETCSLT() ;
NEWCSLT ; select a new consult to work on
SELACT ; choose which action to edit
BLDLST(GMRCDA) ;build the list for LM
; Input:
; GMRCDA = ien from file 123
INIT ;
EXIT ;
HDR ;
CKACTS(CSLT) ;assure that there is at least one activity meeting criteria
; Input:
; CSLT = ien from file 123
FIX(GMRCDA,GMRCACT) ;do the admin correction on bad IFC comments
; GMRCDA = ien from file 123
; GMRCACT = ien within 40 multiple for activity
AUDIT(GMRCO,GMRCAC,ARRAY) ;make new audit trail activity w/old and new

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Consult selected."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"The request has no activities meeting editing criteria"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"The request has no activities meeting editing criteria"
  • Line Location: NEWCSLT+9
Function Call: WRITE
  • Prompt: !,"No comment there to correct"
  • Line Location: FIX+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: FIX+8
Function Call: WRITE
  • Prompt: !,"No comment modification made!",!
  • Line Location: FIX+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^GMR(123.1 - [#123.1] GET1^DIQ
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call