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

Package: General Medical Record - Generator

Routine: GMRGTGIF


Information

GMRGTGIF ;HIRMFO/DDA,RM-TEXT GENERATOR PRIME DOCUMENT EDIT ;1/23/96

Source Information

Source file <GMRGTGIF.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY TO ADD DATA TO AGGREGATE TERM FILE IF PACKAGE IS UNKNOWN
EN4 ; ENTRY TO ADD DATA IF PACKAGE AND PRIME DOCUMENT ARE BOTH KNOWN
; GMRGPK=PACKAGE REFERENCE GMRGRT=PRIME DOCUMENT IN AGG. TERM FILE
A
Q
EN2 ; ENTRY TO MODIFY A PRIME DOCUMENT GMRGRT=PRIME DOC. (PTR TO 124.2),
; GMRGINFO AND GMRGINFO( WHICH CONTAINS THE FOLLOWING ELEMEMTS:
; GMRGINFO = AGGY ENTRY WHICH FOLLOWING INFO PERTAINS (PTR FILE 124.2)
; GMRGINFO("PACK")=PACKAGE (PTR TO FILE 9.4).
; GMRGINFO("TYPE")=$S(1:"DOCUMENT",2:"FRAME",3:"TERM"),
; GMRGINFO("LEAD"),GMRGINFO("TRAIL")= LEAD OR TRAIL TEXT 1-200 CHARS.
; GMRGINFO("TEXT")= TEXT OF TERM ^ NODE IDENTIFIER
; GMRGINFO("FORM")=$S("B":"BRIEF TABULAR","T":"TABULAR",S:"SENTENCE")
; GMRGINFO("CLAS")=CLASSIFICATION (PTR TO FILE 124.25) ^ CLASS. TEXT
; GMRGINFO("MAX"),GMRGINFO("MIN")= MIN OR MAX # OF SELECTABLE ITEMS
; GMRGINFO("ACTS"),GMRGINFO("ACTF") = SELECTION OR FILING ACTION
; GMRGINFO("SEL") = # OF CHILDREN FOR THIS ENTRY
; GMRGINFO("SEL",SELECTION #) = SELCTION IEN (ENTRY IN CHILD MULT) ^
; SELECTION PTR (PTR TO 124.2) ^ SELECTION TEXT
CHADE ; CHOOSE DELETE/ADD/EDIT A SELECTION, OR EDIT THE ENTRY
EN3 ; SELECT PACKAGE FOR WHICH ADDING TERMS
Q3
LP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!,"Enter appropriate action, or type a '?' to see what you can do: "
  • Line Location: CHADE+1
Function Call: WRITE
  • Prompt: !?3,$C(7),"Incorrect response, enter a '?' for more help."
  • Line Location: CHADE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"This is a reference for which to identify which package an aggregate",!?5,"term entry belongs. Answer must be 2-5 characters in length.",!!?5,"References already used include: "
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !?18,X
  • Line Location: LP+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