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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call