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

Package: General Medical Record - Generator

Routine: GMRGUT3


Information

GMRGUT3 ;CISC/RM-UTILITIES ROUTINE FOR GMRG FILES (CONT.) ;5/28/92

Source Information

Source file <GMRGUT3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM IDENTIFIER NODE FOR PARENT
RECUR1 ;
EOP ;
E2 ;
CWR ;
WRTID ;
RECUR ;
EN2 ; ENTRY FROM THE INPUT TRANSFORMS ON THE ADDITIONAL TEXT (#1) AND
; ASSOCIATED LEAD FRAME DATA (#2) FIELDS OF THE SELECTION MULTIPLE (#1)
; OF THE GMR TEXT (#124.3) FILE. TRANSFORM DISALLOWS ENTRY OF A
; SELECTION IF ITS PARENT IS FLAGGED AS DELETED.
EN2A
Q2
EN3 ; ENTRY FROM THE INPUT TRANSFORM ON THE MODIFICATION FIELD (#1) OF THE
; AUDIT TRAIL MULTIPLE (#3) OF THE SELECTION SUBFIELD (#1) OF THE GMR
; TEXT (#124.3) FILE. TRANSFORMS DISALLOWS ENTRY OF AND AUDIT IF ITS
; SELECTION'S PARENT HAS BEEN FLAGGED AS DELETED.
Q3
DEL5 ;KILL LOGIC
SET5 ;SET LOGIC
EN4 ; ENTRY FROM THE C XREF OF THE .01 FIELD OF THE 124.2 FILE SET LOGIC
EN5 ; ENTRY FROM THE C XREF OF THE .01 FIELD OF THE 124.2 FILE KILL LOGIC
UPCS ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @("$E("_DIC_"Y,0),0)")
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !?GMR("SPC")," ",$S($P(GMR("DATA"),U,2)="":"",$P(GMR("DATA"),U,2)=2:"FRAME",1:"TERM")
  • Line Location: RECUR1+1
Function Call: WRITE
  • Prompt: ?(GMR("SPC")+8)," ",$P(GMR("DATA"),U,3)
  • Line Location: RECUR1+2
Function Call: WRITE
  • Prompt: ?(GMR("SPC")+16)," ",$S($D(^GMRD(124.25,+$P(GMR("DATA"),U,4),0)):$P(^(0),"^"),1:"")
  • Line Location: RECUR1+3
Function Call: READ
  • Variable: GMR("^")
  • Timeout: DTIME
  • Line Location: EOP+1
Function Call: WRITE
  • Prompt: ?(GMR("SPC")+11),$P(^GMRD(124.2,GMR(GMR("LEVEL")),0),U)
  • Condition for execution: $D(^GMRD(124.2,GMR(GMR("LEVEL")),0))
  • Line Location: WRTID+1
Function Call: WRITE
  • Prompt: $C(7),!!,"PARENT PREVIOUSLY DELETED. PLEASE RE-CREATE PARENT ENTRY FIRST. "
  • Line Location: EN2A+2
Info |  Source |  Entry Points |  Interaction Calls