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

Package: Oncology

Routine: ONCOFUL


Information

ONCOFUL ;Hines OIFO/GWB - FOLLOWUP PROCEDURES ;07/12/00

Source Information

Source file <ONCOFUL.m>

Entry Points

Name Comments DBIA/ICR reference
PAT ;Select patient
AP
DCL ;DISPLAY CONTACT LIST
FI
X
ADC ;ADD CONTACTS
EC
SA
ATM ;[AF Attempt a Follow-up] [ONCO FOLL-ATTEMPT FOLLOWUP]
FA
FOL
FOLDR
DIE
UPDAT
UPOUT ;UPARROW out-check before deleting
DEL ;delete entry
IN ;
NAM
T
TSK ;Task for Patient Inquiry
DI
HD
EX ;EXIT ROUTINE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"********* DISPLAY CONTACTS **********",!!
  • Line Location: DCL+1
Function Call: WRITE
  • Prompt: !!?20,"********** ADD/EDIT CONTACTS **********",!!
  • Line Location: EC+0
Function Call: WRITE
  • Prompt: ?20,"for: ",ONCONM,!!
  • Condition for execution: $D(ONCONM)
  • Line Location: EC+0
Function Call: WRITE
  • Prompt: @IOF,!!?20,"********** ATTEMPT A FOLLOW-UP **********",!!
  • Line Location: ATM+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: FA+0
Function Call: WRITE
  • Prompt: !!?5,"Generate Letter...!!"
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: !!?10,"Complete Follow-up for Successful Contact!!",!
  • Line Location: FA+2
Function Call: WRITE
  • Prompt: !,?5,"**********Following fields have been updated********",!
  • Line Location: UPDAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDAT+3
Function Call: WRITE
  • Prompt: !?2,"Name..: ",ONC(160,ONCOD0,.01)
  • Line Location: UPDAT+4
Function Call: WRITE
  • Prompt: ?35,"Date Last Contact: ",ONC(160,ONCOD0,16)
  • Line Location: UPDAT+5
Function Call: WRITE
  • Prompt: !?2,"Status: ",ONC(160,ONCOD0,15)
  • Line Location: UPDAT+6
Function Call: WRITE
  • Prompt: ?35,"Follow-Up Status.: ",ONC(160,ONCOD0,15.2)
  • Line Location: UPDAT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: UPDAT+8
Function Call: WRITE
  • Prompt: "*",$P(^(0),U,6)
  • Condition for execution: $D(^ONCO(160,ONCOD0,"A",ONCOD1,0))
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,?10,"*********************ENTRY DELETED*************************",!!
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: NAM+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DI+2
Function Call: WRITE
  • Prompt: !?2,"Name..: ",ONC(160,ONCOD0,.01)
  • Line Location: DI+3
Function Call: WRITE
  • Prompt: ?35,"Date Last Contact: ",ONC(160,ONCOD0,16)
  • Line Location: DI+4
Function Call: WRITE
  • Prompt: !?2,"Status: ",ONC(160,ONCOD0,15)
  • Line Location: DI+5
Function Call: WRITE
  • Prompt: ?35,"Follow-Up Status.: ",ONC(160,ONCOD0,15.2)
  • Line Location: DI+6
Function Call: WRITE
  • Prompt: @IOF,!!!?15,"********** Patient Follow-up Inquiry ***********",!
  • Line Location: HD+0

FileMan Files Accessed Via FileMan Db Call

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