Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 EN^DDIOL  ^DIE  $$GET1^DIQ  ^DIR  
Consult Request Tracking 3 ($$SETDA,SETCOM)^GMRCGUIB  BLDALN^GMRCSLM4  REGDTM^GMRCU  
Kernel 2 $$NOW^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
List Manager 2 EN^VALM  FULL^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Consult Request Tracking 4 GMRC ADM31  GMRC ADMP31 CORRECTIONS  GMRCADM EDIT ACTION  GMRCADM SELECT NEW CSLT  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
EN^DDIOL GETCSLT+2, GETCSLT+3, SELACT+3, SELACT+4, SELACT+10
^DIE FIX+12
$$GET1^DIQ BLDLST+8, BLDLST+9, BLDLST+11, AUDIT+10
^DIR GETCSLT+8, NEWCSLT+6, SELACT+7
$$SETDA^GMRCGUIB AUDIT+37
SETCOM^GMRCGUIB AUDIT+39
BLDALN^GMRCSLM4 BLDLST+34
REGDTM^GMRCU AUDIT+15
EN^VALM EN+8
FULL^VALM1 NEWCSLT+1, SELACT+1
$$NOW^XLFDT AUDIT+38
$$CJ^XLFSTR HDR+1
$$REPEAT^XLFSTR BLDLST+7, BLDLST+22

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
Routine Call
  • DIE
  • Line Location:
    • FIX+12
Routine Call
  • DIR
  • Line Location:
    • GETCSLT+8
    • NEWCSLT+6
    • SELACT+7
Routine Call
  • VALM
  • Line Location:
    • EN+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] BLDLST+9, BLDLST+11, BLDLST+12, BLDLST+26, BLDLST+28, BLDLST+30, BLDLST+31, CKACTS+6, CKACTS+8, CKACTS+11
