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