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

Package: Consult Request Tracking

Routine: GMRCEDT4


Information

GMRCEDT4 ;SLC/DCM,JFR - UTILITIES FOR EDITING FIELDS ;10/14/15 11:51

Source Information

Source file <GMRCEDT4.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Consult Request Tracking 5 EXAC^GMRCADC  INIT^GMRCEDIT  EN^GMRCEDT1  $$EDRESOK^GMRCEDT2  $$PROVDX^GMRCUTL1  
VA FileMan 5 EN^DDIOL  (,$$FIND1)^DIC  $$GET1^DIQ  ^DIR  EN^DIWE  
Kernel 3 $$FMTE^XLFDT  $$UP^XLFSTR  EN^XQORM  
Lexicon Utility 2 CONFIG^LEXSET  $$IMPDATE^LEXU  
DRG Grouper 1 $$STATCHK^ICDEX  

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

Package Total Caller Graph
Consult Request Tracking 2 GMRCACT EDIT FIELD  GMRCEDT5  

Entry Points

Name Comments DBIA/ICR reference
EDITFLD(GMRCO)
SETUP
01
1 ;edit Procedure
2
3 ;edit urgency
4 ;edit place of CSLT
5 ;edit Clinically Ind. Date wat/66/81
6 ;edit ATTN person
7 ;edit prov. DX
LEXLKUP(GMRCX)
8 ;edit Reason for Request
9 ;add comment
DIFFRFR(SAVED) ;edited reason for req same as original?
VALIDPL(PL,REND) ; place still valid?
VALIDUR(URG,REND,PROC) ;urgency still valid?
NOCHG() ;no changes made
PDOK(GMRCDA) ;check validity of Prov. DX code for active status

External References

Name Field # of Occurrence
EN^DDIOL PDOK+10
^DIC LEXLKUP+6
$$FIND1^DIC 3+2, 3+4, 3+5, 4+2, VALIDPL+4, VALIDUR+6
$$GET1^DIQ SETUP+4, SETUP+8, SETUP+10, 01+9, 6+3
^DIR EDITFLD+10, 01+15, 2+4, 5+5, 6+6, 7+9, 7+22
EN^DIWE 8+6, 9+7
EXAC^GMRCADC EDITFLD+5, EDITFLD+7, 8+14
INIT^GMRCEDIT EDITFLD+17
EN^GMRCEDT1 EDITFLD+17
$$EDRESOK^GMRCEDT2 EDITFLD+6
$$PROVDX^GMRCUTL1 7+2
$$STATCHK^ICDEX PDOK+7
CONFIG^LEXSET LEXLKUP+4
$$IMPDATE^LEXU LEXLKUP+3
$$FMTE^XLFDT 5+4
$$UP^XLFSTR 4+2
EN^XQORM 3+10, 4+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Only one SERVICE can perform this procedure.",!
  • Line Location: 01+5
Function Call: WRITE
  • Prompt: !,$$NOCHG,!
  • Line Location: 01+16
Function Call: WRITE
  • Prompt: !,$C(7),"The procedure associated with a request may not be changed."
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,"Place a new request if a different procedure is desired"
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !,$$NOCHG,!
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: $C(7),!!,"The urgency of this request is no longer valid.",!
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !,$C(7),"Unable to change the way service is rendered.",!
  • Line Location: 2+13
Function Call: WRITE
  • Prompt: $C(7),!!,"The Place of Consultation is no longer valid.",!
  • Line Location: 2+17
Function Call: WRITE
  • Prompt: !,$C(7),"Unable to change the way service is rendered.",!
  • Line Location: 2+20
Function Call: WRITE
  • Prompt: !,$C(7),"Unable to change urgency."
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: !,?5,"<DELETED>",!
  • Line Location: 6+9
Function Call: WRITE
  • Prompt: !,?5,"<DELETED>",!
  • Line Location: 7+10
Function Call: WRITE
  • Prompt: !,?5,"<DELETED>",!
  • Line Location: 7+24
Function Call: WRITE
  • Prompt: !,"Leading space not allowed, no change."
  • Line Location: 7+26
Function Call: WRITE
  • Prompt: !,"Prov. DX required. No change."
  • Line Location: 7+28
Function Call: WRITE
  • Prompt: !,"No change."
  • Line Location: 7+29
Function Call: WRITE
  • Prompt: !,"No change."
  • Line Location: 7+31
Function Call: WRITE
  • Prompt: !,?5,"<DELETED>",!
  • Line Location: 7+32
Function Call: WRITE
  • Prompt: !,"Editing Reason for Request:",!
  • Line Location: 8+5
Function Call: WRITE
  • Prompt: !,"An unsaved comment exists. You may edit this comment.",!
  • Line Location: 9+3
Function Call: WRITE
  • Prompt: !,"Adding new comment:",!
  • Line Location: 9+6
Routine Call
  • DIC
  • Line Location:
    • LEXLKUP+6
