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

Package: General Medical Record - Generator

Routine: GMRGTGI1


Information

GMRGTGI1 ;HIRMFO/RM-PRIME DOCUMENT EDIT (cont.) ;9/1/95

Source Information

Source file <GMRGTGI1.m>

Entry Points

Name Comments DBIA/ICR reference
DISP ; DISPLAY CHARACTERISTICS OF THIS TERM
PRTCHC ; LIST SELECTION AND ADD TO THE GMRGSEL ARRAY
DOWN ; GO DOWN A LEVEL INTO THE CARE PLAN
LKDQ
CNTD
UP ; GO UP A LEVEL IN THE CARE PLAN
LKUQ
CNTU

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(GMRGINFO("TEXT"),"^")
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !?3,"Classification: "_$P(GMRGINFO("CLAS"),"^",2)_" "
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: "Output Format: "_$S(GMRGINFO("FORM")="B":"BRIEF TABULAR",GMRGINFO("FORM")="T":"TABULAR",1:"SENTENCE")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !?3,"Type of Term: ",$S(GMRGINFO("TYPE")=2:"FRAME",1:"TERM")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: ?25,"Ask Additional Text: ",$S(GMRGINFO("ADD"):"YES",1:"NO")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !?3,$S(GMRGINFO("MIN")'="":"Minimum number of selections: "_+GMRGINFO("MIN")_" ",1:""),$S(GMRGINFO("MAX")'="":"Maximum number of selections: "_+GMRGINFO("MAX"),1:"")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !?3,$S(GMRGINFO("SPLIT")'="":"Split Screen: "_$S(GMRGINFO("SPLIT"):"YES",1:"NO")_" ",1:""),$S(GMRGINFO("TTOP")'="":"Text on top: "_$S(GMRGINFO("TTOP"):"YES",1:"NO"),1:"")
  • Line Location: DISP+9
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: PRTCHC+1
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY",!,"Do you wish to wait for this entry"
  • Line Location: LKDQ+0
Function Call: WRITE
  • Prompt: !?3,"If you think that the person editing this entry is only doing so",!?3,"temporarily, and you will be able to continue answer Yes, else answer No."
  • Line Location: LKDQ+1
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY",!,"Do you wish to wait for this entry"
  • Line Location: LKUQ+0
Function Call: WRITE
  • Prompt: !?3,"If you think that the person editing this entry is only doing so",!?3,"temporarily, and you will be able to continue answer Yes, else answer No."
  • Line Location: LKUQ+1
Info |  Source |  Entry Points |  Interaction Calls