DGPTFJC ;ALB/ADL,HIOFT/FT - CLOSED PTF ;12/12/14 2:15pm
Source file <DGPTFJC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
101 | ||
H | ||
MAS | ||
401 | ||
501 | ||
601 | ||
701 | ;
|
|
801 | ||
READ | ; -- read X
|
|
EN | ; DG*636 ; DG*5.3*850
; Called from Diagnosis fields in 501 movements ; Variable DGN is passed globally as a node identifier |
|
EN1 | ; called from 601 movement procedure codes and 401 Surgical operations
|
|
EN2 | ; Called from 701 movement procedure codes
|
|
EN3 | ;Called from 701 movement diagnosis fields (top level)
; - EFFDATE := date of interest e.g. patient discharge date ; - IMPDATE := ICD-10 implementation date ; - DGTEMP := temp variable to hold data from $$IMPDATE^DGPTIC10 |
|
EN4 | ; called from ??
|
|
EN5 | ; DG*5.3*850
; called from the diagnosis input transforms in file 46 |
|
EN6 | ; -- called from file 46; .01 field
|
|
REQ(DX,STRING) | ; - is another ICD code required with this code
; -- input DX - code being entered ; STRING - string of code iens already entered for movement ("^123^456^789^") ; -- output - writes message if another code is required |
|
NOT(DX,STRING) | ; - is icd code not to use with existing codes
; -- input DX - code being entered ; STRING - string of code iens already entered for movement ("^123^456^789^") ; -- output DGER :=1 if error ; writes message if not allowed |
|
MSG(TEXT) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|