DGRP1152A ;ALB/LEG - REGISTRATION SCREEN 11.5.2/VERIFICATION INFORMATION ;JUN 08, 2020@23:00
Source file <DGRP1152A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN) | ;Main entry point to invoke the DGEN CCP DETAIL list
; Input -- DFN Patient IEN |
|
| HDR | ;Header code
|
|
| INIT | ;Build patient Collateral screen
|
|
| EXIT | ;Exit code
|
|
| PEXIT | ;DGEN CCP MENU protocol exit code
|
|
| HELP | ; Invoked from HELP CODE in List Template [DGEN CCP DETAIL]
|
|
| ACT(DGACT) | ; Entry point for menu action selection
; INPUT: DGACT = "A" - Add - DGEN CCP ADD protocol ; = "E" - Edit - DGEN CCP EDIT protocol ; = "R" - Remove - DGEN CCP REMOVE protocol |
|
| ACTQ | ; menu action exit point
|
|
| ADD | ; Add new CCP to #1910 sub-file
|
|
| EDIT | ;EDIT EXISTING CCP
|
|
| REMOVE | ;REMOVE EXISTING CCP
|
|
| SELECT(DGACT,DGORIGIDX,DGORIGREC) | ;
; Input: DGACT - "E"dit or "R"emove ; Output: DGORIGIDX - (Pass by reference) The entry number of the selected CCP ; DGORIGREC - (Pass by reference) The fields of the selected CCP ; Returns the entry number selected |
|
| ADASKCCP(DGCCPCD) | ; Prompts for CCP to be ADDed
; Output: DGCCPCD - CCP Code to be added (Pass by Reference) ; Returns - TRUE if valid CCP entered |
|
| L1 | ; Tag to call for re-prompting
|
|
| EDASKCCP(DGORIGIDX,DGCCPCD) | ; ASK EDIT CCP
; Input: DGORIGIDX - Entry number of the CCP selected for edit ; Output: DGCCPCD - The CCP Code that has been entered {Pass by Reference) ; Returns: TRUE is edit of the CCP was successful |
|
| L2 | ; Tag to call for re-prompting
|
|
| ADASKEFDT(DGCCPCD,DGEFFDT) | ; ASK ADD EFFECTIVE DATE AND IF VALID SAVE
; Input: DGCCPCD - CCP Code associated with the effective date ; Outut: DGEFFDT - Effective date entered for this CCP (Pass by Reference) ; Returns TRUE if valid effective date added for this CCP |
|
| L3 | ; Tag to call for re-prompting
|
|
| EDASKEFDT(DGORIGIDX,DGORIGREC,DGCCPCD,DGEFFDT) | ; ASK EFFECTIVE DATE AND IF VALID SAVE
; Input: DGORIGIDX - Entry number of the CCP selected for edit ; DGORIGREC - The fields of the selected CCP (0 node) ; DGCCPCD - CCP code for the associated Effective Date ; Input: DGEFFDT - Updated Effective Date (Pass by reference) ; Returns: TRUE is edit of Effective Date was successful |
|
| L4 | ; Tag to call for re-prompting
|
|
| CHKMULT1(DFN,DGCCP,DGGOOD) | ; checks for disallowed 'A' or 'I' multiples
; Input: DFN ; DGCCCP - The CPP code to check ; Output: DGGOOD - (Pass by Reference) - TRUE if OK |
|
| CHKMULT2(DFN,DGCCP,DGFMDT,DGGOOD) | ; checks for disallowed same CCP with same EFFECTIVE DATE
; Input: DFN ; DGCCCP - The CPP code to check ; DGFMDT - Effective Date to check (Fileman format) ; Output: DGGOOD - (Pass by Reference) - TRUE if OK |
|
| SAVREC(DFN,DGCCPCD,DGEFFDT) | ;save newly ADDed or EDITed record
|
|
| SAVEXIST(DFN,DGCCP,DGFMDT) | ; Check for an existing CCP record to be saved
; Checks for a matching CCP/EFFECTIVE DATE record among the End Dated CCPs. If found, reuse it (Remove the end date) ; Inputs: DFN - Patient DFN ; DGCCP - CCP Code ; DGFMDT - CCP Effective date ; Returns: The Entry number of the reactivated CCP if found or NULL |
|
| SAVENDT(DGSIDX) | ;save END DATE in old rec
; Input: DGSIDX - Entry number of the CCP to set End Date |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.191 | EXTERNAL^DILFD, GET1^DIQ |
| ^DG(391 - [#391] | GET1^DIQ |
