©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
ABSPOSID ; IHS/FCS/DRS - the fill date field ; [ 09/12/2002 10:11 AM ]
Source file <ABSPOSID.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | ^%DT (HLP,REFRESH)^DDSUTL ($$GET,PUT)^DDSVAL ^DIR |
| Pharmacy Point of Sale | 2 | $$NDCVAL^ABSPFUNC $$YESNO^ABSPOSU3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILL(RXI,RXR) | ; return fill date, internal form
|
|
| VISIT(RXI,RXR) | ||
| MSGWAIT(X) | ;EP - from ABSPOSI2,ABSPOSI8
|
|
| LOOK3() | ; selection from among all the refill dates
; Returns "^" if none selected (timeout or ^) ; Returns pointer to refill (NOTE! pointer, not date) otherwise |
|
| PROCESS(X) | ; validate input and return transformed value
; Returns -1 if error and sets DDSERROR |
|
| LOOK31 | ; set up DIR("A",#)=several most recent refill dates
; List them all - the most we've seen at Sitka is 12 refills |
|
| MMMDD(Y) | ;EP
|
|
| HELP1(X) | ||
| FULLSCRE | ; adapted from FULL^VALM1
|
|
| VALID | ; VALID is the Data Validation action for the field.
; It may cause more dialogue. ; It might reset X and DDSEXT. (stored in .06, DATE DISP) ; If it does this, and this RXR is different from the one ; chosen in $$GET^DDSVAL(DIE,.DA,1.02), then other side effects ; need to happen: (EFFECTS, called from here in VALID, unlike ; ABSPOSI1, where it's two separate steps) ; |
|
| HELP | ;
|
|
| EFFECTS | ; side effects of putting a value in the Fill Date field
|
|
| VAL1 | ||
| LOOKUP() | ; Choosing which fill date you're processing for
; Returns Pointer to refill, = 0 if first fill ; Returns "" if no selection made |
|
| UPPER(X) | ||
| LOOK2() | ; Want to use the first fill date?
; If yes, returns >0, = internal form of that date ; If no, returns "" ; If timeout or "^", returns "^" |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVMED - [#9000010.14] | VISIT+4 |
| ^DD("DD" | VALID+17, LOOK2+6, LOOK31+6, MMMDD+1 |
| ^PSRX - [#52] | VAL1+13, VAL1+14, FILL+1, FILL+2, LOOKUP+4, LOOK31+2, LOOK31+5, EFFECTS+8, VISIT+2, VISIT+3 |
| Name | Line Occurrences |
|---|---|
| $$FILL | VALID+16, LOOK2+6, LOOK2+10 |
| $$LOOK2 | LOOKUP+7 |
| $$LOOK3 | LOOKUP+8 |
| $$LOOKUP | VAL1+5 |
| $$UPPER | VAL1+1 |
| $$VISIT | EFFECTS+12 |
| EFFECTS | VALID+19 |
| HELP | VAL1+18 |
| HELP1 | HELP+2, HELP+3, HELP+4 |
| LOOK31 | LOOK3+7 |
| PROCESS | VALID+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | VAL1+10~* |
| AR | HELP+1~, HELP+5, MSGWAIT+1~, MSGWAIT+3 |
| AR( | HELP1* |
| AR(1 | MSGWAIT+1* |
| DA | VALID+9, VALID+10, VAL1+3, VAL1+4, LOOKUP+3, LOOK3+4~, EFFECTS+1, EFFECTS+10, EFFECTS+11, EFFECTS+12 |
| DA(1 | LOOK3+5* |
| DDS | LOOK2+4~, LOOK3+3~ |
| DDSERROR | PROCESS+3!, VAL1+6*, VAL1+11*, VAL1+15*, VAL1+18 |
| >> DDSEXT | VALID+14*, VALID+18*, VALID+21*, EFFECTS+1 |
| >> DDSOLD | VALID+14, VALID+21 |
| DFLT | LOOK2+5~, LOOK2+8*, LOOK2+9 |
| >> DIE | VALID+9, VALID+10, VAL1+3, VAL1+4, LOOKUP+3, EFFECTS+1, EFFECTS+10, EFFECTS+11, EFFECTS+12 |
| DIR | LOOK3+4~ |
| DIR("A" | LOOK3+6*, LOOK31+3*, LOOK31+4*, LOOK31+9*, LOOK31+10* |
| DIR("B" | LOOK31+7* |
| DIR(0 | LOOK3+5* |
| DIROUT | LOOK3+4~ |
| DIRUT | LOOK3+4~, LOOK3+9 |
| DTOUT | LOOK3+4~ |
| DUOUT | LOOK3+4~ |
| >> IOBM | FULLSCRE+1* |
| IOF | VAL1+2 |
| >> IORC | FULLSCRE+1 |
| >> IOSC | FULLSCRE+1 |
| IOSL | FULLSCRE+1 |
| >> IOSTBM | FULLSCRE+1 |
| >> IOTM | FULLSCRE+1* |
| MAX | LOOK31+2~*, LOOK31+5 |
| N | LOOK31+2~*, LOOK31+4*, LOOK31+5, LOOK31+9*, LOOK31+10, HELP+1~*, HELP1* |
| NDC | EFFECTS+4~, EFFECTS+7*, EFFECTS+8*, EFFECTS+10 |
| OLDRXR | VALID+10~*, VALID+13 |
| OPT | LOOK2+5~, LOOK2+8*, LOOK2+9 |
| PROMPT | LOOK2+5~, LOOK2+7*, LOOK2+9 |
| RXI | VALID+9~*, VALID+16, VAL1+13, VAL1+14, FILL~, FILL+1, FILL+2, LOOKUP+3~*, LOOKUP+4, LOOK2+6 , LOOK2+10, LOOK3+5, LOOK31+2, LOOK31+5, EFFECTS+7, EFFECTS+8, EFFECTS+12, VISIT~, VISIT+2, VISIT+3 |
| RXR | VALID+10~!, VALID+12, VALID+13, VALID+16, VAL1+7*, VAL1+13*, VAL1+14*, FILL~, FILL+1, FILL+2 , EFFECTS+7, EFFECTS+11, EFFECTS+12, VISIT~, VISIT+2 |
| TIMEOUT | LOOK2+5~, LOOK2+8*, LOOK2+9 |
| TOT | LOOK31+2~* |
| U | VAL1+13, FILL+1, FILL+2, LOOKUP+9, LOOKUP+10, LOOK31+2, EFFECTS+8, VISIT+2, VISIT+3, VISIT+4 |
| VISIT | VISIT+1~, VISIT+2*, VISIT+3*, VISIT+4*, VISIT+5 |
| X | VALID+11, VALID+14*, VALID+18*, VALID+21*, PROCESS~, VAL1+1, VAL1+5~*, VAL1+6, VAL1+7, LOOKUP+6 , LOOKUP+7*, LOOKUP+8*, LOOKUP+9*, LOOKUP+10*, LOOKUP+11, LOOK2+5~, LOOK2+9*, LOOK2+10, LOOK3+4~, LOOK31+2~* , LOOK31+5*, LOOK31+6, HELP1~, MSGWAIT~, MSGWAIT+1, UPPER~ |
| Y | VALID+16~*, VALID+18, VAL1+11, VAL1+13, VAL1+14, LOOK2+5~, LOOK2+6*, LOOK2+7, LOOK3+4~, LOOK3+10 , LOOK3+11, LOOK31+2~, LOOK31+6*, LOOK31+7, LOOK31+8*, LOOK31+10, MMMDD~, MMMDD+1 |