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

Package: Radiology Nuclear Medicine

Routine: RAUTL19B


Information

RAUTL19B ;HISC/SWM-Utility Routine ;10/29/97 09:29

Source Information

Source file <RAUTL19B.m>

Entry Points

Name Comments DBIA/ICR reference
CKREQD(A) ;once a REQ'D fld is "Y", all higher status's same REQ'D fld must be "Y"
PRTREQD ;print any error messages on req'd flds
CKCOMP(A) ; check COMPLETE status' reqd field not asked at COMPLETE
; and field is asked at status where it's not reqd
CK2
CK9
CKWR1
CKWR2
CKWR3
CKWR7
CKWR8
CKWR9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,RADASH,"Checking fields that have 'REQUIRED' in their name",RADASH,!?11,"within : ",A
  • Line Location: PRTREQD+3
Function Call: WRITE
  • Prompt: !!?5,"There ",ARE," ",N," error",S," found in REQUIRED fields. The error",S
  • Line Location: PRTREQD+6
Function Call: WRITE
  • Prompt: !?5,ARE," due to 'Y' being answered at a lower status, and 'N' being"
  • Line Location: PRTREQD+8
Function Call: WRITE
  • Prompt: !?5,"answered at a higher status for the following prompts"
  • Line Location: PRTREQD+10
Function Call: WRITE
  • Prompt: !!?5,"PROMPT",?55,"STATUS",?75,"DATA",!,?5,"------",?55,"------",?75,"----"
  • Line Location: PRTREQD+12
Function Call: WRITE
  • Prompt: !?5,"'",RAFLDNM,"'"
  • Line Location: PRTREQD+16
Function Call: WRITE
  • Prompt: ?50,"(",E,")",?55,$E(RASTNAM,1,20),?77,$P($P(RA1(E,J),"/"),U,P),!
  • Line Location: PRTREQD+17
Function Call: WRITE
  • Prompt: !!?5,"Once a data item is required, it should be required at all higher statuses."
  • Line Location: PRTREQD+21
Function Call: WRITE
  • Prompt: !!,RADASH,"Warning on reaching Complete",RADASH,!?11,"within : ",A,!
  • Line Location: CK9+2
Function Call: WRITE
  • Prompt: !?5,"The following are permissible, but could lead to failure to"
  • Line Location: CK9+3
Function Call: WRITE
  • Prompt: !?5,"complete cases when prompts are not answered in lower status(es)."
  • Line Location: CK9+4
Function Call: WRITE
  • Prompt: !!?5,"STATUS",?20,"PROMPT",?70,"DATA",!?5,"------",?20,"------",?70,"------"
  • Line Location: CK9+5
Function Call: WRITE
  • Prompt: !?5,$P(^RA(72,+RA2(E,I,P),0),U),?20,N,?70,$P(RA2(E,I,P),U,3)
  • Line Location: CKWR3+4
Function Call: WRITE
  • Prompt: !?20,N,?70,$P(RA2(E,I,P),U,2),!
  • Line Location: CKWR3+6
Function Call: WRITE
  • Prompt: !?5,$P(^RA(72,+RA3(I,P),0),U),?20,N,?70,$P(RA3(I,P),U,3)
  • Line Location: CKWR9+3
Function Call: WRITE
  • Prompt: !?20,N,?70,$P(RA3(I,P),U,2),!
  • Line Location: CKWR9+5
Info |  Source |  Entry Points |  Interaction Calls