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

Package: General Medical Record - Generator

Routine: GMRGED3


Information

GMRGED3 ;HIRMFO/RM-PATIENT DATA EDIT (cont.) ;9/1/95

Source Information

Source file <GMRGED3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; REPLACE/WITH TEXT GMRGTX(0)=TEXT TO BE EDITED, GMRGTX(1)=1 FOR
; INTERNAL TEXT, 0 FOR OTHER KINDS
REPLACE
REPHLP
WITH
RANGE
DEL ; DELETE EXISTING TEXT
VALIDATE ; VALIDATE USER SELECTION ENTRY
VAL0 ; VALIDATION CONT.
VAL1 ;
VALTXT ;
STXT ;
STXT1 ;
PROMPT ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: GMRG1
  • Timeout: DTIME
  • Line Location: REPLACE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REPLACE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REPLACE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: REPLACE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REPLACE+5
Function Call: WRITE
  • Prompt: !!?5,"At the ""Replace"" prompt, enter exactly the text you want to replace.",!?5,"You may also enter ""..."" to replace the entire text, ""...(text)"" to",!?5,"replace from the beginning through ""(text)"", or ""(text)..."" to replace"
  • Line Location: REPHLP+0
Function Call: WRITE
  • Prompt: !?5,"from ""(text)"" through the end.",!?5,"At the ""With"" prompt, enter the new text.",!?10
  • Line Location: REPHLP+1
Function Call: READ
  • Variable: GMRG4
  • Timeout: DTIME
  • Line Location: WITH+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: WITH+1
Function Call: WRITE
  • Prompt: !,$C(7),"CANNOT DELETE!!"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"If you delete bracketed text, the original default will become the",!?5,"the new value."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !?6,"Answer Yes if you wish to delete this text, else answer No."
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: "Select: "
  • Line Location: PROMPT+1
Function Call: WRITE
  • Prompt: "Select at least ",$P(GMRGTERM(0),"^",6),": "
  • Line Location: PROMPT+2
Function Call: WRITE
  • Prompt: "Select up to ",$P(GMRGTERM(0),"^",7),": "
  • Line Location: PROMPT+3
Function Call: WRITE
  • Prompt: "Select at least ",$P(GMRGTERM(0),"^",6),", but no more than ",$P(GMRGTERM(0),"^",7),": "
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: "Select only ",$P(GMRGTERM(0),"^",6),": "
  • Line Location: PROMPT+5
Info |  Source |  Entry Points |  Interaction Calls