Call Graph
Call Graph Total: 3
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | UPDATE^DIE $$GET1^DIQ |
| Registration | 1 | $$UPD^DGENDBS |
DGPPSYCH ;LIB/MKN,JAM - PRESUMPTIVE PSYCHOSIS SCREEN 7 ;08/01/2019
Source file <DGPPSYCH.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | UPDATE^DIE $$GET1^DIQ |
| Registration | 1 | $$UPD^DGENDBS |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPP(33.1 - [#33.1] | CH+16, EXISTS+8, EXISTS+9, GETDATA331+14, GETDATA331+16, GETDATA331+17 |
| Name | Line Occurrences |
|---|---|
| $$CH | PT+14 |
| $$EXISTS | CH+26 |
| $$SET | CH+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | YN~, PT~, PT+10, PT+14, CH~, CH+14, CH+16, CH+19, GETDATA331~, GETDATA331+14 |
| DGCAT | PT~, PT+9, CH+12~, CH+14*, CH+26, CH+29, SET~, SET+9, EXISTS~, EXISTS+10 |
| DGCATE | EXISTS+7~, EXISTS+9*, EXISTS+10 |
| DGCHGDT | PT~, PT+12*, PT+14, CH~, SET+8 |
| DGDATA5601 | PT+7~, PT+10 |
| DGDATA5601( | PT+9* |
| DGERR | CH+12~, CH+18, SET+6~, SET+12 |
| DGFDA | CH+12~, SET+6~ |
| DGFDA( | CH+19*, SET+8*, SET+9*, SET+10* |
| DGIEN331 | CH+12~, CH+16*, CH+18, CH+21*, CH+26, CH+29, SET~, SET+8, SET+9, SET+10 , EXISTS~, EXISTS+8, EXISTS+9, GETDATA331+13~, GETDATA331+14*, GETDATA331+15, GETDATA331+16, GETDATA331+17, GETDATA331+18 |
| DGIEN331S | CH+12~, CH+16*, CH+19, CH+21* |
| DGIENS | CH+12~, GETDATA331+13~, GETDATA331+18*, GETDATA331+19, GETDATA331+20 |
| DGIENS(1 | CH+21 |
| DGN | EXISTS+7~, EXISTS+8*, EXISTS+9, GETDATA331+13~, GETDATA331+16*, GETDATA331+17*, GETDATA331+18 |
| DGVAFPSY | GETDATA331~ |
| DGVAFPSY("PPCAT" | GETDATA331+19* |
| DGVAFPSY("PPCATDT" | GETDATA331+20* |
| DGX | CH+12~ |
| DGZHF | GETDATA331+13~ |
| DT | PT+12 |
| DUZ | SET+10 |
| U | EXISTS+9 |
