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

Package: General Medical Record - Generator

Routine: GMRGEDA


Information

GMRGEDA ;CISC/RM-PATIENT DATA EDIT (cont.) ;5/28/92

Source Information

Source file <GMRGEDA.m>

Entry Points

Name Comments DBIA/ICR reference
JUMP ;
KEEP
PATH ; CALCULATE ALL PATHS
RECPAT ;
LPTH ;
SELPAT ;
PICK
SETSLP ;
CHC ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: JUMP+2
Function Call: WRITE
  • Prompt: !!,"Because '",$P(Y(0),"^"),"' is not part of the",!,"patient data, it must be ""linked"" in via a pathway.",!,"The following list will be a list of pathways to choose from.",!,"To continue with this jump, you must pick a pathway."
  • Line Location: JUMP+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: JUMP+5
Function Call: WRITE
  • Prompt: !!,"...Excuse me while I perform some necessary calculations..."
  • Line Location: JUMP+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: JUMP+7
Function Call: WRITE
  • Prompt: !,$J(GMRGLIST,3),". ",$S($D(^GMRD(124.2,+GMRG0(1),0)):$P(^(0),"^"),1:"")
  • Line Location: SELPAT+4
Function Call: WRITE
  • Prompt: !?(GMRG0(2)+2*2+1),$S($D(^GMRD(124.2,+$P(GMRG0(0),"^",GMRG0(2)),0)):$P(^(0),"^"),1:"")
  • Line Location: SELPAT+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PICK+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: X=""
  • Line Location: PICK+0
Function Call: WRITE
  • Prompt: !?4,$C(7),"ENTER A VALID NUMBER BETWEEN 1 AND ",GMRGLIST
  • Line Location: PICK+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: CHC+1
Function Call: WRITE
  • Prompt: ?15,$S($D(^GMRD(124.2,+Z,0)):$P(^(0),"^"),1:""),!
  • Line Location: CHC+3
Function Call: WRITE
  • Prompt: !,"The term you wish to jump to can be reached from multiple paths.",!,"Please choose the number (1-"_GMRGLIST_") of the corresponding path you wish to use: "
  • Line Location: CHC+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHC+6
Function Call: WRITE
  • Prompt: !?3,$C(7),"PLEASE CHOOSE A NUMBER BETWEEN 1 AND ",GMRGLIST
  • Line Location: CHC+6

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