©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
APSPDIR ;IHS/CIA/PLS - ASKS DATA FOR RX ORDER ENTRY ;25-Apr-2016 14:22;DU
Source file <APSPDIR.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 7 | C^%DTC MSG^DIALOG ^DIC ^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR |
| IHS Changes To Pharmacy | 5 | (AWP,BST,CASHDUE,CM,COST,DSCMED,EXPDATE,MANUF,NDC,TRIP)^APSPDIR $$NDCVAL^APSPFUNC $$DIRYNR^APSPUTIL $$OVERRIDE^APSQBRES ($$AWP,$$COST)^APSQDAWP |
| Outpatient Pharmacy | 2 | (DIR,DIRS,JUMP)^PSODIR1 DIR^PSODIR2 |
| Kernel | 1 | $$FMTE^XLFDT |
| Scheduling | 1 | $$INP^SDAM2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXPDATE(PSODIR) | ; EP - Prompt and stuff Expiration Date
|
|
| SUBS(PSODIR) | ; EP - Substitution Enter/Edit
|
|
| EXPDATEX | ||
| DSCMED(PSODIR) | ; EP - Discharge Medication Enter/Edit
|
|
| HOLDERX | ||
| DSCMEDX | ||
| TRIPX | ||
| CMX | ||
| IHSFLDS(PSONEW,SETFLD) | ;EP
|
|
| BSTX | ||
| CASHDUE(PSODIR) | ; EP - Cash Due Enter/Edit
|
|
| HOLDER(PSODIR) | ; EP - Prompt for holder
|
|
| LOTX | ||
| NDC(PSODIR) | ; EP - Prompt for NDC value
|
|
| PTSTATX | ||
| PTSTATEN | ||
| 1 | ||
| MANUFX | ||
| 3 | ||
| COST(PSODIR) | ; EP - Prompt for Unit Price of Drug
|
|
| 5 | ||
| SUBSX | ||
| 7 | ;S PSONEW("FLD")=7 D INSURER^APSPDIR(.PSONEW)
|
|
| 6 | ||
| 9 | ||
| 8 | ||
| NCOST | ||
| FILLDT(PSODIR) | ; EP - Prompt for Fill Date
|
|
| 4 | ||
| PTSTAT(PSODIR) | ;
|
|
| LOT(PSODIR) | ; EP - Collect and stuff Lot Number
|
|
| END | ||
| CM(PSODIR) | ; EP - Chronic Med Enter/Edit
|
|
| NDCX | ||
| EDIHSFLD(DA,IT,GLOBAL) | ;EP
|
|
| AWPX | ||
| 2 | ||
| FILLDTX | ||
| AWP(PSODIR) | ; EP - Prompt for AWP value
|
|
| 11 | ||
| 10 | ;D G:PSONEW("DFLG") END
|
|
| 12 | ||
| CASHDUEX | ||
| TRPDCLS(PARAM,DCLS) | ;EP
|
|
| INSURERX | ||
| TRIP(PSODIR) | ; EP - Prompt for Triplicate Number for Schedule II drugs
|
|
| MANUF(PSODIR) | ; EP - Select and stuff manufacturer
|
|
| BST(PSODIR) | ; EP - Bill Status
|
|
| INSURER(PSODIR) | ; EP - Prompt for insurer info
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | FILLDT+10 |
| AWP^APSPDIR | 3+1 |
| BST^APSPDIR | 9+1 |
| CASHDUE^APSPDIR | 12+1 |
| CM^APSPDIR | 8+1 |
| COST^APSPDIR | 4+1 |
| DSCMED^APSPDIR | 11+1 |
| EXPDATE^APSPDIR | 6+1 |
| MANUF^APSPDIR | 5+1 |
| NDC^APSPDIR | 2+1 |
| TRIP^APSPDIR | 1+1 |
| $$NDCVAL^APSPFUNC | AWP+10, COST+7 |
| $$DIRYNR^APSPUTIL | DSCMED+32 |
| $$OVERRIDE^APSQBRES | INSURER+13 |
| $$AWP^APSQDAWP | AWP+12 |
| $$COST^APSQDAWP | COST+10 |
| MSG^DIALOG | AWP+16, COST+11 |
| ^DIC | MANUF+7, PTSTATEN+4 |
| ^DIE | MANUF+15, LOT+12, EXPDATE+16, EDIHSFLD+4 |
| $$EXTERNAL^DILFD | BST+7, CM+5, SUBS+5, CASHDUE+3, DSCMED+9 |
| $$GET1^DIQ | BST+4, AWP+7, AWP+11, COST+4, COST+8, DSCMED+1 |
| ^DIR | INSURER+6 |
| DIR^PSODIR1 | BST+8, LOT+6, EXPDATE+10, NDC+6, AWP+18, COST+12, HOLDER+4, CM+6, TRIP+5, SUBS+6 , CASHDUE+4, DSCMED+17 |
| DIRS^PSODIR1 | MANUF+8 |
| JUMP^PSODIR1 | INSURER+7, PTSTATEN+5 |
| DIR^PSODIR2 | FILLDT+16 |
| $$INP^SDAM2 | DSCMED+9 |
| $$FMTE^XLFDT | EXPDATE+7, EXPDATE+9, FILLDT+19 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | Classic Fileman Calls, GET1^DIQ |
| ^PSRX - [#52] | EXTERNAL^DILFD, GET1^DIQ |
| ^APSPCTRL - [#9009033] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | FILLDT+10, FILLDT+12 |
| ^PS(53 - [#53] | FILLDT+9 |
| Name | Line Occurrences |
|---|---|
| $$TRPDCLS | TRIP+1 |
| AWPX | AWP+18 |
| BSTX | BST+8 |
| CASHDUEX | CASHDUE+4 |
| CMX | CM+6 |
| DSCMEDX | DSCMED+17 |
| END | 1, 2, 3, 4, 5, 6, 8, 9, 11, 12 |
| EXPDATEX | EXPDATE+10 |
| FILLDTX | FILLDT+16 |
| HOLDERX | HOLDER+4 |
| INSURERX | INSURER+8 |
| LOTX | LOT+6 |
| MANUFX | MANUF+8 |
| NCOST | COST+12 |
| NDCX | NDC+6 |
| PTSTATEN | PTSTATEN+7 |
| PTSTATX | PTSTATEN+5, PTSTATEN+6 |
| SUBSX | SUBS+6 |
| TRIPX | TRIP+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | FILLDT+8~*, FILLDT+9* |
| >> APSEDT | FILLDT+17* |
| >> APSEFDT | FILLDT+17* |
| >> APSP("CM" | CM+7* |
| >> APSPCMP | CM+5 |
| >> APSQDUR | INSURER+14 |
| B | BST+1~, BST+4*, BST+5 |
| CFRM | DSCMED+2~, DSCMED+5*, DSCMED+32 |
| CFRM(1 | DSCMED+3* |
| CFRM(2 | DSCMED+4* |
| DA | MANUF+2~, MANUF+13*, LOT+2~, LOT+10*, EXPDATE+2~, EXPDATE+14*, NDC+1~, AWP+1~, COST+1~, CM+1~ , TRIP+2~, PTSTATX!, SUBS+1~, CASHDUE+1~, DSCMED+2~, EDIHSFLD~ |
| DCLS | TRPDCLS~, TRPDCLS+1 |
| DIC | BST+1~, MANUF+2~, MANUF+3*, LOT+2~, EXPDATE+2~, NDC+1~, AWP+1~, COST+1~, HOLDER+1~, CM+1~ , INSURER+3~, TRIP+2~, FILLDT+1~, PTSTATEN~, PTSTATEN+4*!, SUBS+1~, CASHDUE+1~, DSCMED+2~ |
| DIC("A" | MANUF+4*, PTSTATEN+3* |
| DIC("B" | MANUF+5*, MANUF+6*, PTSTATEN+1*, PTSTATEN+2* |
| DIC(0 | MANUF+3*, PTSTATEN+4* |
| DIE | MANUF+2~, MANUF+12*, LOT+2~, LOT+9*, EXPDATE+2~, EXPDATE+13*, PTSTATEN~, EDIHSFLD+3* |
| DIR | BST+1~, MANUF+2~, LOT+2~, EXPDATE+2~, NDC+1~, AWP+1~, COST+1~, HOLDER+1~, CM+1~, INSURER+3~ , TRIP+2~, FILLDT+1~, SUBS+1~, CASHDUE+1~, DSCMED+2~ |
| DIR("?" | FILLDT+13*, FILLDT+14*, FILLDT+15*, DSCMED+10*, DSCMED+11*, DSCMED+12*, DSCMED+13*, DSCMED+14*, DSCMED+15* |
| DIR("A" | EXPDATE+4*, NDC+3*, AWP+3*, COST+3*, HOLDER+3*, INSURER+4*, FILLDT+3*, DSCMED+8* |
| DIR("B" | BST+3*, BST+5*, BST+6*, BST+7*, LOT+4*, LOT+5*, EXPDATE+7*, EXPDATE+9*, NDC+4*, NDC+5* , AWP+12*, AWP+17*, COST+10*, CM+5*, INSURER+5*, TRIP+4*, FILLDT+3*, FILLDT+10*, SUBS+5*, CASHDUE+3* , DSCMED+9*, DSCMED+16 |
| DIR(0 | BST+2*, LOT+3*, EXPDATE+3*, NDC+2*, AWP+2*, COST+2*, HOLDER+2*, CM+2*, INSURER+4*, TRIP+3* , FILLDT+11*, SUBS+2*, CASHDUE+2*, DSCMED+7* |
| DR | MANUF+2~, MANUF+14*, LOT+2~, LOT+11*, EXPDATE+2~, EXPDATE+15*, PTSTATEN~, EDIHSFLD+3* |
| DT | EXPDATE+6, FILLDT+5, FILLDT+10, FILLDT+11, DSCMED+9 |
| DTOUT | INSURER+8, PTSTATEN+6, PTSTATX! |
| DUOUT | INSURER+8, PTSTATEN+6, PTSTATX! |
| DUZ("AG" | FILLDT+11 |
| DVAL | DSCMED+2~, DSCMED+16*, DSCMED+18, DSCMED+20, DSCMED+22, DSCMED+24 |
| GLOBAL | EDIHSFLD~, EDIHSFLD+3 |
| IT | EDIHSFLD~, EDIHSFLD+3 |
| NDC | AWP+1~, AWP+8*, AWP+9, AWP+10*, AWP+11*, AWP+12, COST+1~, COST+5*, COST+6, COST+7* , COST+8*, COST+10 |
| OVAL | DSCMED+2~, DSCMED+6* |
| PARAM | TRPDCLS~, TRPDCLS+1 |
| >> PSOBILST | BST+3 |
| >> PSODFN | DSCMED+9 |
| PSODIR | BST~, MANUF~, LOT~, EXPDATE~, NDC~, AWP~, COST~, HOLDER~, CM~, INSURER~ , TRIP~, FILLDT~, PTSTAT~, SUBS~, CASHDUE~, DSCMED~ |
| PSODIR("AWP" | AWP+17, AWP+19* |
| PSODIR("BST" | BST+6, BST+9* |
| PSODIR("CASH | DUE" , CASHDUE+3, CASHDUE+5* |
| PSODIR("CM" | CM+5, CM+7* |
| PSODIR("COST" | COST+13* |
| PSODIR("CS" | FILLDT+6 |
| PSODIR("DAW" | SUBS+5, SUBS+7* |
| PSODIR("DFLG" | BST+8, MANUF+8, LOT+6, EXPDATE+10, NDC+6, AWP+18, COST+12, HOLDER+4, CM+6, INSURER+8* , TRIP+5, FILLDT+16, PTSTATEN+6*, SUBS+6, CASHDUE+4, DSCMED+17 |
| PSODIR("DSCMED" | DSCMED+6, DSCMED+9, DSCMED+19*, DSCMED+21*, DSCMED+23*, DSCMED+25*, DSCMED+33* |
| PSODIR("DUR" | INSURER+13, INSURER+14* |
| PSODIR("EXPIR | ATION DATE" , EXPDATE+8, EXPDATE+9, EXPDATE+11*, EXPDATE+17* |
| PSODIR("FIELD" | BST+8, MANUF+8*, LOT+6, EXPDATE+10, NDC+6, AWP+18, COST+12, HOLDER+4, CM+6, INSURER+9* , TRIP+5, FILLDT+16, PTSTATEN*, SUBS+6, CASHDUE+4, DSCMED+17 |
| PSODIR("FILL | DATE" , FILLDT+18* |
| PSODIR("HOLDER" | HOLDER+5* |
| PSODIR("INSURER" | INSURER+13* |
| PSODIR("IRXN" | BST+4, AWP+7, AWP+10, COST+4, COST+7 |
| PSODIR("ISSUE | DATE" , FILLDT+11 |
| PSODIR("LOT # | " , LOT+5, LOT+7* |
| PSODIR("MANUFACTURER" | MANUF+6, MANUF+10* |
| PSODIR("MANUFACTURERIEN" | MANUF+11* |
| PSODIR("NDC" | NDC+5, NDC+7*, AWP+8, COST+5 |
| PSODIR("PATIE | NT STATUS" , PTSTATEN+2, PTSTATEN+8* |
| PSODIR("PTST | NODE" , PTSTATEN+9* |
| PSODIR("TRIP" | TRIP+4, TRIP+6*, TRIP+7! |
| >> PSODRUG("DAW" | SUBS+5 |
| >> PSODRUG("DEA" | TRIP+1 |
| >> PSODRUG("EXPI | RATION DATE" , EXPDATE+5, EXPDATE+6, EXPDATE+7 |
| >> PSODRUG("IEN" | MANUF+1, MANUF+13, LOT+1, LOT+10, EXPDATE+1, EXPDATE+14, AWP+7*, AWP+11, AWP+12, COST+4* , COST+8, COST+10 |
| >> PSODRUG("LOT | #" , LOT+4 |
| >> PSODRUG("MANUFACTURER" | MANUF+5 |
| >> PSODRUG("NDC" | NDC+4 |
| >> PSOFDMX | FILLDT+10*, FILLDT+11, FILLDT+12 |
| >> PSOID | FILLDT+5, FILLDT+10, FILLDT+11 |
| PSONEW | IHSFLDS~, 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 8+1, 9+1, 11+1 , 12+1 |
| PSONEW("# OF | REFILLS" , FILLDT+2*, FILLDT+4 |
| PSONEW("AWP" | 2+2!, 3+2 |
| PSONEW("BST" | 9+2 |
| PSONEW("CASH | DUE" , 12+2 |
| PSONEW("CM" | 8+2 |
| PSONEW("COST" | 2+2!, 4+2 |
| PSONEW("DAYS | SUPPLY" , FILLDT+2*, FILLDT+4, FILLDT+6 |
| PSONEW("DFLG" | 1, 2, 3, 4, 5, 6, 8, 9, 11, 12 |
| PSONEW("DSCMED" | 11+2 |
| PSONEW("EXPIR | ATION DATE" , 6+2 |
| PSONEW("FLD" | 1+1*, 1+2*, 2+1*, 2+3*, 3+1*, 3+2*, 4+1*, 4+2*, 5+1*, 5+2* , 6+1*, 6+2*, 8+1*, 8+2*, 9+1*, 9+2*, 11+1*, 11+2*, 12+1*, 12+2* |
| PSONEW("MANUFACTURER" | 5+2 |
| PSONEW("NDC" | 2+3 |
| PSONEW("TRIP" | 1+2 |
| >> PSORX("FILL D | ATE" , FILLDT+3, FILLDT+19* |
| >> PSORX("ISSUE | DATE" , FILLDT+10 |
| >> PSORX("PATIEN | T STATUS" , FILLDT+8, PTSTATEN+1, PTSTATEN+8* |
| >> PSORX("PTST N | ODE" , PTSTATEN+9* |
| >> PSOSITE | DSCMED+1 |
| >> PSOTRIP | TRIP+1 |
| SETFLD | IHSFLDS~, IHSFLDS+1*, 1+2, 2+3, 3+2, 4+2, 5+2, 6+2, 8+2, 9+2 , 11+2, 12+2 |
| >> TALK | AWP+12, COST+10 |
| U | MANUF+10, INSURER+7, PTSTATEN+5 |
| X | BST+1~, INSURER+7, TRIP+3*, TRIP+6, FILLDT+10, PTSTATEN+5 |
| >> X1 | FILLDT+5* |
| >> X2 | FILLDT+4*, FILLDT+6*, FILLDT+7, FILLDT+8*, FILLDT+9* |
| Y | BST+1~, BST+9, MANUF+2~, MANUF+9, MANUF+10, MANUF+11, LOT+2~, LOT+7, LOT+8, EXPDATE+2~ , EXPDATE+11, EXPDATE+12, NDC+1~, NDC+7, AWP+1~, AWP+19, COST+1~, COST+13, HOLDER+1~, HOLDER+5 , CM+1~, CM+7, INSURER+3~, INSURER+9, TRIP+2~, FILLDT+1~, FILLDT+10*, FILLDT+12*, FILLDT+15, FILLDT+17 , FILLDT+18, FILLDT+19, PTSTATEN~, PTSTATEN+7, PTSTATEN+8, PTSTATX!, SUBS+1~, SUBS+7, CASHDUE+1~, CASHDUE+5 , DSCMED+2~, DSCMED+18, DSCMED+19, DSCMED+20, DSCMED+21, DSCMED+22, DSCMED+23, DSCMED+24, DSCMED+25, DSCMED+33 |
| Y(0 | PTSTATEN+9 |