IBCNCH ;ALB/FA - PATIENT POLICY COMMENT HISTORY ;05-MAR-2015
Source file <IBCNCH.m>
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 |
---|---|---|
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 | Field # of Occurrence |
---|---|
^DIE | ADDCOM+30, EDITCOM+31 |
UPDATE^DIE | NEXTCOM+12 |
^DIK | DELETIT+29, DELCOM+14 |
$$GET1^DIQ | HDR+7, ADDCOM+14, OK2EDIT+22, OK2EDIT+30, DELCOM+10 |
^DIR | ASKYN+10, MLTENTRY+8, SELENTRY+8 |
$$MULTCOM^IBCNCH | DELETE+24 |
BLD^IBCNCH2 | INIT+8 |
INIT^IBCNCH3 | EDITCOM+33 |
$$PT^IBEFUNC | HDR+6 |
EN^VALM | EN+15, EN+16 |
$$SETSTR^VALM1 | HDR+13 |
CLEAR^VALM1 | EXIT+3 |
FULL^VALM1 | ADDCOM+6, DELETE+10, EDIT+12, MULTCOM+13, SELCOM+13 |
PAUSE^VALM1 | EN+9, EN+12, ADDCOM+22, ADDCOM+35, DELETE+42, DELETIT+10, DELETIT+21, EDITCOM+14, EDITCOM+21, MULTCOM+20 , MULTCOM+26, SELCOM+20, SELCOM+26, SELCOM+34 |
$$NOW^XLFDT | ADDCOM+15, NEXTCOM+8, EDITCOM+24, OK2EDIT+32 |
DISP^XQORM1 | HELP+4 |
OWNSKEY^XUSRB | DELETE+17 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
2.342 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(36 - [#36] | HDR+11 |
^DPT - [#2] | HDR+6, HDR+9, ADDCOM+11, ADDCOM+13, OK2EDIT+13, OK2EDIT+14 |
^IBA(355.3 - [#355.3] | HDR+10 |
^POLCCOM( | UNLOCKN+4, UNLOCKC+5 |
^POLCOM( | LOCKN+6, LOCKC+6 |
^TMP("IBCNCH" | INIT+7!, EXIT+2! |
^TMP($J | INIT+7!, DELETE+33, DELETE+36, DELETE+48, MULTCOM+12, MULTCOM+22, SELCOM+12, SELCOM+22, SELCOM+30, EXIT+2! |
Name | Line Occurrences |
---|---|
$$ASKYN | DELETE+44, DELETIT+24 |
$$DELCOM | ADDCOM+33 |
$$LOCKC | DELETIT+7, EDITCOM+11 |
$$LOCKN | ADDCOM+19 |
$$MLTENTRY | MULTCOM+28 |
$$NEXTCOM | ADDCOM+23 |
$$OK2EDIT | DELETIT+13, EDITCOM+17 |
$$SELCOM | DELETE+56, EDIT+13 |
$$SELENTRY | SELCOM+28 |
DELETIT | DELETE+49, DELETE+60 |
EDITCOM | ADDCOM+16, EDIT+15 |
INIT | ADDCOM+39, DELETE+52, DELETE+67, EDITCOM+34 |
UNLOCKC | DELETIT+15, DELETIT+25, DELETIT+30, EDITCOM+19, EDITCOM+32 |
UNLOCKN | ADDCOM+36, ADDCOM+38 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARYCNT | DELETE+28~, DELETE+30*, DELETE+31 |
ARYNO | DELETE+28~, DELETE+32*, DELETE+33, DELETE+34, DELETE+35, DELETE+46*, DELETE+47*, DELETE+48 |
ARYNUMS | DELETE+28~ |
ARYNUMS( | DELETE+33*, DELETE+37*, DELETE+47 |
COMCNT | EDIT+8~, EDIT+13, MULTCOM~, MULTCOM+14*, MULTCOM+15*, MULTCOM+17, MULTCOM+28*, MULTCOM+29, MULTCOM+30, SELCOM~ , SELCOM+14*, SELCOM+15*, SELCOM+17, SELCOM+28*, SELCOM+29, SELCOM+30 |
COMDT | ADDCOM+5~, ADDCOM+11*, ADDCOM+12, ADDCOM+13, ADDCOM+15, OK2EDIT+9~, OK2EDIT+13*, OK2EDIT+14 |
COMIEN | ADDCOM+5~, ADDCOM+13*, ADDCOM+14, ADDCOM+16, ADDCOM+23*, ADDCOM+27, ADDCOM+33, DELETE+8~, DELETE+11*, DELETE+12 , DELETE+21, DELETE+24*, DELETE+25, DELETE+29*, DELETE+30, DELETE+32, DELETE+44, DELETE+48*, DELETE+49, DELETE+56* , DELETE+57, DELETE+60, DELETIT~, DELETIT+7, DELETIT+13, DELETIT+15, DELETIT+25, DELETIT+27, DELETIT+30, EDIT+8~ , EDIT+9*, EDIT+10, EDIT+13*, EDIT+14, EDIT+15, EDITCOM~, EDITCOM+11, EDITCOM+17, EDITCOM+19, EDITCOM+26 , EDITCOM+32, OK2EDIT~, OK2EDIT+15, OK2EDIT+22, OK2EDIT+30, LOCKC~, LOCKC+6, UNLOCKC~, UNLOCKC+5, MULTCOM+10~ , SELCOM+10~, SELCOM+30*, SELCOM+31, SELCOM+35, DELCOM~, DELCOM+9, DELCOM+12 |
COMIENS | DELETE+16~ |
COMIN | DELETE~, DELETE+11, EDIT~, EDIT+9 |
DA | ADDCOM+5~, ADDCOM+27*, DELETE+8~, DELETIT+27*, EDIT+8~, EDITCOM+26*, DELCOM+8~, DELCOM+12* |
DA(1 | ADDCOM+27*, DELETIT+27*, EDITCOM+26*, DELCOM+12* |
DA(2 | ADDCOM+27*, DELETIT+27*, EDITCOM+26*, DELCOM+12* |
DEFAULT | ASKYN~, ASKYN+7*, ASKYN+9 |
DFN | EN~, EN+7, HDR+6, HDR+7, HDR+9, INIT+8, ADDCOM+11, ADDCOM+13, ADDCOM+14, ADDCOM+16 , ADDCOM+19, ADDCOM+23, ADDCOM+27, ADDCOM+33, ADDCOM+36, ADDCOM+38, NEXTCOM~, NEXTCOM+9, LOCKN~, LOCKN+6 , UNLOCKN~, UNLOCKN+4, DELETIT+7, DELETIT+13, DELETIT+15, DELETIT+25, DELETIT+27, DELETIT+30, EDIT+15, EDITCOM~ , EDITCOM+11, EDITCOM+17, EDITCOM+19, EDITCOM+26, EDITCOM+32, OK2EDIT~, OK2EDIT+13, OK2EDIT+14, OK2EDIT+22, OK2EDIT+30 , LOCKC~, LOCKC+6, UNLOCKC~, UNLOCKC+5, DELCOM~, DELCOM+9, DELCOM+12 |
DIC | EDIT+8~ |
DIE | ADDCOM+5~, ADDCOM+26*, EDIT+8~, EDITCOM+25* |
DIK | DELETE+8~, DELETIT+28*, DELCOM+8~, DELCOM+13* |
DIR | DELETE+41!, ASKYN+6~, MULTCOM+19!, MULTCOM+25!, MLTENTRY+5~, MLTENTRY+8!, SELCOM+19!, SELCOM+25!, SELCOM+33!, SELENTRY+5~ , SELENTRY+8! |
DIR("A" | ASKYN+8*, MLTENTRY+7*, SELENTRY+7* |
DIR("B" | ASKYN+9* |
DIR(0 | ASKYN+8*, MLTENTRY+6*, SELENTRY+6* |
DIROUT | ASKYN+6~, MULTCOM+10~, MLTENTRY+5~, SELCOM+10~, SELENTRY+5~ |
DIRUT | ASKYN+6~, MULTCOM+10~, MLTENTRY+5~, SELCOM+10~, SELENTRY+5~ |
DLINE | MULTCOM+10~, SELCOM+10~ |
DLTDONE | DELETE+8~, DELETE+49*, DELETE+60*, DELETE+64, DELETE+65, DELETIT~, DELETIT+31* |
DO | EDIT+8~ |
DR | ADDCOM+5~, ADDCOM+28*, ADDCOM+29*, EDIT+8~, EDITCOM+28*, EDITCOM+29*, EDITCOM+30* |
DTOUT | ADDCOM+5~, ASKYN+6~, EDIT+8~, MULTCOM+10~, MLTENTRY+5~, SELCOM+10~, SELENTRY+5~ |
DUOUT | ASKYN+6~, MULTCOM+10~, MLTENTRY+5~, SELCOM+10~, SELENTRY+5~ |
DUZ | ADDCOM+15, NEXTCOM+11, DELETE+17, EDITCOM+28, OK2EDIT+23 |
EDT | EDIT+8~, EDITCOM+24*, EDITCOM+28 |
END | MULTCOM+10~, MULTCOM+12*, MULTCOM+28, MLTENTRY~, MLTENTRY+6, SELCOM+10~, SELCOM+12*, SELCOM+28, SELENTRY~, SELENTRY+6 |
ERRMSG | NEXTCOM+7~ |
FDA | NEXTCOM+7~ |
FDA( | NEXTCOM+10*, NEXTCOM+11* |
FROMEE | DELETE+8~, DELETE+12*, DELETE+51, DELETE+63, EDIT+8~, EDIT+10*, EDIT+15, EDITCOM~, EDITCOM+8*, EDITCOM+33 |
FULL | MULTCOM~, MULTCOM+13, SELCOM~, SELCOM+13 |
IBI | DELETE+28~, DELETE+31*, DELETE+32, DELETE+37* |
IBI1 | DELETE+28~, DELETE+35*, DELETE+36, DELETE+37 |
IBI2 | DELETE+28~, DELETE+35*, DELETE+36, DELETE+37 |
IBIIEN | EN~, EN+10, INIT+8, ADDCOM+11, ADDCOM+13, ADDCOM+14, ADDCOM+16, ADDCOM+19, ADDCOM+23, ADDCOM+27 , ADDCOM+33, ADDCOM+36, ADDCOM+38, NEXTCOM~, NEXTCOM+9, LOCKN~, LOCKN+6, UNLOCKN~, UNLOCKN+4, DELETIT+7 , DELETIT+13, DELETIT+15, DELETIT+25, DELETIT+27, DELETIT+30, EDIT+15, EDITCOM~, EDITCOM+11, EDITCOM+17, EDITCOM+19 , EDITCOM+26, EDITCOM+32, OK2EDIT~, OK2EDIT+13, OK2EDIT+14, OK2EDIT+22, OK2EDIT+30, LOCKC~, LOCKC+6, UNLOCKC~ , UNLOCKC+5, DELCOM~, DELCOM+9, DELCOM+12 |
IBKEY | DELETE+16~, DELETE+17 |
IBKEY(0 | DELETE+18 |
>> IBPPOL | HDR+9 |
IBSUP | DELETE+16~*, DELETE+18*, DELETE+21, OK2EDIT+16, OK2EDIT+24, OK2EDIT+34 |
IENS | NEXTCOM+7~, NEXTCOM+9*, NEXTCOM+10, NEXTCOM+11, DELCOM+8~, DELCOM+9*, DELCOM+10 |
IL | DELETIT+16~, DELETIT+19*, DELETIT+20 |
IMX | DELETIT+16~, DELETIT+17*, DELETIT+19 |
LINE | EDIT+8~ |
MODE | EN~, EN+13*, EN+15 |
MULTI | DELETE+8~, DELETE+9*, DELETE+23*, DELETE+49, DELETE+60, DELETIT~, DELETIT+13, DELETIT+24, MULTCOM+17 |
NOW | NEXTCOM+7~, NEXTCOM+8*, NEXTCOM+10 |
OK | OK2EDIT+9~, OK2EDIT+10*, OK2EDIT+15, OK2EDIT+17*, OK2EDIT+18*, OK2EDIT+23, OK2EDIT+25*, OK2EDIT+26*, OK2EDIT+33, OK2EDIT+35* , OK2EDIT+36*, OK2EDIT+37 |
PROMPT | ASKYN~, ASKYN+8, MULTCOM~, MULTCOM+23, MULTCOM+28, MLTENTRY~, MLTENTRY+7, SELCOM~, SELCOM+23, SELCOM+28 , SELENTRY~, SELENTRY+7 |
RETIEN | NEXTCOM+7~ |
RETIEN(1 | NEXTCOM+13 |
SELERR | DELETE+22~*, DELETE+31, DELETE+34*, DELETE+36*, DELETE+39 |
SRCHTXT | EDIT+8~ |
START | MULTCOM+10~, MULTCOM+12*, MULTCOM+28, MLTENTRY~, MLTENTRY+6, SELCOM+10~, SELCOM+12*, SELCOM+28, SELENTRY~, SELENTRY+6 |
TDT | OK2EDIT+9~, OK2EDIT+32*, OK2EDIT+33 |
U | DELETE+48 |
>> VALMBCK | ADDCOM+7*, DELETE+9*, DELETE+51*, DELETE+64*, DELETE+65*, EDIT+11* |
>> VALMHDR(1 | HDR+8* |
>> VALMHDR(2 | HDR+13* |
VALMQUIT | EN+6! |
WHICH | OK2EDIT~, OK2EDIT+16, OK2EDIT+17, OK2EDIT+18, OK2EDIT+24, OK2EDIT+25, OK2EDIT+26, OK2EDIT+34, OK2EDIT+35, OK2EDIT+36 |
WLIST | MULTCOM~, MULTCOM+11*, MULTCOM+12, SELCOM~, SELCOM+11*, SELCOM+12 |
WW | HDR+5~, HDR+10*, HDR+12 |
X | ASKYN+6~, EDIT+8~, HELP+2~, HELP+3*, MULTCOM+10~, MULTCOM+23*, MULTCOM+24, MLTENTRY+5~, MLTENTRY+9, SELCOM+10~ , SELCOM+23*, SELCOM+24, DELCOM+8~, SELENTRY+5~, SELENTRY+9 |
>> XQORNOD(0 | MULTCOM+14, SELCOM+14 |
XX | HDR+5~, HDR+6*, HDR+7*, HDR+8, HDR+12*, HDR+13, ADDCOM+5~, ADDCOM+14*, ADDCOM+15, DELETIT+6~* , DELETIT+13*, DELETIT+14, DELETIT+17, DELETIT+20, EDIT+8~, EDITCOM+17*, EDITCOM+18, EDITCOM+20, OK2EDIT+9~, OK2EDIT+14* , OK2EDIT+15, OK2EDIT+22*, OK2EDIT+23, OK2EDIT+30*, OK2EDIT+31*, OK2EDIT+33, DELCOM+8~, DELCOM+10*, DELCOM+11 |
Y | ASKYN+6~, ASKYN+11, EDIT+8~, MULTCOM+10~, MLTENTRY+5~, SELCOM+10~, DELCOM+8~, SELENTRY+5~ |
YY | HDR+5~, HDR+11*, HDR+13 |
ZZ | HDR+5~, HDR+7*, HDR+9*, HDR+10, HDR+11 |