, CKACTS+12, FIX+4, FIX+7, FIX+13, FIX+16, FIX+17, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15
, AUDIT+16, AUDIT+32, AUDIT+33
^TMP("GMRCADM" SELACT+9, SELACT+11, BLDLST+4!, BLDLST+6*, BLDLST+13*, BLDLST+15*, BLDLST+17*, BLDLST+19*, BLDLST+20*, BLDLST+21*
, BLDLST+22*, BLDLST+32*, BLDLST+33*, BLDLST+35*, BLDLST+37*, INIT+1, EXIT+1!, HDR+1
^TMP("GMRCOCMT" FIX+6!, FIX+7*, FIX+13, FIX+17, FIX+20, FIX+21!, AUDIT+26, AUDIT+27
^TMP("GMRCR" BLDLST+35, BLDLST+36!

Label References

Name Line Occurrences
$$CKACTS EN+4, NEWCSLT+8
$$GETCSLT EN+2, NEWCSLT+3
AUDIT FIX+20
BLDLST EN+7, NEWCSLT+10, SELACT+13
EN EN+4
EXIT NEWCSLT+10, SELACT+13
FIX SELACT+12
INIT NEWCSLT+4, NEWCSLT+8, NEWCSLT+10, SELACT+13
SELACT SELACT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTRESP AUDIT+6~, AUDIT+12*, AUDIT+20
ACTV BLDLST+24~, BLDLST+25*, BLDLST+26*, BLDLST+28, BLDLST+30, BLDLST+31, BLDLST+32, BLDLST+33, BLDLST+34, CKACTS+4~
, CKACTS+5*, CKACTS+6*, CKACTS+8, CKACTS+11, CKACTS+12
ACTWHEN AUDIT+6~, AUDIT+16*, AUDIT+19
ACTWHO AUDIT+6~, AUDIT+11*, AUDIT+20
ACTYPE BLDLST+27~, BLDLST+28*, BLDLST+29, CKACTS+7~, CKACTS+8*, CKACTS+9, CKACTS+10, AUDIT+6~, AUDIT+10*, AUDIT+19
ARRAY AUDIT~
CHGD FIX+9~, FIX+10*, FIX+13*, FIX+14, FIX+16, FIX+17*, FIX+19, FIX+20
CSLT CKACTS~, CKACTS+6, CKACTS+8, CKACTS+11, CKACTS+12
DA FIX+9~, FIX+11*, AUDIT+5~, AUDIT+38*
DA(1 FIX+11*
DIE FIX+9~, FIX+11*
DIR GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DIR("?" GETCSLT+5*
DIR("A" GETCSLT+6*, SELACT+6*
DIR("S" GETCSLT+7*
DIR(0 GETCSLT+4*, NEWCSLT+6*, SELACT+5*
DIROUT GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DIRUT GETCSLT+1~, NEWCSLT+5~, SELACT+2~, SELACT+8
DR FIX+9~, FIX+11*
DTOUT GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DUOUT GETCSLT+1~, NEWCSLT+5~, SELACT+2~
DUZ AUDIT+39
GMRCA AUDIT+5~, AUDIT+38*
GMRCAC AUDIT~, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15, AUDIT+16, AUDIT+32, AUDIT+33
GMRCACT FIX~, FIX+7, FIX+11, FIX+13, FIX+16, FIX+17, FIX+20
GMRCAD AUDIT+5~, AUDIT+38*
GMRCCT BLDLST+5~, BLDLST+7*, BLDLST+13, BLDLST+14*, BLDLST+15, BLDLST+16*, BLDLST+17, BLDLST+18*, BLDLST+19*, BLDLST+20*
, BLDLST+21*, BLDLST+22, BLDLST+23*, BLDLST+32, BLDLST+33*, BLDLST+37*
GMRCDA BLDLST~, BLDLST+6, BLDLST+8, BLDLST+9, BLDLST+11, BLDLST+12, BLDLST+13, BLDLST+26, BLDLST+28, BLDLST+30
, BLDLST+31, BLDLST+34, FIX~, FIX+4, FIX+7, FIX+11, FIX+13, FIX+16, FIX+17, FIX+20
, AUDIT+5~, AUDIT+37*, AUDIT+38
GMRCIEN EN+1~, EN+2*, EN+3, EN+4, EN+7, NEWCSLT+2~, NEWCSLT+3*, NEWCSLT+4, NEWCSLT+8, NEWCSLT+10
GMRCMT AUDIT+5~, AUDIT+39
GMRCMT( AUDIT+18*, AUDIT+19*, AUDIT+20*, AUDIT+21*, AUDIT+22*, AUDIT+23*, AUDIT+24*, AUDIT+27*, AUDIT+28*, AUDIT+29*
, AUDIT+30*, AUDIT+33*
GMRCO SELACT+2~, SELACT+11*, SELACT+12, SELACT+13, AUDIT~, AUDIT+7, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15
, AUDIT+16, AUDIT+32, AUDIT+33
I FIX+15~*, FIX+16*, FIX+17, AUDIT+5~, AUDIT+25*, AUDIT+26*, AUDIT+27, AUDIT+31*, AUDIT+32*, AUDIT+33
NUM AUDIT+5~, AUDIT+17*, AUDIT+18*, AUDIT+19*, AUDIT+20, AUDIT+21, AUDIT+22*, AUDIT+23*, AUDIT+24*, AUDIT+27*
, AUDIT+28*, AUDIT+29*, AUDIT+30*, AUDIT+33, AUDIT+34*
OK CKACTS+4~, CKACTS+5*, CKACTS+6, CKACTS+9*, CKACTS+10*, CKACTS+11*, CKACTS+12*, CKACTS+13
PTNM BLDLST+5~, BLDLST+8*, BLDLST+15
PTSSN BLDLST+5~, BLDLST+9*, BLDLST+15
REMNUM BLDLST+5~, BLDLST+12*, BLDLST+17
REMSIT BLDLST+5~, BLDLST+10*, BLDLST+11*, BLDLST+17
TAB BLDLST+5~, BLDLST+7*, BLDLST+21
U BLDLST+9, BLDLST+11, BLDLST+12, BLDLST+28, CKACTS+8, AUDIT+10, AUDIT+11, AUDIT+12, AUDIT+15, AUDIT+16
>> VALMBCK SELACT+8*, SELACT+14*, INIT+3*, EXIT+2*
>> VALMBG INIT+2*
>> VALMCNT INIT+1*
>> VALMHDR(1 HDR+1*
X GETCSLT+1~, NEWCSLT+5~, SELACT+2~, AUDIT+14~, AUDIT+15*, AUDIT+16
Y GETCSLT+1~, GETCSLT+9, GETCSLT+10, NEWCSLT+5~, SELACT+2~, SELACT+9, SELACT+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All