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

Package: Clinical Monitoring System

Routine: QAMEDT7


Information

QAMEDT7 ;HISC/DAD-PROGRAMMER EDIT DATA ELEMENTS FILE ;2/10/92 07:33

Source Information

Source file <QAMEDT7.m>

Entry Points

Name Comments DBIA/ICR reference
ASKELEM ;
ASKOK ;
ASKDD ;
ASKFLD ;
FLD
LOOP ;
DONE1 ;
DONE2 ;
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKELEM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKELEM+3
Function Call: WRITE
  • Prompt: !!?5,"Enter Y(es) to leave the path unchanged.",!?5,"Enter N(o) to rebuild the path for this element.",!
  • Line Location: ASKOK+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: ASKOK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKOK+3
Function Call: READ
  • Formatting: !
  • Prompt: "(SUB) DICT. #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKDD+1
Function Call: WRITE
  • Prompt: !!?5,"Enter the (sub) dictionary number where the field you want resides.",!?5,"You may enter (sub) Dictionary#,Field# if you wish to bypass the",!?5,"(SUB) FIELD # prompt (e.g. 2.98,.001).",!
  • Line Location: ASKDD+2
Function Call: WRITE
  • Prompt: " ??",*7,!!?5,"*** `",QAMDD,"' IS NOT A VALID (SUB) DICTIONARY NUMBER ***",!
  • Line Location: ASKDD+3
Function Call: WRITE
  • Prompt: " ",$S($D(^DIC(QAMDD,0))#2:$P(^(0),"^")_" FILE",1:$P(^DD(QAMDD,0),"^"))
  • Line Location: ASKDD+4
Function Call: READ
  • Formatting: !
  • Prompt: "(SUB) FIELD #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKFLD+1
Function Call: WRITE
  • Prompt: !!?5,"Enter the (sub) field number for this data element.",!
  • Line Location: FLD+0
Function Call: WRITE
  • Prompt: " ??",*7,!!?5,"*** `",QAMFLD,"' IS NOT A VALID (SUB) FIELD NUMBER ***",!
  • Line Location: FLD+1
Function Call: WRITE
  • Prompt: " ??",*7,!!?5,"*** YOU MAY NOT PICK THE TOP FIELD OF A MULTIPLE ***",!
  • Line Location: FLD+2
Function Call: WRITE
  • Prompt: " ",$P(^DD(QAMDD,QAMFLD,0),"^"),!!,"Building path to data element"
  • Line Location: FLD+3
Function Call: WRITE
  • Prompt: !!?5,"*** THERE IS A PROBLEM WITH THE",*7,!?5,"*** ^DD(",QAMDD,",""SB"",",QAMDD(0),",",!?5,"*** CROSS REFERENCE",*7,!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !!,?5,"*** INVALID PATH FOR THE `",QAMPARNT(0),"' FILE (#",QAMPARNT,") ***",*7,!
  • Line Location: DONE1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(743.4 - [#743.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call