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 |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 YN^DICN  

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
General Medical Record - Generator 5 GMRGED1  GMRGED4  GMRGED5  GMRGED6  GMRGTGI2  

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 ;

External References

Name Field # of Occurrence
YN^DICN DEL+3

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

Label References

Name Line Occurrences
DEL REPLACE+1, WITH+1, DEL+3
RANGE REPLACE+2
REPHLP REPLACE, WITH
REPLACE REPLACE, REPLACE+1, REPLACE+4, REPLACE+5
STXT VALTXT+3
STXT1 VALTXT+5
VAL0 VALIDATE+1
VAL1 VAL0+6
VALTXT VAL0+7
WITH REPLACE+4, WITH

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEL+3*
DTIME REPLACE, WITH
>> GMRG1 REPLACE*, REPLACE+1, REPLACE+2, REPLACE+3, WITH+1, RANGE, RANGE+1*, VALIDATE+1*
>> GMRG10 VAL1+3*
>> GMRG11 VALTXT+2*, VALTXT+3, VALTXT+4*, STXT+1*, STXT1+1*
>> GMRG12 VALTXT+2*, VALTXT+3*, VALTXT+6*, VALTXT+7, STXT+1, STXT+3
>> GMRG13 VALTXT+2*, VALTXT+3*, VALTXT+5*, STXT+1, STXT+2, STXT1+1, STXT1+2
>> GMRG14 VALTXT+2*, VALTXT+3, VALTXT+6*, STXT+1*
>> GMRG2 REPLACE+3*, VALIDATE+1*, VAL0+1*, VAL0+2, VAL0+4, VAL0+5*, VAL0+6, VAL0+7, VAL1+1, VAL1+2
, VAL1+3, VALTXT+1, VALTXT+2, VALTXT+3, VALTXT+5, VALTXT+6, VALTXT+8*, VALTXT+9, STXT1+1, STXT1+2
>> GMRG3 REPLACE+3*, REPLACE+4, VAL0+1*, VAL0+2*, VAL0+3, VAL1+2, VAL1+3
GMRG4 WITH*, WITH+1, VALTXT+2!
GMRG4( VALTXT+5, STXT+2*, STXT+3*, STXT1+1, STXT1+2
GMRG4("A" VALTXT+6, VALTXT+8, STXT1+2*
GMRG4("I" VALTXT+6, VALTXT+8, STXT1+1*
>> GMRG5 RANGE*, VAL0+1*, VAL0+2*, VAL0+3, VAL0+4, VAL0+7
>> GMRG5(0 RANGE*, RANGE+1
>> GMRG6 RANGE+1*, VALTXT+3*, VALTXT+5*, VALTXT+6*, VALTXT+8*, STXT1+1, STXT1+2
>> GMRG6(0 RANGE+1*
>> GMRG7 RANGE*, RANGE+1
>> GMRG8 RANGE+1*
>> GMRGOOD VALIDATE+1, VAL0+3*, VAL0+4*, VAL0+8*, VAL1+2*, VAL1+3*, VALTXT+1*, VALTXT+7*
>> GMRGOUT REPLACE*, REPLACE+1, REPLACE+4, WITH*, WITH+1, WITH+2, DEL+3*
>> GMRGQUSL( VAL1+3*, VALTXT+9*
>> GMRGQUSL("A" VAL1+1*
>> GMRGS VALIDATE+1
>> GMRGSEL( VAL1+3, VALTXT+2, VALTXT+6
>> GMRGSTAR(1 VAL1+2, VALTXT+1
>> GMRGTERM(0 PROMPT+1, PROMPT+2, PROMPT+3, PROMPT+4, PROMPT+5
>> GMRGTX("@" DEL+1
>> GMRGTX(0 REPLACE, REPLACE+1, REPLACE+3, REPLACE+4, WITH+1, WITH+2*, RANGE, RANGE+1, DEL+3*
>> GMRGTX(1 DEL+2
>> GMRGTX(2 WITH+1*, WITH+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All