©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGPMV32 ;ALB/MIR - CONTINUE TRANSFER A PATIENT OPTION ;5/7/91 09:08
Source file <DGPMV32.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | C^%DTC ^DIE ^DIK |
| Registration | 2 | (ASIHOF,ECA,UHD)^DGPMV321 SPEC^DGPMV36 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ABB | ;absence checks
|
|
| AB | ;update absences upon ward/room-bed change during admit or transfer patient options
|
|
| CONT | ||
| Q | ;I DGPMA'=DGPMP W !,"Patient Transfer",$S('$D(^DGPM(+DGPMDA,0)):" Deleted.",'DGPMP:"red.",1:" Updated.") K ORQUIT ;IHS/ANMC/LJF 7/26/2001
|
|
| FINDLAST | ;find the last transfer which originated ASIH care (either a TO ASIH or TO ASIH (OTHER FACILITY) transfer)
|
|
| ASIHOF | ;if TO ASIH (OTHER FACILITY) update pseudo discharge
|
|
| DICS | ||
| SET | ;set variables if coming from hospital admission (for FINDLAST)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.1 - [#405.1] | CONT+3, DICS, DICS+1, DICS+2 |
| ^DG(405.2 - [#405.2] | DGPMV32+6, ABB+1, DICS+2 |
| ^DGPM - [#405] | Q+1, AB+2, ABB+3, DICS+4, ASIHOF+3, SET+1, FINDLAST+10 |
| ^DGPM("APMV" | FINDLAST+10 |
| ^DGPM("APTT2" | AB+2 |
| ^DIC(42 - [#42] | DICS+6, DICS+8 |
| ^UTILITY("DGPM" | ABB+3*, ASIHOF+3* |
| Name | Line Occurrences |
|---|---|
| AB | DGPMV32+9 |
| ABB | AB+2 |
| ASIHOF | CONT+1 |
| FINDLAST | ASIHOF+1 |
| Q | DGPMV32+6, CONT+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FINDLAST+10 |
| ^("E" | DGPMV32+6, ABB+1, DICS+2 |
| ^("P" | ASIHOF+3 |
| ^(0 | CONT+3, AB+2, DICS+6, DICS+8, SET+1, FINDLAST+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DGPMV32+6*, AB+3!, ABB+2*, ABB+3, DICS+4, ASIHOF+2*, ASIHOF+3 |
| >> DFN | AB+2, FINDLAST+10 |
| DG | ABB+2!, ASIHOF+3! |
| >> DGER | DICS*, DICS+1*, DICS+2*, DICS+3*, DICS+4*, DICS+6*, DICS+8*, DICS+9*, DICS+10*, DICS+11* |
| DGI | AB+1*, AB+2*, AB+3! |
| DGJ | AB+2*, AB+3!, ABB+2 |
| DGJJ | AB+2*, AB+3!, ABB+1, ABB+2, ABB+3 |
| >> DGPM0 | DICS, DICS+2, DICS+3 |
| >> DGPM2 | DICS+1, DICS+10 |
| >> DGPMA | DGPMV32+6*, DGPMV32+9, CONT+3, Q+1, ASIHOF+1, ASIHOF+2 |
| >> DGPMAB | SET+1*, FINDLAST+9*, FINDLAST+10* |
| >> DGPMABL | DGPMV32+9 |
| >> DGPMAN | DICS+6, DICS+8, ASIHOF+2, SET+1 |
| >> DGPMCA | AB+2, ASIHOF+1 |
| >> DGPMDA | DGPMV32+6, CONT+4, Q+1 |
| >> DGPMN | ASIHOF+1 |
| DGPMND | DGPMV32+9*, AB+1, AB+3!, ABB+2 |
| DGPMNI | ASIHOF+1*, SET+1*, FINDLAST+10, FINDLAST+11! |
| >> DGPMOUT | CONT+4 |
| >> DGPMP | DGPMV32+9, Q+1, DICS+9 |
| DGPMTN | ASIHOF+1*, SET+1*, FINDLAST+9, FINDLAST+10, FINDLAST+11! |
| >> DGPMTYP | DGPMV32+6*, CONT*, CONT+1, CONT+2 |
| >> DGQUIET | DGPMV32+6, Q+1 |
| >> DGX | DICS*, DICS+1*, DICS+2*, DICS+3, DICS+4, DICS+6, DICS+8, DICS+9, DICS+10 |
| DIC | AB+3! |
| DIC(0 | AB+1* |
| DIE | AB+1*, AB+3!, ASIHOF+3* |
| DIK | DGPMV32+6*! |
| DQ | ABB+2!, ASIHOF+3! |
| >> DR | ABB+2*, ASIHOF+3* |
| >> I | FINDLAST+10* |
| J | AB+3!, ABB+2* |
| ORQUIT | Q+1! |
| >> X | ASIHOF+3, FINDLAST+10* |
| >> X1 | ASIHOF+2* |
| >> X2 | ASIHOF+2* |
| >> Y | CONT+4*, DICS, DICS+1, DICS+2 |