©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
APSQFAS3 ;IHS/ASDS/ENM/POC - ASKS REST OF QUESTIONS FOR FAST RX ORDER ENTRY
Source file <APSQFAS3.m>
| Package | Total | Caller Graph |
|---|---|---|
| IHS Changes To Pharmacy | 2 | APSQFAS APSQFAS2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 13 | ;S PSONEW("FLD")=13 D RMK^PSODIR2(.PSONEW) ; Get Remarks
|
|
| END | ;
|
|
| 09 | ;S PSONEW("FLD")=09 D CM^PSODIR1(.PSONEW) ;Ask Chronic Med Data
|
|
| JUMP | ;
|
|
| START | ;EP
|
|
| 3 | ||
| 5 | ;S PSONEW("FLD")=5 D QTY^PSODIR1(.PSONEW) ; Get quantity
|
|
| 4 | ;S PSONEW("FLD")=4 D SIG^PSODIR1(.PSONEW) ; Get Rx directions
|
|
| 7 | ;S PSONEW("FLD")=7 D DAYS^PSODIR1(.PSONEW) ; Get days supply
|
|
| 6 | ||
| 8 | ;S PSONEW("FLD")=8 D REFILL^PSODIR1(.PSONEW) ; Get # of refills
|
| Name | Field # of Occurrence |
|---|---|
| ^APSQFAS4 | 3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences |
|---|---|
| @( | 3+1, 4+2, 5+2, 6+1, 7+2, 8+2, 09+2, 13+2 |
| END | 3+1, 4+2, 5+2, 6+1, 7+2, 8+2, 09+2, 13+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APSQF(3 | 4+1 |
| >> APSQF(4 | 5+1 |
| >> APSQF(5 | 6 |
| >> APSQF(6 | 7+1 |
| >> APSQF(7 | 8+1 |
| >> APSQF(8 | 09+1 |
| >> APSQF(9 | 13+1 |
| >> APSQSAVE | START+1 |
| >> PSONEW | START+1* |
| >> PSONEW("# OF | REFILLS" , 8+1* |
| >> PSONEW("CM" | 09+1* |
| >> PSONEW("COPIES" | 6* |
| >> PSONEW("DAYS | SUPPLY" , 7+1* |
| >> PSONEW("DFLG" | START+2*, 3+1, 4+2, 5+2, 6+1, 7+2, 8+2, 09+2, 13+2 |
| >> PSONEW("FIELD" | START+2*, 3+1, 4+2, 5+2, 6+1, 7+2, 8+2, 09+2, 13+2, JUMP+2* , JUMP+3* |
| >> PSONEW("FLD" | 3*, JUMP+2, JUMP+3 |
| >> PSONEW("QTY" | 5+1* |
| >> PSONEW("REMARKS" | 13+1* |
| >> PSONEW("SIG" | 4+1* |
| PSONEW1 | START+2*, END+1! |
| >> PSOPAR | 6 |
| >> Y | JUMP+2 |