Routine Call
  • DIC
  • Line Location:
    • 3+2
    • 3+4
    • 3+5
    • 4+2
    • VALIDPL+4
    • VALIDUR+6
Routine Call
  • DIR
  • Line Location:
    • EDITFLD+10
    • 01+15
    • 2+4
    • 5+5
    • 6+6
    • 7+9
    • 7+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC,  GET1^DIQ
^GMR(123.3 - [#123.3] GET1^DIQ
^GMR(123.5 - [#123.5] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^LEX(757.01 - [#757.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] EDITFLD+4, SETUP+2, SETUP+4, SETUP+6, SETUP+8, SETUP+10, 6+3, 7+2, 7+7, 7+17
7+29, 7+30, 8+3, DIFFRFR+3, DIFFRFR+9, PDOK+3, PDOK+4, PDOK+5
^GMR(123.3 - [#123.3] 01+3
^GMR(123.5 - [#123.5] SETUP+2
^ORD(101 - [#101] VALIDPL+5, VALIDUR+7
^TMP("GMRCED" 8+2, 8+3*, 8+9!, 8+11, 8+15!, 9+2, 9+8!, DIFFRFR+2, DIFFRFR+3, DIFFRFR+4
, DIFFRFR+5, DIFFRFR+8, DIFFRFR+9
^TMP("GMRCEDSV" 8+2*, 8+7, 8+8!, 8+10!, DIFFRFR+2, DIFFRFR+5

Label References

Name Line Occurrences
$$DIFFRFR 8+7
$$LEXLKUP 7+27
$$NOCHG 01+16, 2+4
$$VALIDPL 2+15, 2+19
$$VALIDUR 2+7, 2+12
3 2+11
4 2+18
@( EDITFLD+15
SETUP EDITFLD+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHGIO 2+8~
CHGREND 2+11*, 2+16~, 2+18*, 3+9, 4+5
DIC 7+1~, LEXLKUP+2~, LEXLKUP+5*, 8+1~, 8+4*, 9+1~, 9+5*
DIC("B" LEXLKUP+5*
DIC(0 LEXLKUP+5*
DIFF DIFFRFR+1~, DIFFRFR+2*, DIFFRFR+3*, DIFFRFR+4, DIFFRFR+6*, DIFFRFR+8, DIFFRFR+9*, DIFFRFR+11
DIR EDITFLD+2~, 01+1~, 2+1~, 5+1~, 6+1~, 7+1~, 7+13~
DIR("?" 5+3*, 7+19*
DIR("??" 01+14*
DIR("A" EDITFLD+9*, 01+11*, 2+3*, 5+2*, 6+2*, 7+4*, 7+20*
DIR("B" 01+9*, 01+10*, 2+2*, 5+4*, 6+3*, 6+4*, 6+5!, 6+7, 7+6*, 7+7*
7+8!, 7+9, 7+15*, 7+16*, 7+17*, 7+18!, 7+25
DIR("S" 01+12*, 01+13*
DIR(0 EDITFLD+9*, 01+6*, 2+2*, 5+2*, 6+2*, 7+4*, 7+5*, 7+21*
DIROUT EDITFLD+16!
DIRUT EDITFLD+10, EDITFLD+16!
DIWEPSE 9+1~, 9+4*
DIWESUB 8+1~, 8+4*, 9+1~, 9+5*
DT 5+4, LEXLKUP+3, LEXLKUP+4, PDOK+7
DTOUT EDITFLD+16!, 01+15, 2+4, 5+5, 6+6, 7+9, 7+13~, 7+23, LEXLKUP+2~, LEXLKUP+7
DUOUT EDITFLD+16!, 01+15, 2+4, 5+5, 6+6, 7+9, 7+13~, 7+23, LEXLKUP+2~, LEXLKUP+7
DWLW 8+1~, 8+6*, 9+1~, 9+7*
DWPK 8+1~, 8+6*, 9+1~, 9+7*
GMRCCODE PDOK+2~, PDOK+4*, PDOK+7
GMRCCPTR PDOK+2~, PDOK+6*, PDOK+7
GMRCCSYS PDOK+2~, PDOK+5*, PDOK+6
GMRCDA PDOK~, PDOK+3
>> GMRCED(1 SETUP+3
>> GMRCED(2 SETUP+5, 2+24*
>> GMRCED(3 SETUP+7, 2+10, 2+14*, 2+23*, 3+13*
>> GMRCED(4 SETUP+9, 2+18, 2+21*, 4+9*
>> GMRCED(5 5+6*
>> GMRCED(6 6+4, 6+8*, 6+9
>> GMRCED(7 7+6, 7+11*, 7+14, 7+15, 7+16, 7+24*, 7+33*
>> GMRCED3 2+10*, 2+14, 2+23
GMRCED4 2+1~, 2+18*, 2+21
GMRCED5 2+1~
>> GMRCEDT(1 SETUP+1, 01+17*
GMRCMSG EDITFLD+3~, EDITFLD+5*, EDITFLD+6*, EDITFLD+7, 8+12~, 8+13*, 8+14
GMRCO EDITFLD~, EDITFLD+4, EDITFLD+6, EDITFLD+17, SETUP+2, SETUP+4, SETUP+6, SETUP+8, SETUP+10, 6+3
7+2, 7+7, 7+17, 7+29, 7+30, 8+3, DIFFRFR+3, DIFFRFR+9, PDOK+4, PDOK+5
GMRCPL EDITFLD+2~, SETUP+9*, SETUP+10*, 2+15, 2+18, 2+19, 2+21*, 4+5, 4+8, 4+9*
GMRCPLSV 2+1~, 2+18*, 2+21
GMRCPROC EDITFLD+2~, SETUP+3*, SETUP+4*, 01+2, 01+3, 01+13, 2+7, 2+12, 3+4
GMRCREND EDITFLD+2~, SETUP+5*, SETUP+6*, 2+2, 2+5, 2+8~*, 2+16~*, 2+24*, 3+2, 4+2
>> GMRCRSUB EDITFLD+4
GMRCSS EDITFLD+2~, SETUP+1*, SETUP+2*, 01+8, 01+10, 01+16, 01+17*
GMRCSYS LEXLKUP+2~, LEXLKUP+3*, LEXLKUP+4, LEXLKUP+8
GMRCTAG EDITFLD+3~, EDITFLD+13*, EDITFLD+15
GMRCURG EDITFLD+2~, SETUP+7*, SETUP+8*, 2+7, 2+10, 2+12, 2+14*, 2+22*, 3+9, 3+12
3+13*
GMRCURSV 2+1~, 2+10*, 2+14, 2+22
GMRCX EDITFLD+2~, EDITFLD+13*, LEXLKUP~, LEXLKUP+5
GMRCY EDITFLD+2~, EDITFLD+12*, EDITFLD+13
I 01+1~, 01+3~*, 01+4, DIFFRFR+1~, DIFFRFR+4*, DIFFRFR+5, DIFFRFR+8*, DIFFRFR+9
MSG PDOK+2~, PDOK+8*, PDOK+9*, PDOK+10
PL VALIDPL~, VALIDPL+5
PLMENU VALIDPL+1~, VALIDPL+2*, VALIDPL+3*, VALIDPL+4*, VALIDPL+5
PRMPT 7+1~, 7+2*, 7+3, 7+5, 7+12, 7+21, 7+28
PROC VALIDUR~, VALIDUR+3
PROCSERV 01+1~, 01+2, 01+3*, 01+4*, 01+5, 01+7
PROCSERV( 01+4*, 01+8
PROCSERV(0 01+9
REND VALIDPL~, VALIDPL+2, VALIDUR~, VALIDUR+2
RENDED 2+1~, 2+5*, 2+6, 2+7, 2+8, 2+12, 2+14!, 2+15, 2+16, 2+19
2+21!, 2+24
SAVED DIFFRFR~, DIFFRFR+2, DIFFRFR+3, DIFFRFR+4, DIFFRFR+8
U EDITFLD+7, SETUP+2, SETUP+4, SETUP+6, SETUP+8, SETUP+10, 01+10, 2+2, 2+5, 3+2
3+9, 3+12, 3+13, 4+2, 4+5, 4+8, 4+9, 5+6, 6+3, 6+4
6+7, 7+2, 7+3, 7+5, 7+6, 7+12, 7+15, 7+16, 7+21, 7+28
7+30, LEXLKUP+8, DIFFRFR+2, DIFFRFR+3, VALIDPL+2, VALIDUR+2
URG VALIDUR~, VALIDUR+7
URMENU VALIDUR+1~, VALIDUR+3*, VALIDUR+4*, VALIDUR+5*, VALIDUR+6*, VALIDUR+7
VAL 7+13~, 7+27*, 7+28, 7+29, 7+30, 7+32, 7+33
X EDITFLD+2~, 01+1~, 2+1~, 3+1~, 4+1~, 5+1~, 6+1~, 7+1~, 7+13~, LEXLKUP+2~
, LEXLKUP+5*
XQORM 3+1~, 3+7*, 4+1~, 4+3*
XQORM("A" 3+7*, 4+4*
XQORM("B" 3+9*, 4+5*
XQORM("NO^^" 4+4*
XQORM("^^NO" 3+8*
XQORM(0 3+7*, 4+4*
Y EDITFLD+2~, EDITFLD+11, EDITFLD+12, 01+1~, 01+16, 01+17, 2+1~, 2+5, 3+1~, 3+2*
3+3, 3+4*, 3+5*, 3+6, 3+7, 3+11, 4+1~, 4+2*, 4+3, 4+7
5+1~, 5+6, 6+1~, 6+7, 6+8, 7+1~, 7+9, 7+10, 7+11, 7+13~
7+24, 7+25, 7+26, 7+27, LEXLKUP+2~, LEXLKUP+7, LEXLKUP+8
Y(0 2+5, 5+6
Y(1 3+12, 3+13, 4+8, 4+9, LEXLKUP+8
Y(30 LEXLKUP+8
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