| DGJ INCOMPLETE EVENT |
extended action |
|
This option adds a record to the Incomplete Records file upon discharge of a patient. It will stuff in all the pertinant data that is needed for this file. |
D ^DGJTEVT |
|
| DGJ ENTER/EDIT RECORDS MENU |
menu |
|
This menu contains all the actions for the IRT Record Summary Tracking option. This is the protocol menu that controls the actions for entering a new IRT record and editing an already existing IRT record. |
|
|
| DGJ IRT SUMMARIES |
menu |
|
This menu contains all the activities for updating an IRT record if it is an op report, interim or discharge summary. This menu is called by the protocol action of editing a deficiency. |
|
|
| DGJ IRT PARM ENTER/EDIT MENU |
menu |
|
This menu contains all the actions for the IRT Record Summary Tracking option. This is the protocol menu that controls the actions for entering a new IRT record and editing an already existing IRT record. |
S DGJTHFLG="AD" |
K DGJTHFLG |
| DGJ ENTER/EDIT DEFICIENCY MENU |
menu |
|
This menu contains all the activities for the IRT DEFICIENCY TRACKING option |
S DGJTHFLG="EN" |
K DGJTHFLG |
| DGJ IRT EDIT DEFICIENCY |
action |
|
This protocol is the action to edit a record deficiency. This action is associated with the protocol menu for entering and editing all deficiencies for a patients record. |
D NEW^DGJTEE |
|
| DGJ IRT ENTER DEFICIENCY |
action |
|
This protocol is the action to enter a record deficiency. It is an action under the Enter/Edit Deficiencies protocol menu. |
D NEW1^DGJTEE |
|
| DGJ EDIT SUMMARY/REPORT |
action |
|
This protocol is the action to edit a specific IRT record. This is an action attached to the protocol menu that is called when a record deficiency is an op report, interim summary or discharge summary and the deficiency is being edited. This is the action that allows the IRT record to be updated as well as the deficiency. |
S (X,DGJTNUM)=1 D EDIT^DGJTVW1 |
|
| DGJ IRT EXP |
action |
|
This protocol is the action to expand a selection. When a selection is chosen this action will display all the data in the file. If the selection is an OP report, interim summary, or discharge summary, the IRT record associated with that selection will be displayed also. |
D EXP^DGJTEE1 |
|
| DGJ CHNG PAT |
action |
|
This protocol is the action to change a patient. |
D PAT1^DGJTEE1 |
|
| DGJ IRT ENTER RECORD |
action |
|
This protocol is the action to enter a new IRT record. It is an action under the Enter/Edit a Record protocol menu. |
D NEW1^DGJTEE |
|
| DGJ IRT EDIT RECORD |
action |
|
This protocol is the action to edit an IRT record under the Enter/Edit an IRT Record protocol menu. |
D NEW^DGJTEE |
|
| DGJ GROUP 2 EDIT |
action |
|
This protocol is an action that allows the editing of the data in group 2 of the Incomplete Records screen when editing an IRT report. |
S DGJTNUM=2 D EDIT^DGJTVW1 |
|
| DGJ GROUP 3 EDIT |
action |
|
This protocol is an action that allows the editing of the data in group 3 of the Incomplete Records screen when editing an IRT report. |
S (X,DGJTNUM)=3 D EDIT^DGJTVW1 |
|
| DGJ GROUP 4 EDIT |
action |
|
This protocol is an action that allows the editing of the data in group 4 of the Incomplete Records screen when editing an IRT report. |
S (X,DGJTNUM)=4 D EDIT^DGJTVW1 |
|
| DGJ ALL GROUP EDIT |
action |
|
This protocol is an action that allows the editing of the data in all groups on the Incomplete Records screen when editing an IRT report. |
D ALLEDIT^DGJTVW1 |
|
| DGJ TS UPDATE |
action |
|
This protocol is the action to update the Treating Specialty and Primary and Attending physicians for the IRT package and ADT without exiting the IRT enter/edit option. |
S DGJTSEDT=1 D TS^DGJTUTL |
K DGJTSEDT |
| DGJ DELETE DEFICIENCY |
action |
|
|
S DGJTDELE=1 D OKD^DGJTDEL |
K DGJTDELE |
| DGJ DELETE MENU |
menu |
|
|
S DGJTHFLG="DL" |
K DGJTHFLG |
| DGJ COMPLETE EDIT MENU |
menu |
|
|
S DGJTCOM=1,DGJTHFLG="CE" |
K DGJTCOM,DGJTHFLG |
| DGJ EDIT COMP IRT SINGLE |
action |
|
|
D NEW^DGJTEE |
|
| DGJ EDIT COMP IRT SUPER |
action |
|
|
S DGJTCOM=1 D START4^DGJTEE |
K DGJTCOM D REP^DGJTEE |
| DGJ EDIT COMP SUPER2 |
action |
|
|
D NEW^DGJTEE |
K DGJTCOM |
| DGJ DELETE SUPER |
action |
|
|
S DGJTDLT=1 D START5^DGJTEE |
K DGJTDLT D REP^DGJTEE |
| DGJ DELETE SUPER2 |
action |
|
|
D OKD^DGJTDEL |
|
| DGJ JUMP CATEG |
action |
|
|
D JUMP^DGJTEE3 |
|
| DGJ IRT COMPLETE DEF |
action |
|
|
D QUICMP^DGJTEE2 |
|
| DGJ IRT EDIT PARMS |
action |
|
|
D EDIT^DGJPAR1 |
|
| DGJ IRT ADD DEF. PARMS |
action |
|
|
D EN^DGJTADD |
|
| DGJ IRT VIEW MENU |
menu |
|
|
S DGJTHFLG="VW" |
K DGJTHFLG |
