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

Package: Medicine

Routine: MCARGD


Information

MCARGD ;WISC/TJK-DIAGNOSIS FILTER ;3/11/96 12:06

Source Information

Source file <MCARGD.m>

Entry Points

Name Comments DBIA/ICR reference
PROC
PRIM
PRIM1
PRIM2
SEC
COM
REV
EDIT
SECSET
SECSET1
ARR
CHECK
LIST
ENTERED
DPT ;
EXIT ;
EN1 ;CALLED BY X-REF TO DELETE SECONDARY DIAGNOSIS WHEN IMPRESSION IS DELETED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(MCDFLAG)
  • Line Location: PROC+0
Function Call: WRITE
  • Prompt: !!?33,"DIAGNOSIS ENTRY",!?33,"--------------",!!
  • Line Location: PROC+0
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: PRIM1+0
Function Call: WRITE
  • Prompt: !,*7,"Enter Number of Diagnosis That You Wish to Use as Primary Diagnosis",!,"Hit Return if you do not wish to enter any of above"
  • Line Location: PRIM1+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: PRIM1+2
Function Call: WRITE
  • Prompt: !,$P(^MCAR(697.5,X,0),U)
  • Line Location: PRIM2+0
Function Call: WRITE
  • Prompt: !!,"Enter Number of Secondary Diagnosis or 'ALL' to enter all: "
  • Line Location: SEC+1
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: SEC+2
Function Call: WRITE
  • Prompt: !,*7,"Enter Number of Diagnosis from above list or enter 'ALL' for All Diagnoses to be entered as a secondary diagnosis."
  • Line Location: SEC+3
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: SEC+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: SECSET1+0
Function Call: WRITE
  • Prompt: !!,"Possible ",MCARTY," Diagnoses are: "
  • Condition for execution: J=1
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,J,". ",$P(^MCAR(697.5,K,0),U)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: " ****ENTERED****"
  • Line Location: ENTERED+0

FileMan Files Accessed Via FileMan Db Call

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