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

Package: General Medical Record - Generator

Routine: GMRGTGI2


Information

GMRGTGI2 ;CISC/RM,RTK-PRIME DOCUMENT EDIT (cont.) ;8/23/93

Source Information

Source file <GMRGTGI2.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM CHOOSING WHETHER TO EDIT THE TERM, EDIT THE SELECTION
; ADD A SELECTION OR DELETE A SELECTION.
; Y=$S(#:EDIT SEL.,"T"!"t":EDIT TERM,"A"!"a":ADD,#_@:DELETE)
TERM ; EDIT THE ENTRY
SEL ; EDIT THE SELETION
B
ADD ; ADD SELECTIONS
YNOK
DELETE ; DELETE SELECTIONS
STDLFL
RSINAR
DISPLAY ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"NO SELECTIONS!!"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !?3,$C(7),"CHOOSE A NUMBER IN THE SELECTION LIST ABOVE PLEASE"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"NAME: ",$P(GMRGINFO("TEXT"),U),"// (UNEDITABLE)"
  • Line Location: TERM+1
Function Call: WRITE
  • Prompt: !?3,$C(7),$S(X="@":"CANNOT DELETE",1:"Answer must free text 3-60 characters")
  • Line Location: TERM+4
Function Call: WRITE
  • Prompt: !,".changing '",$P(GMRGINFO("TEXT"),"^"),"' to '",GMRGT,"'"
  • Line Location: TERM+5
Function Call: WRITE
  • Prompt: !!?3,$C(7),"You cannot add selections to an aggregate term which is of type 'TERM'"
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !?3,"If you want to add selections for this term, then first edit the TYPE",!?3,"of this term and change it to something other than 'TERM'."
  • Line Location: ADD+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !?5,"Answer Yes if this is the record you meant to select, else answer No."
  • Line Location: YNOK+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: YNOK+2
Function Call: WRITE
  • Prompt: !?3,$C(7),"Could not add this term to the selection list??"
  • Line Location: YNOK+5
Function Call: WRITE
  • Prompt: "added"
  • Line Location: YNOK+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: RSINAR+0
Function Call: WRITE
  • Prompt: "deleted"
  • Line Location: RSINAR+0
Function Call: WRITE
  • Prompt: !!?3,$P(GMRGINFO("SEL",+Y),"^",3)
  • Line Location: DISPLAY+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(124.2 - [#124.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call