IBCNCH ;ALB/FA - PATIENT POLICY COMMENT HISTORY ;05-MAR-2015
Source file <IBCNCH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,IBIIEN,MODE) | ;EP
; Main entry point ; Input: DFN - IEN of the patient ; IBIIEN - IEN of patient policy multiple (^DPT(DFN,.312,IBIIEN) ; MODE - 1 - User is allowed to Add/Edit/Delete/View/Search comments ; 0 - User is allowed to View/Search comments |
|
| HDR | ;EP
; Build the listman template header information ; Input: DFN - IEN of the patient ; IBPPOL - ^DPT(DFN,.312,PIEN,0) Where PIEN is the IEN of the ; selected patient policy |
|
| INIT | ;EP
; Initialize the listman template ; Input: DFN - IEN of the patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; Output: ^TMP("IBCNCH",$J) - Body lines to display for specified template ; ^TMP($J,"IBCNCHIX") - Index of displayed comments (see GETCOMS) |
|
| ADDCOM | ||
| NEXTCOM(DFN,IBIIEN) | ; Get the next available Patient Policy Comment IEN for
; the selected Patient and Policy ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; DUZ - IEN of the user creating the comment ; Returns: IEN number of newly created Patient Policy Comment |
|
| LOCKN(DFN,IBIIEN) | ; Lock Adding of comments for a specified patient
; and policy ; Input: DFN - IEN of the Patient a comment will be added for ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; Returns: 1 - Lock was obtained, 0 otherwise |
|
| UNLOCKN(DFN,IBIIEN) | ; Unlock Adding of comments for a specified patient
; Input: DFN - IEN of the Patient a comment will be added for ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy |
|
| DELETE(COMIN) | ||
| DELETIT(COMIEN,MULTI,DLTDONE) | ; Lock Deletion of this patient policy comment
; COMIEN = comment to be deleted. ; MULTI = 0 - display OK TO DELETE question per normal. ; = 1 - display OK TO DELETE question once for all selected comments. ; DLTDONE = 0 - selection not deleted. ; = 1 - selection deleted. |
|
| ASKYN(PROMPT,DEFAULT) | ||
| EDIT(COMIN) | ||
| EDITCOM(DFN,IBIIEN,COMIEN,FROMEE) | ; Edit the selected comment
; Called from EDIT and ADDCOM ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; COMIEN - IEN of the comment being edited ; FROMEE - 1 edit from Expand Entry, 0 otherwise ; Optional, defaults to 0 |
|
| OK2EDIT(DFN,IBIIEN,COMIEN,WHICH) | ; Check to see if it's ok to Edit/Delete the
; selected Patient Policy Comment ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; COMIEN - IEN of the selected Patient Policy comment ; WHICH - 'Delete' when called from DELETE ; 'Edit' whe called fomr EDIT ; Returns: 1 - OK to edit or delete, -1^Error Message otherwise |
|
| LOCKC(DFN,IBIIEN,COMIEN) | ; Lock Editing of a selected Patient Policy Comment
; Input: DFN - IEN of the Patient a comment will be added for ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; COMIEN - IEN of the Patient Policy comment being edited ; Returns: 1 - Lock was obtained, 0 otherwise |
|
| UNLOCKC(DFN,IBIIEN,COMIEN) | ; Unlock Editing of a selected Patient Policy Comment
; Input: DFN - IEN of the Patient a comment will be added for ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; COMIEN - IEN of the Patient Policy comment being edited |
|
| HELP | ;EP
; Display the listman template help |
|
| MULTCOM(FULL,PROMPT,COMCNT,WLIST) | ;Allow selection of multiple comments to be deleted
; Select Entry(s) to perform an action upon ; Input: FULL - 1 - full screen mode, 0 otherwise ; PROMPT - Prompt to be displayed to the user ; WLIST - Worklist, the user is selecting from ; ^TMP($J,"IBCNCHIX") - Index of displayed lines of the Comment ; History Worklist ; Output: COMCNT - Comment Number of the selected Comment ; Returns: Select Comment IEN ; Error message if invalid selection |
|
| MLTENTRY(PROMPT,START,END) | ; select a comment
; Input: PROMPT - Prompt to be displayed to the user ; START - Start comment # that can be selected ; END - Ending comment # that can be selected ; Returns: Selected Comment # or "" if not selected |
|
| SELCOM(FULL,PROMPT,COMCNT,WLIST) | ||
| DELCOM(DFN,IBIIEN,COMIEN) | ; Checks to see if the user was attempting to
; create new Patient Policy comment but didn't enter a comment. If so, ; If so, the new Patient Policy Comment is deleted ; Input: DFN - IEN of the Patient a policy comment is being added for ; IBIIEN - IEN of the Policy a policy comment is being added for ; COMIEN - IEN of the new Policy Comment being added ; Returns: 1 - New Patient Policy Comment was deleted, 0 otherwise ; |
|
| SELENTRY(PROMPT,START,END) | ||
| EXIT | ;EP
; Exit the listman template |
| 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: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
| 2.342 | GET1^DIQ |
