DGPPSYCH ;LIB/MKN,JAM - PRESUMPTIVE PSYCHOSIS SCREEN 7 ;08/01/2019
Source file <DGPPSYCH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| YN(DFN) | ; DG*5.3*1082; NOTE: This API is now obsolete. Patch DG*5.3*1082 removed the call to this tag from the input template DG LOAD EDIT SCREEN 7
|
|
| YN1 | ;
|
|
| PT(DFN,DGCAT,DGCHGDT) | ;
; DG*5.3*1082; Update Patient (#2) file field #.5601 and PRESUMPTIVE PSYCHOSIS CATEGORY CHANGES (#33.1) file ; Inputs: DFN - patient ; DGCAT - category ; DGCHGDT - (Optional) The date the Category changed ; Output: Status - 0 (Error), 1 (Success) |
|
| CH(DFN,DGCHGDT) | ;
; DG*5.3*1082; This code was originally trigger logic for PRESUMCPTIVE PSYCHOSIS CATEGORY field (#.5601) of the PATIENT file (#2) ; That trigger was removed by the patch and this logic modified and called by tag PT above. Parameter DGCHGDT added. ; Additional changes made to add error handling and return success/fail flag |
|
| SET(DGIEN331,DGCAT) | ;
; Inputs: DGIEN331 - IEN for the entry in the PRESUMPTIVE PSYCHOSIS CATEGORY CHANGES (#33.1) file for this patient ; DGCAT - PRESUMPTIVE PSYCHOSIS CATEGORY (#.5061) field of PATIENT (#2) file (may be NULL) ; Returns: 0 if error, 1 if successful |
|
| EXISTS(DGIEN331,DGCAT) | ;
; Check if DGCAT is already the last entry in the CATEGORY CHANGES multiple (#33.12) of the PRESUMPTIVE PSYCHOSIS CATEGORY CHANGES (#33.1) file |
|
| GETDATA331(DFN,DGVAFPSY) | ; Get Data
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 33.12 | GET1^DIQ |
