©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
APSQFAS1 ;IHS/ASDS/ENM/POC - QUESTIONS FOR NEW RX ORDER ENTRY
Source file <APSQFAS1.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | PROV^PSODIR (BST,PTSTAT)^PSODIR1 (CLERK,CLINIC,EXP,ISSDT,MW)^PSODIR2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 11 | ||
| 10 | ||
| 200 | ||
| 12 | ||
| 15 | ;S PSONEW("FLD")=15 D FILLDT^PSODIR2(.PSONEW) ; Get Fill date
|
|
| 14 | ||
| 16 | ||
| JUMP | ;
|
|
| START | ;EP
|
|
| 2 | ||
| 9 | ||
| END | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences |
|---|---|
| @( | 2+1, 9+1, 10+1, 11+1, 12+1, 14+1, 16+1, 200+1 |
| END | 2+1, 9+1, 10+1, 11+1, 12+1, 14+1, 16+1, 16+3, 200+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APSPRFD | 15+2* |
| >> APSQSAVE | 200+3* |
| DUZ("AG" | 10 |
| >> PSOBILRX | 16+3 |
| >> PSOBILST | 16+3 |
| >> PSONEW | 2, 9, 10, 11, 12, 14, 16, 200, 200+3 |
| >> PSONEW("BST" | 16+3* |
| >> PSONEW("DFLG" | START+1*, 2+1, 9+1, 10+1, 11+1, 12+1, 14+1, 16+1, 200+1 |
| >> PSONEW("FIELD" | START+1*, 2+1, 9+1, 10+1, 11+1, 12+1, 14+1, 16+1, 200+1, JUMP+3* , JUMP+4* |
| >> PSONEW("FILL | DATE" , 15+2* |
| >> PSONEW("FLD" | 2*, 9*, 10*, 11*, 12*, 14*, 16*, 200*, JUMP+3, JUMP+4 |
| >> PSONEW("ISSUE | DATE" , 15+2 |
| PSONEW1 | START+1*, END+1! |
| >> Y | JUMP+3 |