©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
APSPRXV ; IHS/DSD/ENM - BHAM ISC/SAB/ENM - VIEW OF A PRESCRIPTION ; [ 09/03/97 1:30 PM ]
Source file <APSPRXV.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | ^PSORXPR (CHK,CHK1)^PSOUTLA |
| VA Fileman | 1 | YN^DICN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OUT1 | ||
| A11 | ||
| A1 | ;W ! S APSPQ="",DIC("S")="I $P(^PSRX(X,0),""^"",15)'=13",DIC=52,DIC(0)="QEAM",DIC("A")="Enter PRESCRIPTION #: " D ^DIC K DIC,DIC("A") ;G KILL:X=""!(X="^") G A1:Y<0 S DA=+Y,APSPX=+Y ;IHS/DSD/ENM 05/24/96
|
|
| KILL | ||
| ASK | ||
| OUT | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSRX - [#52] | A1+4, A11 |
| Name | Line Occurrences |
|---|---|
| A1 | A1+4 |
| ASK | ASK |
| OUT1 | A11+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(2 | A11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ASK*, ASK+1, A11+1*, OUT1*, KILL! |
| >> %Y | ASK |
| >> APSPLTYP | OUT+1* |
| >> APSPQ | A1+2* |
| >> APSPX | A1+2* |
| DA | A1+2*, A1+4, A11, KILL! |
| DIC | KILL! |
| I | KILL! |
| II | KILL! |
| J | KILL! |
| N | KILL! |
| PHYS | KILL! |
| PS | APSPRXV+2*, A1+4, ASK, A11+1*, KILL! |
| >> PSODIV | A1+4, A11 |
| >> PSORXED("IRXN" | A1+2 |
| >> PSOSITE | A1+4, A11 |
| PSPOP | A1+4*, A1+5!, A11*, A11+1! |
| PSPRXN | A1+4*, A1+5!, A11*, A11+1! |
| RFDATE | KILL! |
| RFL | KILL! |
| RFL1 | KILL! |
| RFLL | KILL! |
| ST | KILL! |
| ST0 | KILL! |
| X | A1+2*, ASK*, ASK+1*, KILL! |
| Y | KILL! |
| Z | KILL! |