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

Package: General Medical Record - Generator

Routine: GMRGED5


Information

GMRGED5 ;CISC/RM-PATIENT DATA EDIT (cont.) ;4/25/89

Source Information

Source file <GMRGED5.m>

Entry Points

Name Comments DBIA/ICR reference
APPEND ; EDIT APPENDED TEXT FOR THE SELECTED ENTRY.
SAT
APPR ;
APTXED ;
YNAP
APTX0
ADDITION ;
EDTX
YNAT
STDAT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"APPENDED TEXT for '"
  • Line Location: APPR+1
Function Call: WRITE
  • Prompt: "'"
  • Line Location: APPR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: APTXED+1
Function Call: READ
  • Variable: GMRGTX(0)
  • Timeout: DTIME
  • Line Location: APTXED+2
Function Call: WRITE
  • Prompt: !,"Appended Text: ",$S($L(GMRGTX(0)):GMRGTX(0)_"// ",1:"")
  • Line Location: APTXED+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"WANT TO DELETE"
  • Line Location: YNAP+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: YNAP+0
Function Call: WRITE
  • Prompt: !?8,$C(7),"Answer Yes if you want to delete the appended text, else answer No"
  • Line Location: YNAP+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"LINE TOO LONG??"
  • Line Location: APTX0+0
Function Call: WRITE
  • Prompt: !?4,$C(7),$S(GMRGTX(0)?1"?".E:"ANSWER WITH FREE TEXT",1:"ANSWER CANNOT CONTAIN THE CIRCUMFLEX '^' CHARACTER")
  • Line Location: APTX0+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press return to continue "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADDITION+1
Function Call: WRITE
  • Prompt: !!,"ADDITIONAL TEXT",!,$E(GMRGLIN("*"),1,15)
  • Line Location: ADDITION+2
Function Call: WRITE
  • Prompt: !!,"Additional Text for "
  • Line Location: EDTX+0
Function Call: READ
  • Variable: GMRGTX
  • Timeout: DTIME
  • Line Location: EDTX+2
Function Call: WRITE
  • Prompt: ": ",$S($L(GMRGTX):GMRGTX_"// ",1:"")
  • Line Location: EDTX+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"WANT TO DELETE"
  • Line Location: YNAT+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: YNAT+0
Function Call: WRITE
  • Prompt: !?6,$C(7),"Answer Yes if you wish to delete the additional text, else answer No."
  • Line Location: YNAT+1
Function Call: WRITE
  • Prompt: !,$C(7),"ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
  • Line Location: STDAT+0
Info |  Source |  Entry Points |  Interaction Calls