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
Print Page as PDF
Routine: GMRGED6

Package: General Medical Record - Generator

Routine: GMRGED6


Information

GMRGED6 ;CISC/RM-PATIENT DATA EDIT (cont.) ;4/25/89

Source Information

Source file <GMRGED6.m>

Entry Points

Name Comments DBIA/ICR reference
INTERNAL ; EDIT INTERNAL TEXT FOR THE SELECTED ENTRY.
INTP ;
INTXED ;
INTX0 ;
YNIP
INTX1
DELETE ;
STUT ;
PRCTRM ;
ADS ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"INTERNAL TEXT for '"
  • Line Location: INTP+1
Function Call: WRITE
  • Prompt: "'"
  • Line Location: INTP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INTX0+1
Function Call: WRITE
  • Prompt: !,"Internal Text Number ",GMRG10,": ",$S($L(GMRGTX(0)):GMRGTX(0)_"// ",1:"")
  • Line Location: INTX0+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"WANT TO DELETE"
  • Line Location: YNIP+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: YNIP+0
Function Call: WRITE
  • Prompt: !?8,$C(7),"Answer Yes if you want to delete the appended text, else answer No.",!!?8,"NOTE: If you delete bracketed text, the original default will become",!?8,"the new value."
  • Line Location: YNIP+1
Function Call: WRITE
  • Prompt: !,?4,$C(7),"LINE TOO LONG??"
  • Line Location: INTX1+0
Function Call: WRITE
  • Prompt: !?4,$C(7),$S(GMRGTX(0)?1"?".E:"ANSWER WITH FREE TEXT",1:"ANSWER CANNOT CONTAIN THE CIRCUMFLEX '^' CHARACTER")
  • Line Location: INTX1+1
Info |  Source |  Entry Points |  Interaction Calls